Лабораторная работа 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.
Тест:
Ответы на тест Основы искусственного интеллекта
Дипломная работа:
Нелинейное программирование с сепарабельными функциями
Курсовая работа:
Решение задачи «Планирование поставок газированных напитков»
с помощью MS Excel
Вебинар:
Управление учебной деятельностью обучаящихся по овладению методами решения геометрических задач
Дипломная работа:
Изучение текстовых задач на уроках математики в начальных классах
