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

Содержание

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. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.

2. Найти самую большую цифру целого числа.

3. Составить функцию для нахождения наименьшего нечётного натурального делителя k (k≠1) любого заданного натурального числа n.

4. Напечатать все пары чисел-близнецов из отрезка [n,2n], где n – заданное натуральное число больше 2.

5. В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: какие рыбы есть в озере, но нет ни у одного их рыбаков.

6. Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте.

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

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

9. 2. Дан файл tovar, содержащий сведения об экспортируемых товарах: указываются наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и указать общий объем его экспорта.

10. Программа 1

11. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

12. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

---

Заключение

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

13. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.

14. Найти самую большую цифру целого числа.

Программа 1

function proc(n:integer):boolean;

var

i,j,k,l:integer;

begin

k:=0;

for i:=2 to n-1 do

if n/i = trunc(n/i) then k:=1;

if k=1 then proc:=false else proc:=true;

end;

var

r:integer;

begin

readln(r);

repeat

r:=r+1;

until proc(r);

writeln(r);

readln

end.

Программа 2

function nod(x:integer):integer;

var

i,j:integer;

begin

for i:=x downto 3 do

if odd(i) and (x mod i=0) then j:=i;

nod:=j;

end;

var

h:integer;

begin

readln(h);

---

Список литературы

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

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

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

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

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

---

Примечания

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

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