1. Программа интерфейсі деген не? 2. Lazarus программасының терезесі қандай бөліктерден тұрады?
3. «Объекттер инспекторы» терезесінің қызметі қандай?
4. Жаңа жобаның пішінін жасау терезесі қалай аталады?
5. Жасалған жоба қандай кеңеймемен сақталады?
6. Жаңа жобаны қалай іске қосамыз?
7. Lazarus-та жаңа жоба дайындау кезеңдерін түсіндірдер.
8. Жаңа жоба дайындау алгоритімін сипаттап беріңдер.
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.