«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем»

содержит цикл лабораторных работ:

- Работа с числами;

- Работа с подпрограммами;

- Работа с множествами;

- Работа с записями;

- Работа с файлами;

- Работа со строковыми переменными.

1. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>=10.

2.Составить программу, проверяющую, является ли заданное натуральное число совершенным.

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

Написать программу вычисления суммы 1+1/2+1/3+…+1/n для зааданного числа n. Результат представить в виде несократимой дроби p/q ( p, q – натуральные).

1. Есть список игрушек, некоторые из которых имеются в n детских садах. Определить игрушки из списка: которых нет ни в одном из детсадов; которые есть в каждом из детсадов.

uses crt;

type

sport=record

im:string[80];

rost,mas:integer;

end;

var

tab:array[1.100] of sport;

i,j,k,l,m,r:integer;

begin

clrscr;

m:=0;

r:=32000;

repeat

i:=i+1;

delline;writeln;

writeln('*****************************************************************************');

write('Введите имя :');readln(tab[i].im);

write(' рост:');readln(tab[i].rost);

write(' масса:');readln(tab[i].mas);

write('***Добавить еще***');

if tab[i].rost >=170 then k:=k+1;

until readkey<>#13;

writeln;

writeln('-----------------<Ответ>-----------------');

writeln('Баскетболом могут заниматся ',k,' человек');

readln

end.

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.