var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
Методическая разработка содержит 15 лабораторных работ на темы:
-работа с формами
- разработка приложения с компонентами ввода и отображения информации
- использование компонентов для работы со списками
- использование компонентов переключателей
- использование компонентов для создания главного и вс меню
- использование стандартных диалоговых окон
- использование компонентов для работы с файлами и каталогами
- обработка исключительных ситуаций
-создание справвочной системы приложения
- создание псевдонима базы данных. Работа с полями набора данных. Технология BDE.
- оабота с таблицами. Навигация по набору данных.
- осуществление поиска и фильтрации набора данных.
- поиск данных с статических и динамических запросов.
- создание отчета