|
|
#1 
ArtAge @ 30.10.10 02:38 |
[пожаловаться]
|
|
turbo pascal
z=(1+sin 0.1 х)(1+sin0.2 x)(1+sin 0.3x)...(1+sin10x)
Исходные данны x=1.5
Я знаю, я полный долб4ёб, завтра здавать
|
|
|
|
#3
Amazing Spider-Man @ 30.10.10 02:46 |
[пожаловаться]
|
|
опомнился ebl 
зы
Program nyaftor_i_y3648
var sum,z,x:real;
i:integer;
begin
sum:=1;
x:=1.5;
For i:=0.1 to 10 do
Z:= sum*(1+sin(i*x));
writeln('Z =' + Z);
end.
зыы Не помню паскаль, на 1м курсе изучал..
зыыы Ребята хелп...
|
|
|
|
#5
ArtAge @ 30.10.10 03:04 |
[пожаловаться]
|
|
))) там x константа ^^ если не впадлу подправте плис, отвечаю торчать буду )))
|
|
|
|
#7
ArtAge @ 30.10.10 03:11 |
[пожаловаться]
|
|
а разве не нужно писать Const x:=1.5 ??? можно и так? Я циклы вообще не понимаю, не понимаю когда ставить 1,0 
|
|
|
|
#8
ArtAge @ 30.10.10 03:19 |
[пожаловаться]
|
|
блин курсор мигает под to и пишет ordinal expression expected
|
|
|
|
#10
goshqaa @ 30.10.10 03:54 |
[пожаловаться]
|
|
Program aftor_dolboeb;
var z,x:real;
i:integer;
begin
writeln ('vvedi x proshy tebe');
readln (x);
z:=1;
For i:=1 to 100 do
z:=z*(1+sin(0.1*i*x));
writeln('z =', Z:8:3);
readln;
end.
ЗЫ в #5 подчеркивает to, т.к. i - целого типа integer, а в проге написано i от 0.1 до 10 
ЗЫЫ эту по3боту со школы помню
ЗЫЫЫ афтор школьник. "завтра здавать" (с)
|
|
|
| Reply | | | |
|
|
|
![SPo1LeR[oldschool]: Медведев <3 Зенит](/images/users/gallery/526/172580_s.jpg)
