→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Помогите найти ошибку 
Автор Сообщение
Начинающий

Регистрация: 17.11.2015
Сообщения: 2

Репутация: 0 [ ? ]
Сообщение Помогите найти ошибку
Допожіть знайти помилку. Написав программу для розрахунку кореня із двох n раз двома способами , программа працює, але рахує неправильно.Де помилка?
Program e;
Var
i,n:integer;
s:real;
Begin
writeln('n');
readln(n);
s:=0;
i:=0;
Begin
repeat
i:=i+1;
s:=sqrt(2+s);
until
n=i;
end;
Begin
while
n=i
do
i:=i+1;
s:=sqrt(2+s);
End;
writeln ('s=',s:0:3);
writeln ('n=',n);
writeln ('i=',i);
writeln ('s=',s:0:3);
writeln ('n=',n);
writeln ('i=',i);
end.


19.11.2015 20:34
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Yahoo [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»