profile
Размещено 5 лет назад по предмету Информатика от 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.

  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;
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.