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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2011, 11:58   #1
Pchelka1992
Пользователь
 
Регистрация: 02.04.2011
Сообщений: 14
По умолчанию Операторы цикла 2

Посмотрите пожалуйста еще эту программу, мне ее тоже нужно решить через оператор цикла
1. Дано натуральное число N . Вычислить: на картинке пример

uses crt;
var n,i:integer;
s,z:real;
begin
write('n=');
readln(n);
s:=1;
z:=1;
for i:=2 to n do begin
z:=-z/2;
s:=s+z;
end;
write('S=',s:0:5);readln
end.
Правильно ли решено?если нет, то помогите пожалуйста
Изображения
Тип файла: gif mage011.gif (443 байт, 109 просмотров)
Pchelka1992 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Операторы цикла yana33311 Паскаль, Turbo Pascal, PascalABC.NET 3 01.03.2011 09:20
Операторы цикла stud3nt Паскаль, Turbo Pascal, PascalABC.NET 0 26.06.2010 20:13
Операторы цикла Paul Oakenfold Паскаль, Turbo Pascal, PascalABC.NET 4 14.04.2009 19:28
Операторы цикла Paul Oakenfold Паскаль, Turbo Pascal, PascalABC.NET 1 08.04.2009 16:02
Операторы цикла Paul Oakenfold Помощь студентам 10 23.03.2009 16:08