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

Записи.

17.04.2010, 23:22. Просмотров 883. Ответов 1
Метки нет (Все метки)

даны массивы
А1..,А15-абоненты телефонной сети
Т1..,Т15-телефонные номера абонентов
S1..,S15-сумма задолженности руб.
Напечатать 2 списка:
1)Список абонентов (с указанием телефона),не имеющих задолженности (Si=0);
2)Список абонентов с задолженностью более Z рублей.
Решить задачу через RECORD.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2010, 23:22
Ответы с готовыми решениями:

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

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

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

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

Записи
Народ плиз,помогите решить задачу!.. Информация о туристе стоит из фамилии,...

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
17.04.2010, 23:34 2
Лучший ответ Сообщение было отмечено qwertyuiop12 как решение

Решение

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;
const n=5;
type b=record
a: string;
t: string;
s: real;
end;
var g: array[1..n] of b; i: byte; z: real;
begin
clrscr;
for i:=1 to n do
begin
write('введите фамилию ',i,'-ого абонента: ');
read(g[i].a);
write('введите № его телефона: ');
read(g[i].t);
write('сумма задолженности = ');
read(g[i].s);
writeln(^j);
end;
writeln('задолженность не имеют следующие абоненты: ');
for i:=1 to n do
if g[i].s=0 then 
begin
writeln(g[i].a);
writeln('(',g[i].t,')',^j);
end;
write('введите границу задолженности (Z): ');
read(z);
write('задолженность свыше ',z,' имеют следующие абоненты: ');
for i:=1 to n do
if g[i].s>z then
writeln(g[i].a);
end.
Program was not compiled
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2010, 23:34

Записи
Помогите пожалуйста исходным текстом программы (сводной ведомости отличников...

записи
распечатать фамилии рабочих бригады,начинающиеся с букв А и С,с указанием их...

Записи(2)
Дан массив записей, содержащих дату (число, месяц, год) и время (час, минута,...


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

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

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