Лабораторная работа: Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7 0

begin

StringGrid1.ColCount:=SpinEdit1.Value+1;

for i:=1 to StringGrid1.ColCount-1 do

StringGrid1.Cells[i,0]:='X'+'['+Inttostr(i)+' ]';

end;

Текст программ в Паскаль

Задача 1

Programkino5;

const pi=3.14;

var H,R,S real;

{H-высота конуса

R-радиус окружности

S-площадь поверхности конуса}

begin

read ln(H,R);

S:=pi*R*(R+SQRT(SQR(H)+SQR(R)));

writeln('S=',S);

end.

Задача 2

Program kino5;

var n,a,b,c:Real;

var M:Boolean

begin

real ln(n,a,b,c);

if trunc(n/2)+2=n

M:=True

ELSE

M:=False;

writeln('M=',M);