Значки-определители не читались, они несли исключительно смысловую нагрузку. <span>
</span>
Program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln("Введите значение верхнего основания");
readln(y1);
writeln("Введите значение нижнего основания");
<span> readln(y2);
</span> writeln("Введите значение левой грани");
<span> readln(x1);
</span> writeln("Введите значение правой стороны");
<span> readln(x2);
</span>P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
Процесс создания приложения в Lazarus можно разделить на следующие этапы:
<span>1. Формирование окна программы – расположение необходимых элементов, задание размеров, изменение свойств; </span>
<span>2. Написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появления окна, нажатие на кнопку и других; </span>
<span>3. Отладка программы. </span>