|
|
Опции темы | Опции просмотра |
03.02.2013, 10:54 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из данной программы сделать программу с использованием процедур и функций
тема:записи и множества условие:Описать, используя структуру данных запись, данные на учеников (фамилия, улица, дом, квартира). Составить программу, определяющую сколько учеников живет на улице Свердлова, списки учеников, живущих в доме номер 45. Из данной программы сделать программу с использованием процедур и функций Код:
type shcolota = record fam: string[50]; ulitsa: string[70]; dom: integer; kvart: integer; end; var a: array[1..100] of shcolota; i, n, d: integer; kol: integer; k: string; begin writeln('кол-во учеников'); readln(n); for i := 1 to n do begin with a[i] do begin writeln('фамилия'); readln(fam); writeln('улица'); readln(ulitsa); writeln('дом'); readln(dom); writeln('квартира'); readln(kvart); end; end; writeln('введите улицу для поиска'); readln(k); for i := 1 to n do begin if a[i].ulitsa = k then begin inc(kol); end; end; writeln('кол-во учеников', ' ', kol); writeln('номер дома'); readln(d); writeln('списки учеников'); for i := 1 to n do begin if a[i].dom = d then begin writeln(a[i].fam); end; end; readln; end. |
03.02.2013, 10:54 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если хотите решить проблемы быстрее - посмотрите аналогичные темы Из данных программ сделать программы с использованием процедур и функций Решение двумерных массивов с помощью процедур и функций |
03.02.2013, 11:02 | #2 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Язык Pascal
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|