Форум программистов, компьютерный форум CyberForum.ru

Распечатать фамилии детей данного детского сада, которые родились в определенном месяце (Pascal->C++) - C++

Восстановить пароль Регистрация
 
Lafee
0 / 0 / 0
Регистрация: 03.06.2013
Сообщений: 31
05.06.2014, 22:41     Распечатать фамилии детей данного детского сада, которые родились в определенном месяце (Pascal->C++) #1
Распечатать фамилии детей данного детского сада, которые родились в определенном месяце; указать их возраст и группу.
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
const N=3; //количество детей
type
    FIO = record
    family  : string[20];   // фамилия
    name    : string[15];   // имя
end;
type
    DATE = record
    number  : byte;  // число
    month   : byte;  // месяц
    year    : integer;  // год
end;
type
    Voz = record
    Voz  : string[5];   // возраст
end;
type
    GR=record
    group : byte;  // группа
end;
type
    child=record
    childFIO   : FIO;
    childDATE  : DATE;
    childGR    : GR;
    childVoz    : Voz;
end;
 
var A :array[1..N] of child;
    i,k,j : byte;
begin
//**************ВВОД ДАННЫХ*********************************
for i:=1 to N do
begin
    write('Фамилия: '); readln(A[i].childFIO.family);
    write('Имя: '); readln(A[i].childFIO.name);
    write('Дата рождения: '); readln(A[i].childDATE.number, A[i].childDATE.month, A[i].childDATE.year);
    write('Возраст:');readln(A [i].childVoz.Voz);
    write('Группа: '); readln(A[i].childGR.group);
end;
clrscr;
//*************ВЫВОД ДАННЫХ*********************************
writeln('***************************************');
for i:=1 to N do
begin
    writeln('Фамилия: ', A[i].childFIO.family);
    writeln('Имя: ', A[i].childFIO.name);
    writeln('Дата рождения: ', A[i].childDATE.number,' ', A[i].childDATE.month,' ', A[i].childDATE.year);
    writeln ('Возраст:',A [i].childVoz.Voz);
    writeln('Группа: ', A[i].childGR.group);
writeln('***************************************');
end;
//дети которые родились в определенном месяце
write('месяц для поиска: '); readln(k);
j:=0;
for i:=1 to N do
    if k = A[i].childDATE.month then
    begin
    j:= j + 1;
    if j = 1 then writeln('дети которые родились в ',k,' месяце');
    writeln(j,') ', A[i].childFIO.family,',   ',2014-A[i].childDATE.year,' лет,   ',A[i].childGR.group,' группа' );
    end;
if j = 0 then writeln('детей которые родились в ',k,' месяце нет');
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2014, 22:41     Распечатать фамилии детей данного детского сада, которые родились в определенном месяце (Pascal->C++)
Посмотрите здесь:

вывести список людей которые родились после указанной даты C++
Распечатать фамилии детей данного детского сада, которые родились в определенном месяце; указать их возраст и группу. C++
C++ Определить фамилии женатых, не имеющие детей
C++ Найти названия игрушек, которые не превышают заданной стоимости и подходят для детей данного возраста
Найти учеников которые родились зимой C++
C++ Распечатать фамилии детей данного детского садика
C++ Распечатать те элементы данного массива, которые имеют повторения
Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. Найти ошибку C++

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

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

Текущее время: 06:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru