Контрольная работа

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

  • 15 страниц(ы)
  • 2975 просмотров
фото автора

Автор: navip

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.

Покупка готовой работы
Тема: «Решения задач на Pascal Теория чисел. Составить программу разложения на простые множители введенного с клавиатуры натурального числа»
Раздел: Программирование, Базы данных
Тип: Контрольная работа
Страниц: 15
Цена: 400 руб.
Нужна похожая работа?
Закажите авторскую работу по вашему заданию.
  • Цены ниже рыночных
  • Удобный личный кабинет
  • Необходимый уровень антиплагиата
  • Прямое общение с исполнителем вашей работы
  • Бесплатные доработки и консультации
  • Минимальные сроки выполнения

Мы уже помогли 24535 студентам

Средний балл наших работ

  • 4.89 из 5
Узнайте стоимость
написания вашей работы

Не подошла эта работа?

Воспользуйтесь поиском по базе из более чем 40000 работ

Другие работы автора
Наши услуги
Дипломная на заказ

Дипломная работа

от 8000 руб.

срок: от 6 дней

Курсовая на заказ

Курсовая работа

от 1500 руб.

срок: от 3 дней

Отчет по практике на заказ

Отчет по практике

от 1500 руб.

срок: от 2 дней

Контрольная работа на заказ

Контрольная работа

от 100 руб.

срок: от 1 дня

Реферат на заказ

Реферат

от 700 руб.

срок: от 1 дня

682 автора

помогают студентам

23 задания

за последние сутки

10 минут

среднее время отклика