Предмет: Информатика,
автор: 4eLoVeCk
Нет перегруженной программы с такими типами параметров.
Вот код:
//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.
Impersona1:
(h.Age>18) У тебя Age:string
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
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;
// Внимание! Если программа не работает, обновите версию!
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;
Приложения:
Похожие вопросы
Предмет: Биология,
автор: musdakovmagomed07
Предмет: Английский язык,
автор: readerr
Предмет: Английский язык,
автор: jdudususu
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Лизакрч