Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   help pascal (https://forum.antichat.xyz/showthread.php?t=166948)

morgon 29.12.2009 18:41
help pascal
 
Помогите пжл!
Задачи по поскале!
1) задание x и y.вычислить sin x sin y (здесь надо оформить диалоговый режим использовать формотированиый вывод данных)


2) и вот ещё z=|sin x2| (x во второй степени здесь мне надо возращающий синус числа)

patcher 29.12.2009 18:59
Первая:
Код:
program zadaniye1;
var x,y:real;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
writeln('sin x=',sin(x):0:3);
writeln('sin y=',sin(y):0:3);
readln;
end.
Вторая:
Код:
program zadaniye2;
var x,z:real;
begin
writeln('x=');
readln(x);
z:=abs(sin(sqr(x)));
writeln('z=',z:0:3);
readln;
end.


Время: 21:40