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

ID: 259041

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

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

1061

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


ID: 226425

Konstantin Shvetski

Модератор

314

Россия, Северодвинск


ID: 401284

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

Советник

278

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


ID: 137394

Megaloman

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

158

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


ID: 400669

epimkin

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

105


ID: 404002

sglisitsyn

6-й класс

42


ID: 242862

Hunter7007

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

30

Россия, Омск


8.10.3

30.10.2021

JS: 2.10.3
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-12-04 11:45:59-standard


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

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

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

Раздел:  Pascal / Delphi / Lazarus
Автор вопроса: angel. (Посетитель)
Дата: 03.08.2021, 00:21 Консультация закрыта
Поступило ответов: 1

Здравствуйте! Прошу помощи в следующем вопросе:
Начала делать данное задание через массивы и совсем запуталась. Тут явно все банально. Помогите пожалуйста.

Код [Pascal]
var x,y:integer;
function max(x,y:integer):integer;
function min(x,y:integer):integer;
begin
readln(x);
if(x<=0) and (x>=0) then y:=max(x,y) else y:=min(x,y);
begin
 if x<=y then min:=x else min:=min(y,x)
end;
begin
if x>=y then max:=x else max:=max(y,x)
end;
writeln('y=:',min,max);
end.


Последнее редактирование 03.08.2021, 08:33 Зенченко Константин Николаевич (Старший модератор)

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

Ответ # 281532 от puporev
Код [Pascal]
function max(x,y:real):real;
begin
if x>y then max:=x else max:=y
end;
function min(x,y:real):real;
begin
if x<y then min:=x else min:=y
end;
var x,y:real;
begin
readln(x,y);//нужно ввести 2 значения, в условии задачи опечатка
if x<0 then y:=max(x,y) else y:=min(x,y);
writeln('y=:',y:0:2);
end.

puporev

Профессор
03.08.2021, 06:23
Мини-форум консультации # 201317

q_id

angel.

Посетитель

ID: 405237

1

= общий =    03.08.2021, 08:47
puporev:

Спасибо. Может и правда опечатка.

q_id

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

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

ID: 31795

2

= общий =    03.08.2021, 09:25
angel.:

Может и правда опечатка


До выполнения функций min,max значеия входных параметров x,y должы быть определены. Правда Паскаль и его потомки, при запуске программы обнуляют полность секцию var, т.е. все переменные будут равны нулю.
smile

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

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

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

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

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

Рейтинг: 244

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

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

Рейтинг: 43

Gluck

9-й класс

Рейтинг: 42

Вадим Исаев ака sir Henry

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

Рейтинг: 2

Асмик Гаряка

Советник

Рейтинг: 0

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

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

Рейтинг: 0