| ← Май 2021 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
18
|
19
|
20
|
21
|
23
|
|
|
24
|
27
|
28
|
29
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 25.05.2021, 08:56 Консультирует 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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
