Приложение Б Распечатка тестов

Введение

В данной лабораторной работе необходимо изучить язык высокого уровня Паскаль, научиться применять на практике типы данных, такие как целочисленный, действительный, логический, вывод информации на дисплей компьютера, ввод чисел для дальнейшей обработки, операторы присвоения, операции с переменными разного типа, условий. Также будет изучена работа с циклами, области их применения для решения различных простейших задач. Будут получены знания синтаксиса процедурного языка программирования Паскаль, основные принципы проектирования алгоритма, структуры реализуемой программы. Также планируется изучить среду программирования PascalABC и написание отчета по результату пройденной лабораторной работы.

Анализ задач

Задача №10

Из условия видно, что в тексте программы будет использоваться цикл. Цикл требуется для того, чтобы исключить из ряда всех трехзначных чисел, те числа, в десятичной записи которых нет одинаковых цифр. Однако следует отметить, что в цикле нужно условие, которое присваивает третьему разряду значения от 1 до 9, а второму и первому значения от 0 до 9. Это необходимо для корректного вывода результата.

Задача №31

В данной задаче нельзя использовать стандартные функции. Поэтому для удобства вычисления будем использовать цикл repeat – until. Однако, если читать саму формулу, то можно понять, что переменная ответа будет действительной.

 

Описание алгоритма для задачи №10

Для решения данной задачи будет использоваться следующий алгоритм:

1. Ввод условия fora:=1 to9 do

2. Ввод условия forb:=0 to9 do

3. Ввод условия forc:=0 to9 do

4. Начало цикла: if (a < > b) and (b < > c) and (a < > c)

5. Конец цикла, вывод трехзначного числа then write(a: 2, b, c)

6. Конец программы. Все нужные числа выведены.

 

Описание алгоритма для задачи №31

Для решения данной задачи будет использоваться следующий алгоритм:

1. Ввод чисел esp и x

2. Присвоение esp и x введенных значений, а так же y, A1, i значения 1

3. Начало цикла repeat

4. Присвоение значений

A2:= -A1 * x * x / (2 * i * (2 * i – 1));

i:= i + 1;

y:= y + A2;

E:= abs (abs (A1) – abs (A2));

A1:= A2

 

5. Конец цикла, until с условием E < Eps

6. Вывод y.

Заключение

В результате лабораторной работе был изучен язык высокого уровня Паскаль, изучены варианты применения на практике таких типов данных, как целочисленный, действительный, логический, вывод информации на дисплей компьютера, ввод чисел для дальнейшей обработки, операторы присвоения, операции с переменными разного типа, условий. Также была изучена работа с циклами, области их применения для решения различных простейших задач. Были получены знания синтаксиса процедурного языка программирования Паскаль, основные принципы проектирования алгоритма, структуры реализуемой программы. Также получены основные навыки использования среды программирования PascalABC и написание отчета по результату пройденной лабораторной работы.

 

Приложение А Листинг программ

var a,b,c:integer; begin fora:=1 to9 do forb:=0 to9 do forc:=0 to9 do if(a<>b)and(b<>c)and(a<>c) thenwrite(a:2,b,c); end.	Vari: Integer; y,A1,A2,E: Real; Eps,x: Real; begin write('Eps = '); readln(Eps); write('x= '); readln(x); y:= 1; A1:= 1; i:= 1; repeat A2:= -A1*x*x/(2*i*(2*i-1)); i:= i+1; y:= y + A2; E:=abs(abs(A1) - abs(A2)); A1:= A2; untilE<Eps; writeln(y:2:3); end.
Решение задачи №10 на PascalABC	Решение задачи №31 на PascalABC

Приложение Б Распечатка тестов

В Задаче №10 данные не вводились

Входные данные	Выходные данные	Входные данные	Выходные данные
		0.6	0.5
		0.7	0.757
Распечатка тестов задачи №10 на PascalABC	Распечатка тестов задачи №31 на PascalABC