Turbo Pascal

[Cris]

Пожалуйста решите задачи.

1. Дано натуральне число n і дійсне число x. Обчислити sin(x)+sin2(x)+...+sinn(x) (2....т - это степень синуса)
2. Дано цілі числа а1...аn. отримати суму тих чисел доної послідовності, які кратні 5
3. обчислити знак суммы (i=от 1 до 100) умножить на знак суммы (j= от 1 до i) умножить на (1/2j+1)

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

1-е

program gg;
var 
n,i:integer;
x,sum:real;
begin
writeln("Vvedite N i X");
readln(n,x);
sum:=0;
for i:=1 to n do
sum:=sum+exp(i*ln(sin(x/180*3.14)));
writeln("Summa = ",sum:0:4);
end.

должно работать)
2-е

program gg;
var 
i,sum,n,a:integer;
begin
writeln("Vvedite N");
readln(n);
sum:=0;
for i:=1 to n do
begin
writeln("Vvedite a",i);
readln(a);
if(a mod 5 =0)
inc(sum,a);
end;
writeln("Summa = ",sum);
end.

 

[Cris]

Пожалуйста решите задачи.

3. обчислити знак суммы (i=от 1 до 100) умножить на знак суммы (j= от 1 до i) умножить на (1/2j+1)

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

напиши подробнее о третем а то я чета не понял условие, i=1..100 - это что? и что такое j? это суммы елементов масива или чего?

 

[Пух]

1-е

program gg;
var 
n,i:integer;
x,sum:real;
begin
writeln("Vvedite N");
readln(n);
sum:=0;
for i:=1 to n do
[B]sum:=sum+exp(i*ln(sin([COLOR="Red"]x[/COLOR]/180*3.14)));[/B]
writeln("Summa = ",sum);
end.

вместо 3.14 можно писать "pi".
ты "х" нигде не ввел. =)
нужно добавить строчки

writeln("введите х");
readln(x);

или в начале обьявить её как константу

во 2й задаче, a1 не обязательно равно 1 =)
может последовательность идет от 5 до 30 (к примеру).

 

[Cris]

вместо 3.14 можно писать "pi".
ты "х" нигде не ввел. =)
нужно добавить строчки

writeln("введите х");
readln(x);

или в начале обьявить её как константу

во 2й задаче, a1 не обязательно равно 1 =)
может последовательность идет от 5 до 30 (к примеру).

ну да))

а где у меня во второй задаче a1 =1 ?

 

[No.Commen.t]

Спасибо, выручили.

 

[Пух]

а где у меня во второй задаче a1 =1 ?

не увидел, что в цикле.
п.с. думал что а1..аn последовательные числа..

 

[|APOSTOL|]

Надо чтото какоето подобие учебника "для чайников" может есть у кого?

 

[Ally]

ааааааааа!!!!!!!!!!! как же я ненавижу турбо паскаль!!!!!...этой хренью весь прошлый учебный год по информатике долбали!...это самое тупое из того, что изучается в информатике!!

 

[xxxFAFNIRxxx]

Надо чтото какоето подобие учебника "для чайников" может есть у кого?

You must be registered for see links

....ну и гугл в помощь естественно

 

[Пух]

ааааааааа!!!!!!!!!!! как же я ненавижу турбо паскаль!!!!!...этой хренью весь прошлый учебный год по информатике долбали!...это самое тупое из того, что изучается в информатике!!

та нет... не самое тупое... Turbo Prolog тупей, поверь.