Программа на любом языке.

[UAC]

Создать список содержащий сведения ФИО возраст, распечатать количество лиц по задан-у имени и данные о тех кому исполнилось 18.
Как и что тут можно сделать, у меня только условия а подробностей нету.
Список и то се произвольно наверное.
Исходник на подобии тоже можно.

[fizteh]

Могу за денюжку на телефон написать...

[UAC]

Кто нибудь ?

[Grag]

Сделаю, не дорого...
Turbo Pascal 7.0; Delphi 7.

Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Летучий_СкилетиК]

Программа на любом языке.

ну если так то на Делфях сгодится?

uses SysUtils;
Const n = 10;
Type
    PtR = Record
        Name:string;
        FName:string;
        patr:string;
        BD:byte;
    End;
Var i, k: Integer;
    a:array [1..10] of PtR;
    String_:string;
Begin
for i:=1 to n do
with a[i] do
begin
     readln(Name);
     readln(FName);
     readln(patr);
     readln(BD);
end;
Writeln('Input Name');
read(String_);
k:=0;
for i:=1 to n do
with a[i] do
begin
    if BD>=18 then begin write(Name:3);write(FName:3);writeln(patr);end;
    if Name = String_ then k:=k+1;
end;
write('Amount=',k);
End.

[UAC]

Сообщение от Летучий_СкилетиК

ну если так то на Делфях сгодится?

Здравствуйте.
Объясните пожалуйста, как работает...

[Летучий_СкилетиК]

Объясните пожалуйста

что именно вам не понятно?

[UAC]

Сообщение от Летучий_СкилетиК

что именно вам не понятно?

С начала =)

[Летучий_СкилетиК]

Const n = 10;

определяем константу n = 10

Type
    PtR = Record
        Name:string;
        FName:string;
        patr:string;
        BD:byte;
    End;

создаем список с 4-мя полями Name, FName, patr, BD -(имя, фамилия, отчесиво и возраст)

for i:=1 to n do
with a[i] do
begin
     readln(Name);
     readln(FName);
     readln(patr);
     readln(BD);
end;

заполняем список вручную вводим данные 10 человек(имя, фамилия, отчесиво и возраст)

read(String_)

заданное имя для поиска лиц в списке

k:=0;
for i:=1 to n do
with a[i] do
begin
    if BD>=18 then begin write(Name:3);write(FName:3);writeln(patr);end;
    if Name = String_ then k:=k+1;
end;

поочередно каждого из 10 человек списка проверяем , кому 18 или более лет

 if Name = String_ then k:=k+1;

проверяем на сходство введеное имя с именами в списке и если есть совпадение то считаем его как +1

write('Amount=',k);

выводим количество найденных людей чьи именна совпали с введенным значением String_

[UAC]

Сообщение от Летучий_СкилетиК

Это полный ответ на мой вопрос?