Консультации Портала - Консультация #108696

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

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

09.11.2007, 13:48

0.00 руб.

0 1 1

Компьютеры Программирование

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

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

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

Приложение:
1) Дано натуральное число n (n ≤ 100), определяющее возраст человека (в годах). Дать для этого числа наименования «год», «года» или «лет»: например, 1 год, 23 года, 45 лет и т. д.2) Дано действительное число a. Для функции f(x), графики которых представланы на рис.1 а - г, вычислить f(a).

Обсуждение

Неизвестный

09.11.2007, 14:48

общий

это ответ

Здравствуйте, Аксенов Антон!
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 <strike>Result</strike>GetY := -x;
if x > 0 then <strike>Result</strike>GetY := -x * x;
end;
var InData: real;
begin
Writeln(‘Введите аргумент функции‘);
Readln(InData);
WriteLn(‘Значение функции равно: ‘, GetY(InData):4:4<strike>:4</strike>);
Readln;
end<strike>;</strike>.

P.S. Пусть это у вас в жизни будут самые сложные задачи.<fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset>
-----
• Отредактировал: <a href=/info/user/31795 target=_blank>Зенченко Константин Николаевич</a> (Специалист)
• Дата редактирования: 09.11.2007, 17:27</fieldset>

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

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