«Решения задач на Pascal Теория чисел. Составить программу разложения на простые множители введенного с клавиатуры натурального числа» - Контрольная работа

Содержание

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

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

Вариант Задания

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

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

1.

4

1. Разработать программу печати всех простых чисел в диапазоне от N до M (значения переменных N и M задаются с клавиатуры), а также подсчитать их количество.

2. Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

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

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

1.

8 1. Разработать программу поиска трех простых чисел,

предшествующих числу М, заданному пользователем,

причем М>=10.

2.Составить программу, проверяющую, является ли

заданное натуральное число совершенным.

9 1. Разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону [N,M ].

2. Проверить, являются ли два данных числа взаимно простыми.

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

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

помощью процедуры функции

Вариант Задания

1.

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

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

3 1. Заменить отрицательные элементы линейного массива их модулями, не пользуясь стандартной функцией вычисления модуля. Подсчитать количество произведенных замен.

4 1. Составить программу для вычисления суммы факториалов всех чётных чисел от m до n.

2. Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке ( например, дано число 156, нужно получить 651).

1.

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

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

1.

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

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

9 1. Составить программу для нахождения чисел из интервала [M,N], имеющих наибольшее количество делителей.

2. Найти все числа Армстронга от 1 до К написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется: 1) a, b, c, d – разные цифры; 2) ab - cd = a+ b+ c+ d.

---

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

program lab1b;

uses crt;

var n,i,j:integer;

b:array[1.5] of integer;

a:array[1.4] of integer;

begin

clrscr;

randomize;

for i:=1 to 5 do begin

b[i]:=random(9999);

if b[i]>=1000 then

write(b[i]:5);

end;

writeln;

for i:=1 to 5 do begin

if b[i]>=1000 then

n:=b[i];

for j:=1 to 4 do begin

a[j]:=n mod 10;

n:=n div 10;

end;

if (a[1]<>a[2])and(a[1]<>a[3])and(a[1]<>a[4]) then

if (a[2]<>a[3])and(a[2]<>a[4]) then

if (a[3]<>a[4]) then

write(b[i]:5);

end;

readln;

end.

---

Заключение

Program algEvkl;

Var x, y: integer;

Begin

Readln(x,y);

Repeat

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

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

if x+y=1 then Writeln(\'YES\') else writeln(\'no\');

Readln;end.

---

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

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

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

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

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

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

---

Примечания

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

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