Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 092

/ вопрос открыт /

Здравствуйте, эксперты!
Знакомой дали лабы по паскалю, вызвали затык вот эти вопросы:
>>>Программирование с использованием типа запись
Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц, время работы в месяц). Составить программу, определяющую общее время простоя на заводе, списки станков, не имеющих простоя, относительное время простоя всех и каждого станка
>>> Что такое тип Запись? о_О

Александр Думов Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Александр Думов (статус: Посетитель)
Вопрос отправлен: 22 апреля 2012, 15:14
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 22 апреля 2012, 21:17; участников в обсуждении: 3.
puporev

puporev (статус: 2-ой класс), 22 апреля 2012, 15:28 [#1]:

Что такое тип Запись? о_О

Это пользовательский тип, который объединяет переменные разных типов, например у Вас
type zavod=record
naz:string[20];//название строковый тип
prs:word;//простой целочисленный беззнаковый
rab:word;//работа, так же
end;
можно объявить массив данного типа
var a:array[1..20] of zavod;
и работать с ним
Александр Думов

Александр Думов (статус: Посетитель), 22 апреля 2012, 16:10 [#2]:

program ZAVOD;
 
uses Crt;
 
const
  max = 1000;
 
type stanki of record
name:string;
time_work:integer;
end;
 
var
index: array[1..10] of stanki;
i:integer;
 
begin
for i:=1 to 10 do
  begin
  writeln('Введите название станка №'+inttostr(i));
  read(index[i].name);
  end;
 
for i:=1 to 10 do
  begin
  writeln('Введите кол-во часов работы станка с названием'+index[i].name);
  read(index[i].time_work);
  end;
 
for i:=1 to 10 do
  begin
  writeln('Cтанок с названием'+index[i].name+' работал '+index[i].time_work+'часов');
  end;
 
{profit!}
 
end.
min@y™

min@y™ (статус: Доктор наук), 22 апреля 2012, 21:17 [#3]:

Интересный вариант придумал Саша Думов.
20 раз вводить информацию при каждом отладочном запуске - это мощно. Не... это СУПЕРМОЩНО!
Саня, функции Random() и Randomize() ещё не отменили. Не мучай автора.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 31 мая 2023, 23:34
Выполнено за 0.03 сек.
Рейтинг@Mail.ru