СтарыйМатематик
Опубликовано 1 год назад по предмету Информатика от СтарыйМатематик

Решить задачу в стиле турбо паскаля 80-х годов. Тема: Одномерные массивы Известны данные о мощности двигателя(в л.с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л.с.

  1. Ответ
    Ответ дан Аккаунт удален
    uses Crt;const  n=30;type  tA=array[1..n] of integer;  tS=array[1..n] of string[30];  var  i:integer;  p,c:tA;  s:tS;begin  ClrScr;  for i:=1 to n do begin    Write('Марка автомобиля ',i,': ');    Readln(s[i]);    Write('его мощность (л.с.) и стоимость (руб.); ');    Readln(p[i],c[i])    end;  Writeln;    Writeln('Автомобили мощностью не более 80 л.с.');  for i:=1 to n do    if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);  ReadKey;end.
    1. Ответ
      Ответ дан СтарыйМатематик
      зачем type использовать? не проще ли было массивы объявить сразу в var ?
    2. Ответ
      Ответ дан Аккаунт удален
      Можно и так, и так. "Классика жанра" от Н.Вирта в том, чтобы объявлять границы массива в const, определять типы таких массивов в type, а уж потом описывать переменные этого типа в var. А "трубопаскакаль" исходил в своих парадигмах именно из виртовских концепций.
    3. Ответ
      Ответ дан Аккаунт удален
      Читайте книгу Н.Вирта "Алгоритмы + структуры данных - программы", а. также книгу К.Йенсен. Н.Вирт. "Паскаль. Руководство для пользователя". Если Вы любитель истории.
Не тот ответ, который вам нужен?
Найди нужный