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

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

Ответ

Ответ дан Аккаунт удален

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. Ответ
  
  Ответ дан Аккаунт удален
  
  Читайте книгу Н.Вирта "Алгоритмы + структуры данных - программы", а. также книгу К.Йенсен. Н.Вирт. "Паскаль. Руководство для пользователя". Если Вы любитель истории.