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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2010, 03:44   #1
Wild_klas
Форумчанин
 
Аватар для Wild_klas
 
Регистрация: 13.10.2010
Сообщений: 109
По умолчанию Правильно ли? Проверьте

Нужно вычислить
Мой вариант:
Код:
var
  i,j:integer; s:real;
  begin//main
   s:=0;
   for i:=1 to 100 do
   for j:=1 to i do
   begin
    s:=1/2*j+i;
   end;
   writeln ('s= ',s:4:2);
   Readln;
 end.
Кто знает, подскажите правильно ли она работает?
Учусь учиться.
Wild_klas вне форума Ответить с цитированием
Старый 21.11.2010, 08:12   #2
maxionans
Форумчанин
 
Аватар для maxionans
 
Регистрация: 02.01.2010
Сообщений: 254
По умолчанию

s := s + 1/(2*j+i);
maxionans вне форума Ответить с цитированием
Старый 21.11.2010, 12:03   #3
Wild_klas
Форумчанин
 
Аватар для Wild_klas
 
Регистрация: 13.10.2010
Сообщений: 109
По умолчанию

Забыл, спасибо
Учусь учиться.
Wild_klas вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверьте, правильно ли освобождаю память Gtx541 Общие вопросы C/C++ 1 04.06.2010 20:00
проверьте программу натка:) Помощь студентам 12 03.02.2010 09:40
Проверьте задачу Dialon Помощь студентам 14 10.02.2009 21:26
Проверьте ReM Общие вопросы Delphi 1 12.11.2008 17:32