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

Содержание

1.Теория чисел

1.4. Лабораторная работа 1

2. Подпрограммы в Паскале

2.5. Лабораторная работа 2

3.Множества

3.4.Лабораторная работа 3

4. Записи.

4.4.Лабораторная работа 4

5.Файлы.

5.6. Лабораторная работа 5.

6. Строковые переменные.

6.4. Лабораторная работа 6

Литература

Введение

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

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

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

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

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

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

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

Выдержка из текста работы

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

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

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

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

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

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

1. Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В каких классах учатся эти ученики? Каков их средний балл?

2. В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, масса. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см?

1. Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.

2. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Есть ли среди них дата вашего рождения?

1. Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *.

2. В строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее.

Заключение

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.

Примечания

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.