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

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

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

2

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

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

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

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

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

2

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

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.