Var
x:real;
i:integer;
begin
x:=-3*pi;
for i:=1 to 6 do begin
Writeln(x:9:6,3*cos(x/3):16:6);
x:=x+0.8
end
end.
<u>Результат</u>
-9.424778 -3.000000
-8.624778 -2.893964
-7.824778 -2.583352
-7.024778 -2.090120
-6.224778 -1.449137
-5.424778 -0.705713
Var a,i,b:integer;
begin
writeln('Введи число');
readln(a);
writeln('Уадай');
while a<>b do
begin
readln(b);
if a<b then
begin writeln('Меньше'); i:=i+1; end
else
if a>b then
begin writeln('Больше'); i:=i+1; end;
end;
writeln('Попыток было:', i)
end.
1833 год , Чарлз Бэббидж,Англия
Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>
№3 <span>Линий-выносок, размерных линий, полок</span>