Пятница, 29.03.2024, 18:07
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » turbo pascal (не получаются циклы...)
turbo pascal
x-17Дата: Понедельник, 18.05.2009, 20:34 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Уважаемые информатики, помогите пожалуйста, с заданием, все сделал, а вот это не могу: дано натуральное число n. Нужно вычислить:

Заранее спасибо!!!

P.S.: просьба простить за то что задания в виде рисунка

Прикрепления: 9952095.jpg (9.3 Kb)
 
qwerty5793Дата: Среда, 20.05.2009, 11:56 | Сообщение # 2
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
1 задача

program cosinusy;
var a,b,c,r:real;
d,e,n:integer;
begin
writeln('vvedite n');
readln(n);
b:=cos(1);
c:=sin(1);
a:=(cos(1)/sin(1))
for e:=2 to n do
begin
b:=b+cos(e);
c:=c+sin(e);
r:=b/c;
a:=a*r;
end;
writeln(a:4:4);
readln;
end.


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Среда, 20.05.2009, 14:05
 
YurraДата: Среда, 20.05.2009, 12:05 | Сообщение # 3
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
Сдается мне ошибочка закралась в этой строке

Quote (qwerty5793)
a:=(cos(1)/sin(1))*r;


Коплю на новую машину, помогите кто чем может
 
qwerty5793Дата: Среда, 20.05.2009, 12:20 | Сообщение # 4
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
program korni;
var a:real;
n,d,:integer;
begin
writeln('vvedite n');
readln(n);
a:=0;
for d:=n downto 1 do
a:=sqrt(3*d+a);
writeln(a:5:5);
readln;
end.

Добавлено (20.05.2009, 12:20)
---------------------------------------------

Quote (Yurra)
Сдается мне ошибочка закралась в этой строке
Quote (qwerty5793)
a:=(cos(1)/sin(1))*r;

да вроде нет, где именно вы усмотрели ошибку?


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Среда, 20.05.2009, 12:21
 
YurraДата: Среда, 20.05.2009, 12:31 | Сообщение # 5
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
Мне кажется, значение переменной а нужно "переприсваивать" в цикле, а не "присваивать", придав ей перед циклом определенное значение, ибо в ней должно копиться значение произведения всей цепочки, а у вас на каждом шаге цикла в нее заносится произведение "текущей" дроби на отношение косинуса единицы к синусу единицы...

Коплю на новую машину, помогите кто чем может
 
qwerty5793Дата: Среда, 20.05.2009, 14:06 | Сообщение # 6
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
Quote (Yurra)
Мне кажется, значение переменной а нужно "переприсваивать" в цикле, а не "присваивать", придав ей перед циклом определенное значение, ибо в ней должно копиться значение произведения всей цепочки, а у вас на каждом шаге цикла в нее заносится произведение "текущей" дроби на отношение косинуса единицы к синусу единицы...

Вы правы! спасибо, все исправил, теперь верно


совсем не против ~20 р на +79525213161 (теле2)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » turbo pascal (не получаются циклы...)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024