Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

340

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-03 10:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200957

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: oligator.a.y (Посетитель)
Дата: 25.05.2021, 08:56 Консультация закрыта
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом:
Составить программу на паскале, работающую в двух режимах: в первом режиме производится нахождение максимального из A, B, C и D, во втором - функции y, заданной с помощью графика. Выбор режима осуществить оператором CASE. Переменные A, B, C, D - целого типа. График во вложении

-----
Прикрепленные файлы:

Ответ # 281213 от puporev
Код [Pascal]
uses crt;
procedure max;
var a,b,c,d,mx:integer;
begin
clrscr;
writeln('Введите 4 целых числа');
readln(a,b,c,d);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if d>mx then mx:=d;
writeln('Максимальное из них=',mx);
readln
end;
procedure znc;
var x,y:real;
begin
clrscr;
write('Введите значение x=');
readln(x);
if x<=-5 then y:=3.5
else if x<=0 then y:=-x
else if x<=2 then y:=x
else y:=-x+5;
write('y=',y:0:2);
readln
end;
var w:char;
    a,b,c,d:integer;
    x,y:real;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-найти максимальный');
writeln('2-найти значение функции');
writeln('другое-выход');
readln(w);
case w of
'1':max;
'2':znc;
else exit;
end;
until not (w in ['1','2']);
end.

puporev

Профессор
25.05.2021, 15:17
Мини-форум консультации # 200957

q_id

Зенченко Константин Николаевич

Старший модератор

ID: 31795

1

= общий =    25.05.2021, 10:44
oligator.a.y:

Составить программу на паскале



Turbo Pascal, Borland Pascal, Pascal ABC, Pascal ABC.Net, Visual Pascal.

Какой?

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

q_id

oligator.a.y

Посетитель

ID: 405030

2

= общий =    25.05.2021, 10:45
Зенченко Константин Николаевич:

Turbo Pascal

q_id

oligator.a.y

Посетитель

ID: 405030

3

= общий =    25.05.2021, 15:19
puporev:

Спасибо

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0