Примеры решения задач

Определить комбинированный тип для представления анкеты школьника, включающей в себя его ФИО, возраст, номер школы и класса и оценки по любым пяти предметам.

Описать некоторую переменную типа запись и присвоить ей значение, соответствующее следующей анкете:

Петров Иван Васильевич

16 лет

194 школа

9-б класс

Оценки:

биология 5

история 3

алгебра 4

физика 5

пение 2

program Lr8;

uses crt;

const m=22; {максимальная длина фамилии}

type

t=record

fio:array[1..m] of char;

vozrast:integer;

nshkola:integer;

nklassa:integer;

ocenka:record

predmet:string[10];

ball:integer;

end;

end;

var ved:t;

n,i,i1,k,y:integer;

f:text;

begin

clrscr;

assign(f,'p.dat');

reset(f);

writeln('vvesti k-vo uchenikov');

readln(n);

writeln('vvesti k-vo predmetov:');

readln(y);

writeln('vvesti tablicu:');

writeln;

writeln(' fio !',' vozrast !',' shkola ','! klass !');

writeln('----------------------!','---------!','--------','!-------!');

for i:=1 to n do

begin

for k:=1 to m do

read(f,ved.fio[k]);

readln(f,ved.vozrast,ved.nshkola,ved.nklassa);

writeln(ved.fio,' ',ved.vozrast,' ',ved.nshkola,' ',

ved.nklassa);

writeln('ocenki:');

writeln('-------');

for i1:=1 to y do begin

readln(f,ved.ocenka.predmet,ved.ocenka.ball);

writeln(' ',ved.ocenka.predmet,' ',ved.ocenka.ball);

end; end;

readln

Индивидуальные задания

1. Ввести информацию по 3-м студентам ( порядковый номер, Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.

2. Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная.

3. Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг.

4. Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара.

5. Ввести информацию о рейсе самолета (N рейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город.

6. Составить программу, выводящую на экран меню детского кафе (наименование изделия, вес, стоимость).

7. Составить программу, выводящую на экран расписание движения поездов (N поезда, станция отправления, станция прибытия, время прибытия, время в пути).

8. Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги, издательство, год издания, стоимость). Провести поиск по автору книги.

9. Составить программу, выводящую на экран расписание экзаменов и зачетов (предмет, вид отчетности, число, преподаватель).

10. Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, годовая стоимость).

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

12. Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине "Океан" (наименование, единица измерения, цена, количество).

13. Составить программу, выводящую на экран "Телефонный справочник" (Ф. И. О., адрес, номер телефона). Произвести поиск по ФИО – выдать адрес и телефон.

14. Составить программу, выводящую на экран график отпусков (Ф. И. О., дата начала отпуска, дата выхода на работу, количество дней).

15. Составить программу, выводящую на экран инвентаризационную ведомость (инвентаризационный номер, наименование, дата учета).

16. Составить программу, выводящую на экран ведомость начисленной заработной платы (Ф.И.О., должность, дата рождения, заработная плата).

17. Составить программу, выводящую на экран изменения температуры по дням недели (дата, день недели, температура, влажность).

18. Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований.

19. Ввести информацию по 10 перевозкам (N рейса, пункт назначения, наименование, вес). Найти суммарный объем всех перевозок.

20. Ввести информацию по 10 студентам (ФИО, пол, год рождения). Определить количество юношей и девушек. Вывести оба списка.

21. Создать список студентов, включив в нее ФИО студента, группу, номер зачетной книжки и результаты экзаменов по 3 предметам. Вывести на экран всех студентов, сдавших сессию на 4 и 5.

22. Подсчитать количество домов, расположенных на четной (нечетной) стороне улиц и вывести их адреса (улица, дом) на экран.

23. Ввести информацию (тип блюда, название блюда, калорийность, цена). Вывести информацию о самом энергетически ценном блюде заданного типа.

24. Составить программу моделирующую телефонный справочник. Вывести список абонентов женского пола с указанием номера и домашнего адреса.

25. Вычислить средний балл группы в последнюю сессию и распечатать список студентов имеющих средний балл, равный среднему баллу группы.

26. Дано 5 названий канцтоваров, их цена и количество единиц товара. Упорядочить этот список по возрастанию цен и вывести на экран.

27. Имеется тип данных : type student = record

fio: string[20]; {фамилия}

pol: char ; {пол}

ex1, ex2, ex3 : 2..5; {три оценки за экзамены}

ball: integer {общий балл за экзамены}

end;

Составить программу, которая формирует файл записей (список группы) типа student, затем читает его и извлекает из него информацию:

Выводится список студентов по убыванию балла.

28. При поступлении в университет лица, получившие оценку "неудовлетворительно" на первом экзамене, ко второму экзамену не допускаются. Считая фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список абитуриентов, допущенных ко второму экзамену.

29. Написать программу, определяющую PP - срок окупаемости инвестиций для N различных проектов.

PP представляет количество времени необходимое для проекта бюджетирования капиталовложений , чтобы вернуть начальные затраты

PP=INV/CF

INV- инвестиции в проект; CF- поступление денежных средств за год (доход)

сообщить наименование самого выгодного проекта.

30. Имеется тип данных : type student = record

fio : string[20]; {фамилия}

pol : char ; {пол}

ex1, ex2, ex3 : 2..5; {три оценки за экзамены}

ball : integer {общий балл за экзамены}

end;

Составить программу, которая формирует файл записей (список группы) типа student, затем читает его и извлекает из него информацию: Определяется количество юношей и девушек по убыванию балла.