Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Katenok230689
1 / 1 / 0
Регистрация: 15.05.2009
Сообщений: 4
1

Записи

15.05.2009, 20:26. Просмотров 910. Ответов 1
Метки нет (Все метки)

текст задачи:
в бюро по ремонту квартир поступили сведения о состоянии N квартир. Сведения о каждой квартире содержат: N квартиры, фамилию владельца и тип необходимого первоочередного ремонта (или отсутствие необходимости в ремонте). Составить сводные (по типам ремонта) заявки на ремонт с указанием номеров квартир и фамилией владельцев.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2009, 20:26
Ответы с готовыми решениями:

Добавление и удаление записи, поиск записи с максимальной зарплатой, сортировка по алфавиту
Помогите, пожалуйста!:help: Очень нужно сделать до 26!(а если не сложно, то...

Удаление записи из массива записи или файла
Доброго времени суток... Задача стоит такая. Есть массив записей, прочитали из...

Дан файл записей. Одно из полей записи ФИО. Вывести все записи в виде таблицы в алфавитном порядке ФИО
Я сделал ввод файла, а вот как сделать такой вывод не знаю. Помогите...

Записи.Упорядочивание записи.
При решении списка задач который мне был выдан столкнулся с трудностью в...

Записи
Нужно исправить задачу, помогите. Даны сведения о владельцах автомобилей:...

1
Vzik
32 / 26 / 7
Регистрация: 05.05.2009
Сообщений: 58
16.05.2009, 08:43 2
Лучший ответ Сообщение было отмечено Katenok230689 как решение

Решение

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
uses crt;
type svedenee=record
   nomerkv: 1..100;
    fam: string[50];
   remont: string[50];
 
end;
var i,n:integer;
    byro: array [1..10] of svedenee;
begin
clrscr;
writeln('vvedi n');
 Readln(n);
     For i:=1 to n do begin
    writeln ('vvedi nomer kvartira');
   readln (byro[i].nomerkv);
   writeln ('‘vvedi familia');
   readln (byro[i].fam);
   writeln ('vvedi nyzen li remont da ili net');
   readln(byro[i].remont);
   writeln ('_______________');
   end;
   for i:=1 to n do
if byro[i].remont='da' then writeln ( byro[i].fam,byro[i].nomerkv);
 
readkey;
   end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2009, 08:43

Записи
Трабла в вводом фамилии, почему пишет 2 пункта сразу type sp=record...

Записи
1) Описать запись с именем Zodiac, содержащую следующие поля: *...

записи
организовать ввод, хранение в массиве, вывод на экран следующих данных:...


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

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

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