проверте пожалуйста - Форум
Пятница, 09.12.2016, 16:25
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » проверте пожалуйста (задачу на паскаль)
проверте пожалуйста
ShineДата: Понедельник, 23.11.2009, 16:05 | Сообщение # 1
Лейтенант
Группа: Участник
Сообщений: 10
[ 0 ]
Статус: Offline
дано натуральное число n . Вычеслить: 1/sin1 + 1/sin1+sin2 +....+1/sin1+...+sin n

var s,a:real; i,n:integer;
begin
writeln('vvedite n');
readln(n);
a:=0;
s:=0;
for i:=1 to n do
begin
a:=a+sin(i);
s:=s+1/a;
end;
writeln('s=',s);
end. ((((( КАК ПРОВЕРИТЬ ЭТО В РУЧНУЮ )))))когда ПРОГРАММА ПОСЧИТАЛА Я ВВЕЛА
1 и 2 вышло: S=1.1883 и S=1.0997.


250023
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » проверте пожалуйста (задачу на паскаль)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016