Нет перегруженной программы с такими типами параметров. вот код: //firstprogramm type human=class public name: string; age: string; height: string; end; var h: human; begin h: =new human; write(', как тебя зовут: '); readln(h.name); write('здорово ' , h.name,', а скажи-ка сколько тебе лет: '); readln(h.age); if (h.age> 18) then writeln('здорово ты уже совершеннолетний! ') else writeln('ой! да ты ещё совсем мал.'); write('окей, а какой же твой рост (см) : '); readln(h.height); writeln('вот результаты. твоё имя - ', h.name , ', тебе ' , h.age ,' лет, а рост - ', h.height ,'см'); end.
// Внимание! Если программа не работает, обновите версию!
type
Human=class
public
Name:string;
Age:string;
Height:string;
end;
begin
var h:=new Human;
Write('Привет, как тебя зовут:'); Readln(h.Name);
Write('Здорово ' ,h.Name,', а скажи-ка сколько тебе лет:');
Readln(h.Age);
if (h.Age).ToInteger>18 then Writeln('Здорово ты уже совершеннолетний!')
else Writeln('Ой! Да ты ещё совсем мал.');
Write('Окей, а какой же твой рост (см) :'); Readln(h.Height);
Writeln('Вот результаты. Твоё имя - ',h.Name,', тебе ' ,h.Age,
' лет, а рост - ',h.Height ,'см')
end.
Я не совсем понял смысла вводить тут класс, потому что работа с ним ведется, как с обыкновенной записью. Замените начало кода программы нижеследующим и убедитесь, что ничего не изменится.
type
Human=record
Name:string;
Age:string;
Height:string;
end;
begin
var h:Human;