Описать, используя структуру данных запись, завод - Pascal

  1. Доброго дня всем. Такое вот задание: Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц, время работы в месяц). Составить программу, определяющую общее время простоя на заводе, списки станков, не имеющих простоя, относительное время простоя всех и каждого станка. Похожие уже написанные программы смотрел, под редактирование не подошли. Помогите пожалуйста с написанием


textual

Код к задаче: «Описать, используя структуру данных запись, завод - Pascal»

type zavod=record
         name:string[20];
         IdleTime:longint;
         WorkTime:longint;
       end;
const n=5;       
var
  Tidle:longint;
  TWork:longint;
  a:array[1..n] of zavod;
  i:integer;
begin  
  for i:=1 to n do begin
    writeln('#',i);
    write('Наименование станка:');readln(a[i].name);
    write('Время работы:');readln(a[i].WorkTime);    
    write('Время простоя:');readln(a[i].IdleTime);        
  end;
  Tidle:=0;TWork:=0;
  for i:=1 to n do begin Tidle:=Tidle+a[i].IdleTime;TWork:=TWork+a[i].WorkTime;end;
  writeln('Общее время простоя:',Tidle);
  writeln('Список станков не имеющих простоя:');
  for i:=1 to n do if a[i].IdleTime=0 then writeln(a[i].name);
  writeln('Конец списка!');
  if TWork>0 then writeln('Относительное время простоя:',Tidle/TWork*100:0:2) else writeln('все станки простаивали!');
  for i:=1 to n do if a[i].WorkTime>0 then writeln('Станок "',a[i].name,'" относительное время простоя:',a[i].IdleTime/a[i].WorkTime*100:0:2)
  else writeln('Станок "',a[i].name,'" не работал')
  
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.900 из 5



Похожие ответы
  1. Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки подпрограмму с заданным символом для отображения и количеством элементов. Примечание: Для отображения элементов в строке рекомендуется использовать подпрограмму-процедуру с указанием количества элементов (символов) и вида элементов (символов) фигура должна быть отражена в центре экрана, учитывая, что в текстовом режимах стандартное количество позиций для вывода (ширина экрана) равен 80, подпрограмма должна выводить на экран только один ряд, а не всю фигуру. Вот что у меня получилось, но когда прочитал примечание оказалась что неправильно сделал:

  1. Вот эту задачу надо решить используя рекурсивную функцию или процедуру. Дополнительное условие: "k - постоянное число" Понятия не имею как решить задачу. Помогите пожалуйста.

  1. Добрый день. Помогите пожалуйста написать программу! Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел: a)Функция Srzach2 находит среднее арифметическое двух чисел); b)Функция Srzach3 (находит среднее арифметическое трех чисел);

  1. Помогите с комментариями в программе-С клавиатуры вводятся N. Не используя массив, определить значение второго по величине элемента.

  1. ПАСКАЛЬ!Используя рекурсию, вычислить с заданной точностью ε>0

  1. Составить программу, которая, используя рекурсивную функцию или процедуру, находит значение данной функции для любых целых неотрицательных аргументов: F(n,m) = (n/2), если n-четно, m, если n=1, F((n+1)/2), m+1) в остальных случаях.

  1. Здравствуйте! Прошу подправить ошибки ,если не сложно. Задание звучит так: I Сформировать двумерный целочисленный массив П(4 \ S) исиольпц txmeparop случайных чисел на интервале (-7, Элементы массива вывести на экран в виде матрицы. 2. Преобразовать массив I) в одномерный массив К* 1 (олученный массив вынести на экран» 3. Вычислить среднеарифметическое значение нечетных элементов третьей четверти массива К. 4. Определить два наибольших элемента среди ненулевых элементов второй половины массива К. 5. Упорядочить четные но номеру элементы первой четверги одномерного массива по убыванию квадратов значений

  1. Всем привет!) Нашёл на этом форуме решение, но данная программа не работает. ( к коду, данному на сайте добавил только перевод в градусы) Заранее спасибо за помощь.

  1. В центре экрана рисуем произвольный квадрат. В зависимости от введенного числа организовать постепенное перемещение на соответствующее количество позиций вправо.