«Решения задач на Pascal Подпрограммы процедуры функции» - Контрольная работа

Содержание

Лабораторная работа 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.

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

function proc(n:integer):boolean;

var

i,j,k,l:integer;

begin

k:=0;

for i:=2 to n-1 do

if n/i = trunc(n/i) then k:=1;

if k=1 then proc:=false else proc:=true;

end;

var

i,j,r:integer;

begin

readln(r);

for i:=r+1 to 2*r-1 do

begin

if proc(i-1)and proc(i+1) then writeln(i-1,' ',i+1);

end;

readln

end.

Заключение

function fac(n:integer):real;

var

i:integer;

j:real;

begin

j:=1;

for i:=1 to n do j:=j*i;

fac:=j;

end;

var

n,i,j:integer;

a:array[1.100] of real;

begin

write('N=');readln(n);

for i:=1 to n do

begin

a[i]:= 1/fac(i);

writeln('a[',i:2,']=',a[i]:0:20);

end;

readln

end.

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

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

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

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

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

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

Примечания

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

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