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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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