1. Программа интерфейсі деген не? 2. Lazarus программасының терезесі қандай бөліктерден тұрады?
3. «Объекттер инспекторы» терезесінің қызметі қандай?
4. Жаңа жобаның пішінін жасау терезесі қалай аталады?
5. Жасалған жоба қандай кеңеймемен сақталады?
6. Жаңа жобаны қалай іске қосамыз?
7. Lazarus-та жаңа жоба дайындау кезеңдерін түсіндірдер.
8. Жаңа жоба дайындау алгоритімін сипаттап беріңдер.
program exs;
var a : array [1..1000] of integer;
n, i : integer;
procedure qsort(l, r: integer);
var i, j, key, buf : integer;
begin
i := l;
j:= r;
key:=a[(l+r) div 2];
repeat
while a[i] < key do inc(i);
while a[j] > key do dec(j);
if i<=j then begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
end;
until (i>j);
if (l < j) then qsort(l, j);
if (i < r) then qsort(i, r);
end;
begin
readln(n);
for i:= 1 to n do begin
read(a[i]);
end;
qsort(1, n);
for i:=1 to n do begin
write(a[i], ' ');
end;
end.
var
a, s: real; //a - вводимое с клавиатуры число, s - сумма чисел
begin
a:= 1; //Присваиваем начальное значение, чтобы цикл выполнился
s:= 0;
while a <> 0 do
begin
writeln('Введите положительное число');
readln(a);
if a < 0 then
begin
writeln('Введено не положительное число. Повторите ввод заново');
continue; {Если а - не положительное число, вводим число заново}
end;
s:= s + a;
end;
writeln('Сумма: ', s); //Выводим сумму
end.