написать класс который принимает с клавиатуры целое число и выводит на экран три предыдущих ему целых числа причем каждое в отдельной строке
10-11 класс
|
type Cl = class
a:integer;
constructor Create(b:integer);
procedure SetVal(b:integer);
function GetVal:integer;
procedure GetPrev;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.SetVal(b:integer);
begin
a := b;
end;
function Cl.GetVal:integer;
begin
GetVal := a;
end;
procedure Cl.GetPrev;
var
Pr, i:integer;
begin
writeln('Три предыдущих');
Pr := Pred(a);
for i := 1 to 3 do
begin
writeln(Pr, ' ');
Pr := Pred(Pr)
end;
end;
var
Obj:Cl;
begin
Obj := Cl.Create(5);
Obj.GetPrev;
writeln;
Obj.Destroy;
end.
Другие вопросы из категории
символов.Какой объем информации в книге?
Читайте также
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0