var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Это выводит в какой по номеру день опаздало наибольшее количество учеников (1-пн, 2-вт и т.п.)
800*600=480000точек
точка 1*1 весит 16 бит
480000*16=7680000(бит)
7680000:8=960000(байт)
960000:1024=937.5(кб)
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Var n,a,b:integer;
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355