Вывод на экран фамилий больше определенного возвраста

22.10.2011, 01:13. Показов 518. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Как это соорудить? Я сделал начальную часть и ввод данных, а как сделать вывод списка фамилий больше определенного возраста V?..я сделал только поиск с самым большим возврастом, помогите с изменением кода пожалуйста).

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
Program Pers;
uses crt;
type Data = record
Mesety: 1..12;
Deny: 1..31;
God: integer;
end;
Familia = record
ImiaFamilia: string;
DenyRojdenia: Data;
end;
SpisokFamilii = array[1..50] of Familia;
var a:SpisokFamilii;
n,i,v: integer;
max: Familia;
begin
writeln('Введите количество фамилий: '); readln(n);
For i:=1 to n do
begin
writeln('Даты фамилии: ',i);
writeln('Имя и Фамилия : '); readln(a[i].ImiaFamilia);
Writeln('День рождения: '); readln(a[i].DenyRojdenia.Deny);
Writeln('Месяц рождения: '); readln(a[i].DenyRojdenia.Mesety);
Writeln('Год рождения: '); readln(a[i].DenyRojdenia.God);
end;
{Не выходит дальше}
max.DenyRojdenia.God := MaxInt;
For i:=1 to n do
if a[i].DenyRojdenia.God < max.DenyRojdenia.God then max:=a[i];
writeln('Список фамилий: ' ,max.ImiaFamilia);
 
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

22.10.2011, 01:13

Ответы с готовыми решениями:

Составить скрипт выполняющий вывод на экран фамилий всех студентовти
Здраствуйте, мне нужно конвертировать этот код в php. я практически справился но не как не могу...

Вывод на экран фамилий и номеров групп для всех студентов, включенных в базу данных
Описать класс Student, содержащий следующие поля: · Фамилия и инициалы · Номер...

Вывод определенного массива на экран
Добрый день. Как вывести на экран только 3-й массив там где число 100 ? using...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

22.10.2011, 01:13

Помогаю со студенческими работами здесь

Вывод определенного элемента массива на экран
Имеется следующий код: .model small .stack 100h .data mes db 'hello_world$' .code start:...

Вывод определенного приложения на определенный экран
День добрый! ОС = WinXP, есть 2 видеокарты и 2 монитора(один естественно системный), нужно вывести...

Вывод на экран заранее определенного текста (нужно кое-что выяснить)
org 0x100 start: mov bx,0xB800 mov es,bx mov di,0 mov si,0 mov cx,500 Next_face: mov ax,...

Вывод символа на экран c номером больше нуля
Здравствуйте. Подскажите, пожалуйста, можно ли функцией 0Eh прерывания 10h вывести символ на...

Подсчитать количество фамилий, в которых 5 и больше гласных
Здравствуйте, помогите решить. надо подсчитать колличество фамилий в которых 5 и больше гласных. ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх