• Нет перегруженной программы с такими типами параметров.
    Вот код:
    //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

  • // 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;
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years