Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 22.01.2012
Сообщений: 39
1

Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц

24.03.2012, 21:33. Показов 2841. Ответов 2
Метки нет (Все метки)

Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц. Структура записи имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей не менее 2.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2012, 21:33
Ответы с готовыми решениями:

Создание и обработка файлов. Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора
Помогите пожалуйста Создать файл, элементами которого являются сведения о ягодах: название, месяц...

Создать файл, содержащий сведения об автомобиле
Создать файл, содержащий сведения об автомобиле. Структура записи: марка, номер автомобиля и...

Создать файл, содержащий сведения о сотрудниках
Помогите сделать задачу! Пожалуйста! Нужно создать файл, содержащий сведения о сотрудниках. ...

Создать файл, содержащий сведения о пациентах поликлинники.
Приветствую! прошу решить следующую задачку: Создать файл, содержащий сведения о пациентах...

2
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
24.03.2012, 22:21 2
Лучший ответ Сообщение было отмечено Riotvan как решение

Решение

Если правильно понял условие, то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Uses crt;
Type
book=Record
fam: String;
ceh: String;
a: Integer;
b: Integer;
c: Integer;
end;
Var
t: Text;
i,n: Integer;
x: Array[1..100] of book;
Begin
Clrscr;
Repeat
Writeln('Введите количество записей (не менее 2): ');
Readln(n);
Until n>=2;
For i:=1 to n do
begin
 Write('Введите фамилию сборщика: '); Readln(x[i].fam);
 Write('Введите наименование цеха: '); Readln(x[i].ceh);
 Write('Введите количество изделий категории A, собранных рабочим за месяц: '); Readln(x[i].a);
 Write('Введите количество изделий категории B, собранных рабочим за месяц: '); Readln(x[i].b);
 Write('Введите количество изделий категории C, собранных рабочим за месяц: '); Readln(x[i].c);
end;
Assign(t,'File.txt');
Rewrite(t);
For i:=1 to n do
Writeln(t,'Сборщик ',x[i].fam,' собрал ',x[i].a+x[i].b+x[i].c,' деталей (', x[i].ceh,' цех)');
Close(t);
Readln
End.
1
0 / 0 / 0
Регистрация: 22.01.2012
Сообщений: 39
24.03.2012, 23:31  [ТС] 3
Спасибо)))

Добавлено через 31 минуту
Считая заданными значения расценок SumА, SumВ, SumС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно, выдать на печать следующую информацию: общее количество изделий категорий А, В, С, собранных рабочим цеха Х; ведомость заработной платы рабочим цеха Х; средний размер заработной платы работников этого цеха.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2012, 23:31

Создать файл, содержащий сведения о работниках фирмы
Создать файл, содержащий сведения о работниках фирмы. Каждая запись содержит поля: фамилия...

Создать файл, содержащий сведения о сотрудниках учреждения
Здравствуйте, уважаемые! Помогите пожалуйста вот с такой задачей: Дан файл F, содержащий сведения...

Создать файл,содержащий сведения о нескольких автомобилях
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий...

Создать файл, содержащий сведения о телефонах абонентов
А. Создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.