Операторы цикла

Министерство образования и науки Российской Федерации

Пермский Национальный Исследовательский Политехнический Университет

Кафедра Общей физики

Отчёт по лабораторной работе:

«Задание по теме "Операторы цикла"

Выполнил:

Вариант 17

Проверил преподаватель:

Банников Руслан Юрьевич

Пермь, 2016.

Постановка задачи.

Написать программу, которая реализует генератор чисел Пифагора [pic 1], [pic 2], [pic 3] ([pic 4]). В основу положить формулы: [pic 5], [pic 6], [pic 7] (где [pic 8], [pic 9] – натуральные, [pic 10], [pic 11], [pic 12] – заданное число). Результат вывести на экран в виде таблицы из пяти столбцов: [pic 13], [pic 14], [pic 15], [pic 16], [pic 17].Для реализации алгоритма можно использовать вещественные типы переменных.

Алгоритм решения.

Перечень переменных. Для реализации алгоритма необходимы переменные: k,n,m,.

Real: диапазон значений: ; объём занимаемой оперативной памяти – 6 бит;[pic 18]

Single: диапазон значений: ; объём занимаемой оперативной памяти – 4 бит;[pic 19]

Double: диапазон значений: ; объём занимаемой оперативной памяти – 8 бит;[pic 20]

Extended: диапазон значений: ; объём занимаемой оперативной памяти – 10 бит.[pic 21]

Shortint: Диапазон допустимых значений -128…127; Отводимая память, в байтах 1;

Integer: Диапазон допустимых значений -32 768…32 767; Отводимая память, в байтах 2;

Longint: Диапазон допустимых значений -2 147 483 648…2 147 483 647; Отводимая память, в байтах 4;

Byte: Диапазон допустимых значений 0…255; Отводимая память, в байтах 1;

word: Диапазон допустимых значений 0…65 535; Отводимая память, в байтах 2;

Для того что бы минимизировать использование оперативной памяти программой, для двух переменных воспользуемся типом Byte.

Затраты оперативной памяти.

Для созданной программы необходимо 9 бит оперативной памяти.

[pic 22]

Входные данные.

Для реализации алгоритма программы необходимо ввести одну переменных (являющимися входными данными).

Переменная k: переменная k>3 .

Выходные данные.

Результатом программы является переменная m n a b c. Результатом программы может быть любое число .

Программа.

Var  m,n:integer; k:byte;

begin

writeln('ведите к');

readln(k);

if  k<=2 then write('1<n<k 1<m<k k должно быть больше 2')

else

writeln('  m   n   a   b   c');

for m:=2 to k-1 do

for n:=2 to k-1 do

begin

if (b>0) and (c>0) then writeln(m:3,' ',n:3,' ', sqr(m)-sqr(n):3 ,' ', 2*m*n:3,' ', sqr(m)+sqr(n);:3);