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 q end;
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.
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В2,4,6,8,9,11,12
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В4. Разработать программу печати всех простых чисел в диапазоне от N до M
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В11. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В6. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.
