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

ID: 401284

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

Советник

376

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


ID: 259041

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

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

357

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


ID: 401888

puporev

Профессор

215

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


ID: 405338

vovaromanov.jr

1-й класс

125


ID: 400669

epimkin

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

111


ID: 242862

Hunter7007

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

29

Россия, Омск


ID: 137394

Megaloman

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

25

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


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-20 21:46:11-standard


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

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

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

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Аксенов Антон
Дата: 09.11.2007, 13:48 Консультация закрыта
Поступило ответов: 1

Помогите, пожалуйста, с решением.
Тут две задачи, ко второй даю ссылку на график:

http://i005.radikal.ru/0711/d6/0f9c300b90da.jpg

Очень большое спасибо заранее.

Приложение:

Ответ # 192910 от Зиновьев Дмитрий Владимирович
Здравствуйте, Аксенов Антон!
1)
CONST A = ARRAY OF (0,1,2,3,4,5,6,7,8,9);
CONST B = ARRAY OF ('лет','год','года','года','года','лет','лет','лет','лет', 'лет')
Var InData:Integer;
o: integer;
begin
Writeln('Введите возраст:');
Readln(InData);
o := InData mod 10;
case o OF
0,6,7,8,9: Writelnln(InData, ' лет');
1: Writelnln(InData, ' год');
2,3,4: Writelnln(InData, ' года');
END;
READLN;
end.

Как вариант используйте массивы-константы, сам код без их использования, тут дело вкуса

2)
function GetY(x: real): real;
begin
if x <= 0 then ResultGetY := -x;
if x > 0 then ResultGetY := -x * x;
end;
var InData: real;
begin
Writeln('Введите аргумент функции');
Readln(InData);
WriteLn('Значение функции равно: ', GetY(InData):4:4:4);
Readln;
end;.

P.S. Пусть это у вас в жизни будут самые сложные задачи.


-----
• Отредактировал: Зенченко Константин Николаевич (Специалист)
• Дата редактирования: 09.11.2007, 17:27

Зиновьев Дмитрий Владимирович

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

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

puporev

Профессор

Рейтинг: 215

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

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

Рейтинг: 164

Gluck

8-й класс

Рейтинг: 60

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

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

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

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

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

Рейтинг: 0