|
Вопрос # 6 092/ вопрос открыт / |
|
Здравствуйте, эксперты!
Знакомой дали лабы по паскалю, вызвали затык вот эти вопросы:
>>>Программирование с использованием типа запись
Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц, время работы в месяц). Составить программу, определяющую общее время простоя на заводе, списки станков, не имеющих простоя, относительное время простоя всех и каждого станка
>>> Что такое тип Запись? о_О
 |
Вопрос задал: Александр Думов (статус: Посетитель)
Вопрос отправлен: 22 апреля 2012, 15:14
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 22 апреля 2012, 21:17; участников в обсуждении: 3.
|
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™ (статус: Доктор наук), 22 апреля 2012, 21:17 [#3]:
Интересный вариант придумал Саша Думов.
20 раз вводить информацию при каждом отладочном запуске - это мощно. Не... это СУПЕРМОЩНО!
Саня, функции Random() и Randomize() ещё не отменили. Не мучай автора.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
