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

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

textual

Код:

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.

Похожие ответы
  1. Даны натуральное число n, целочисленная матрица X порядка n x n. Получить последовательность b1, b2,... bn, где bi, - это наименьшее из значений элементов, находящихся в начале i-ой строки матрицы X до элемента, принадлежащего главной диагонали включительно. Помогите пожалуйста кто чем сможет. Заранее всем большое спасибо!!!

  1. Товарищи программисты помогите мне пожалуйста решить одну задачку. Завтра мне надо сдавать зачёт, а без этой задачи меня допустят...а если я не сдам его мне отчислят!! Элемент матрицы назовем "седловой" точкой, если он является наименьшим в своей строке и наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной цепи матрицы размером 10 на 15 вернуть индексы всех ее седловых точек.

  1. Найти количество столбцов матрицы Y(8,6), в которых есть хотя бы один нулевой элемент(без использования процедур).

  1. вот уже готовая рабочая программа. при работе программы выдает - op=1.333333333T+02 вопрос - как сделать,чтобы число выдавалось в нормальном обычном виде? если поменять тип на integer (в строке op:real,то выдает ошибку....

  1. {Ввести последовательность натуральных чисел Aj j=1...n (n<=1000). Упорядочить последовательность по неубыванию наименььшей цифры числа, числа с одинаковыми наименььшими цифрами дополнительно упорядочить по неубыванию суммы цифр числа, числа с одинаковыми наименььшими цифрами и одинаковыми суммами цифр дополнительно упорядочить по неубыванию самого числа.}

  1. Написал код, но он вычисляет arccos с погрешностью:

  1. Дана матрица А(m, n), 1<(m, n)<10. Определить среднее арифметическое элементов матрицы. Переставить строки по убыванию числа ненулевых элементов в строках.

  1. Здравствуйте. Читаю самоучитель, в процессе появились задачи, которые я так и не смог написать. Прошу помочь с решением. Дано действительное число х. Вычислить:...

  1. Напечатать в возрастающем порядке трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления (/, div и mod) не использовать). Помогите пожалуйста! Очень надо сегодня. И если возможно объясните немного решение


Нашли ошибку?
Развитие проекта
Яндекс.Метрика