Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 21.09.2020
Сообщений: 6

Разработать программу выполняющую следующие действия

15.12.2020, 13:31. Показов 698. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Разработать программу, выполняющую следующие действия:
1. Чтение данных с клавиатуры.
2. Вывод данных на дисплей
3. Выводить на дисплей данные согласно варианту задания.
Каждый элемент информационной структуры (элемент массива) должен быть описан как
тип данных "Запись"

Необходимые строки:
название фильма;
режиссер;
категория;
дата выпуска.
Задача:
Найти режиссера самого нового фильма.

Я смог слепить вот это :
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
type film=record     
     name: string;
     producer: string;
     category: string;
     year: integer;
     end;
var  z:film;
     i,n, max: integer;
     a:string;
begin
write('Введите количество фильмов ');
readln(n);
max:=2020;
for i:=1 to n do
    begin
    writeln('Введите ',i,' запись: ');
    write('Название фильма: ');
    readln(z.name);
    write('режиссер: ');
    readln(z.producer);
    write('категория: ');
    readln(z.category);
    write('Дата выпуска: ');
    readln(z.year);
    if z.year<max then
      max:=z.year ; a:=z.producer;
    end;
    writeln('Режиссер самого нового фильма ',z.producer);
end.
Вот что получается в окне вывода:

Введите количество фильмов: 2
Введите 1 запись:
Название фильма: Довод
режиссер: Нолан
категория: Боевик
Дата выпуска: 2020
Введите 2 запись:
Название фильма: Джокер
режиссер: Тодд Филлипс
категория: триллер
Дата выпуска: 2019
Режиссер самого нового фильма Тодд Филлипс

Что делать если выводит не режиссера самого нового фильма,а режиссера,который последний в списке?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.12.2020, 13:31
Ответы с готовыми решениями:

Разработать программу, в основе которой следующие правила
Разработать программу, в основе которой следующие правила. Необходимо ввести как можно больше чисел при соблюдении следующих условий:...

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

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.12.2020, 13:31
Помогаю со студенческими работами здесь

Составить программу – телефонный справочник, выполняющую следующие функции:
Нужно составить некий телефонный справочник, который будет выполнять такие функции: 1. Открывает файл (прямым или последовательным...

Разработать программу, выполняющую умножение 2-х больших чисел
Разработать программу, выполняющую умножение 2-х больших чисел. Написать комментарии к каждой строчке программы. 1 число 1267 2 число...

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

Составить программу, которая бы выполняла следующие действия:
Составить программу, которая бы выполняла следующие действия: 1. Заполняла файл DMAS.TXT двухмерный массивом размерностью 5х4 из...

Составить программу, которая бы выполняла следующие действия:
1. Заполняла файл DMAS.TXT двухмерный массивом размерностью 5х4 из диапазона с одновременным выводом двухмерного массива на экран. ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru