Предмет: Информатика,
автор: AshchepkovStepan
Задача на Паскале. Срочно!!!!!!
Приложения:
Ответы
Автор ответа:
0
Условие не совсем понял.
Если надо определить значение синуса х при х=20+2*i ,i от 1 до 10 , вывести результаты и значение у при х=25.
То вот программа в АВС
Program sinus;Uses CRT;Varx,i:integer;y:real;Beginwriteln(' Программа определяет значение синуса ');For i:=1 to 10 dobeginx:=20+2*i;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end;x:=25;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end.
Если надо определить значение синуса х при х=20+2*i ,i от 1 до 10 , вывести результаты и значение у при х=25.
То вот программа в АВС
Program sinus;Uses CRT;Varx,i:integer;y:real;Beginwriteln(' Программа определяет значение синуса ');For i:=1 to 10 dobeginx:=20+2*i;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end;x:=25;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end.
Похожие вопросы
Предмет: Алгебра,
автор: zolotoy20081
Предмет: Русский язык,
автор: anastasiacerno28
Предмет: Литература,
автор: strime163
Предмет: Математика,
автор: TanyaMoor1
Предмет: Математика,
автор: aaaaraaaa
Uses CRT;
Var
x,i:integer;
y:real;
Begin
writeln(' Программа определяет значение синуса ');
For i:=1 to 10 do
begin
x:=20+2*i;
y:=sin(x);
writeln (' x= ', x);
Writeln (' y=', y);
end;
x:=25;
y:=sin(x);
writeln (' x= ', x);
Writeln (' y=', y);
end.