Нет перегруженной программы с такими типами параметров.
Вот код:
//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.
Нет перегруженной программы с такими типами параметров.
Вот код:
//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.
Вот код:
//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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
//SecondProgram
type
Animal=class
public
Name: string;
Age: integer;
end;
var
A: Animal;
begin
A:= new Animal;
write('Привет! Как зовут твоего питомца? ');
readln(A.Name);
write('А сколько ему лет? ');
readln(A.Age);
writeln('Так, значит, у твоего питомца имя ', A.Name, ' и ему ', A.Age, ' лет.');
end.
Как видите, во второй программе используются другие типы параметров (integer вместо string), поэтому первая программа не перегружена.