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