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

Содержание

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.4. Лабораторная работа 1

Тема: Теория чисел

2

1. Составить программу разложения на простые множители введенного с клавиатуры натурального числа

2. В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили исходное число. Найдите это число.

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

Тема: Подпрограммы

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

2

1. Даны две дроби A/В и С/D (A,B,C,D-натуральные числа). Составить программу для сложения дробей. Результат должен быть несократимой дробью.

2. Сформировать массив X(N), N-й член которого определяется формулой X(N)=1/N!.

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

Тема: Множества

2

1. Задан некоторый набор товаров. Определить для каждого из товаров, какие из них имеются в каждом магазине и каких товаров нет ни в одном магазине.

2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.

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

Тема: Записи

2

1. Из данного списка спортсменов распечатать сведения о тех

из них, кто занимается плаванием. Указать возраст, сколько

лет они занимаются спортом.

2. В таблице хранятся следующие данные об учениках:

фамилия, имя, отчество, рост, масса. Вычислить, каков

средний рост учеников, рост самого высокого и самого

низкого учеников.

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

Тема: Файловый тип данных.

2

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

2. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать все имеющиеся о них сведения.

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

Тема: Строки

2

1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

---

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

procedure sum(a,b:integer;var a1,b1:integer);

var

nod,x,y:integer;

label 1;

begin

a1:=a;

b1:=b;

1:

x:=a1;

y:=b1;

Repeat

If (x>y) then x:= x mod y else y:= y mod x;

Until (x=0) or (y=0);

nod:=x+y;

if nod<>0 then

begin

a1:=trunc(a1/nod);

b1:=trunc(b1/nod);

end;

end;

var

i,j,k,l:integer;

a,b,c,d,a1,b1:integer;

begin

write('a/b');readln(a,b);

write('c/d');readln(c,d);

sum(a,b,a,b);

sum(c,d,c,d);

sum(a*d+c*b,d*b,a1,b1);

writeln('O⢥в:',a1,'/',b1);

readln

end.

---

Заключение

var

f:text;

s1,s2,N,max,min,q,i:integer;

begin

randomize;

write('N=');readln(n);

assign(f,'input.txt');

rewrite(f);

for i:=1 to n do

begin

writeln(f,random(n));

end;

close(f);

max:=0;

min:=32000;

assign(f,'input.txt');

reset(f);

for i:=1 to n do

begin

readln(f,q);

write(q:4);

if q>max then max:=q;

if qend;

close(f);

assign(f,'input.txt');

reset(f);

for i:=1 to n do

begin

readln(f,q);

if q=max then s1:=s1+q;

if q=min then s2:=s2+q;

end;

close(f);

writeln;

writeln('Max=',max);

writeln('Cг  max=',s1);

writeln('Min=',min);

writeln('Cг  min=',s2);

readln;

end.

---

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

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

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

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

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

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

---

Примечания

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

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