Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2008, 12:27   #1
durachok)
Пользователь
 
Регистрация: 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.
Изображения
Тип файла: jpg задание.jpg (15.9 Кб, 124 просмотров)
durachok) вне форума Ответить с цитированием
Старый 25.12.2008, 13:05   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
var i,n,y:integer;
begin
writeln('Введите n');
readln(n);
i:=0;y:=1;
repeat
inc(i);
y:=y+i;
until i=n+1;
writeln(y);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 25.12.2008, 15:09   #3
durachok)
Пользователь
 
Регистрация: 25.12.2008
Сообщений: 10
По умолчанию

ммм, спасибб)) но как тут еще всунуть такую фишку что когда вводишь n равное нулю, то у выводило равное 1 ????
durachok) вне форума Ответить с цитированием
Старый 25.12.2008, 15:24   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
var i,n,y:integer;
begin
writeln('Введите n');
readln(n);
i:=0;y:=1;
while i<n do
begin
inc(i);
y:=y+i;
end;
writeln(y);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посоветуйте ,правильно или нет Михаил Юрьевич Общие вопросы 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