0 / 0 / 0
Регистрация: 27.04.2015
Сообщений: 1
1

Разработать программу, которая читает c клавиатуры данные о лицах ...прог. record

10.12.2009, 20:52. Показов 2744. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
type data=record
day:1..31;
month: 1..12;
year:integer;
end;
Person=record
namesurname:string;
birthday: data
end;
listpersons=array [1..50] of Person
Разработать программу, которая читает c клавиатуры данные о лицах N (N <= 50) и отображается на экране
а)человекa который родился в дeнь Z месяца
б)старшого
с)младшого

плссс...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2009, 20:52
Ответы с готовыми решениями:

Разработать программу, которая вводит с клавиатуры данные о каждом студенте
Порядок выполнения работы 1. Составить список учебной группы, содержащей 15 студентов. 2. Указать...

Написать программу, которая читает с клавиатуры строки
Написать программу, которая читает с клавиатуры строки (максимальный размер строк-50 символов)....

Считать с клавиатуры данные об n лицах и записать их в файл
Друзья! Никак не могу понять, отчего в файл записываются лишь фамилия и имя... type data_rojd =...

Разработать программу, которая читает с файла MS Excel информацию о рейсах авиакомпании «Перелет»
Разработать программу, которая читает с файла MS Excel ( информацию о рейсах авиакомпании...

1
58 / 57 / 5
Регистрация: 01.12.2009
Сообщений: 177
10.12.2009, 22:15 2
Delphi
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
type
Person=record
namesurname:string;
day:1..31;
month: 1..12;
year:integer
end;
listpersons=array [1..50] of Person;
 
var
  a:listpersons;
  i,z:integer;
begin
  for i:= 1 to 50 do
  begin
    with a[i] do
      begin
        write('Имя фамилия: '); readln(namesurname);
        write('День: '); readln(day);
        write('Месяц: '); readln(month);
        write('Год: '); readln(year);
      end;
      end;
      writeln('Введите Z месяц');
readln(z);
for i:=1 to 50 do
 begin
        with a[i] do
      begin
           if month=z then writeln (namesurname:20,' ', day:2,'.', month:2,'.', year:4);
      end;
 end;
readln
end.
доделайте еще б и в ребят.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2009, 22:15
Помогаю со студенческими работами здесь

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

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

Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результ
- Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и...

Написать программу, которая читает с клавиатуры строку символов, преобразует ее и выводит результат на дисплей
Подсчитать количество слов в строке. Помогите плиз.

Составить программу, которая читает построчно текст другой программы (ввести с клавиатуры) на языке C (10 строк)
строки написать в паскале программу которая читает построчно текст другой программы (ввести с...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru