М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

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

👇
Ответ:
rafaeldali131
rafaeldali131
19.06.2020
// 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;

Нет перегруженной программы с такими типами параметров. вот код: //firstprogramm type human=class pu
4,6(79 оценок)
Открыть все ответы
Ответ:
Дарька2000
Дарька2000
19.06.2020

Как мы уже выяснили, массивы объединяют однородные единицы информации – элементы одного и того же типа. Но многообразие информации нельзя свести только к какому-то одному типу данных. Например, указывая положение точки в пространстве, мы можем воспользоваться одним и тем же типом для указания ее координат, но, описывая человека, мы должны указать его имя, рост, цвет глаз и волос, то есть в одном описании объединим разнородную информацию. Точно так же, описывая автомобиль, мы укажем не только его марку, но и год выпуска, модификацию, да и цвет кузова может нас заинтересовать. Составляя автоматизированный каталог книгохранилища, мы для каждой книги должны указать ее название, имя автора, область знания, количество страниц, год издания, а также, возможно, признак нахождения на руках или в хранилище.

Данные такого рода, описывающие существенные стороны того или иного объекта путем включения в описание нескольких, часто разнотипных, элементов, называют записью (record). В языке Паскаль запись определяется путем указания служебного слова record и перечисления входящих в запись элементов с указанием типов этих элементов.

Объяснение:

4,8(5 оценок)
Ответ:
bilainфом
bilainфом
19.06.2020
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ