|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2008, 12:27 | #1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 10
|
решена правильно или нет???
задание прикрепил снизу
program laba12; var n:integer; function y(n:integer):real; var x:byte; begin if (n=0) then y:=1 else y:=y(n-1)+(n-1); end; begin write('vvedite chislo n='); read(n); write('y(n+1)=y( ',n+1, ')= ',y(n+1):9:2); readln; end. |
25.12.2008, 13:05 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
25.12.2008, 15:09 | #3 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 10
|
ммм, спасибб)) но как тут еще всунуть такую фишку что когда вводишь n равное нулю, то у выводило равное 1 ????
|
25.12.2008, 15:24 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Посоветуйте ,правильно или нет | Михаил Юрьевич | Общие вопросы Delphi | 2 | 14.06.2008 22:02 |
Есть или нет | MAcK | SQL, базы данных | 3 | 27.05.2008 14:45 |
Посмотрите пожалуйста правильно ли написана программа,если нет укажите ошибку. | Викулька | Помощь студентам | 1 | 10.12.2007 22:49 |
Лицензионное ПО или нет? | pures | Свободное общение | 1 | 02.12.2007 06:34 |