writeln('ENTER');readln;end.
Цель работы: Применение системы программирования TURBO-PASCAL для компиляции и выполнения программ, разработанных на основе построенных линейных алгоритмов, использующих арифметические операции, стандартные математические функции, функции модуля CRT, форматы вывода данных.
Задание 1.
Стороны основания прямоугольного параллелепипеда равны a и b. Диагональ параллелепипеда наклонена к плоскости основания под углом 60о. Определить боковую поверхность параллелепипеда.
Лабораторная работа №2
«Ветвления в алгоритмах. Логические выражения. Операторы сравнения и перехода. Оператор варианта. Операторы циклов.»
Цель работы: Разработка алгоритмов и программ, использующих операторы сравнения, варианта, перехода и операторов цикла.
Задание 1.
Составить алгоритм с ветвлениями и программу для решения задачи.
Найти минимальное из трех чисел.
Составить алгоритмы и программы для каждой из разновидностей циклов.
Найти минимальное число элементов последовательности, разность которых превышает введенное значение предельной разности.
Лабораторная работа №3
«Массивы, их виды. Использование массивов.»
Цель работы: Составление алгоритмов и программ для решения задач с использованием массивов.
Задание 1.
Вычислить среднее арифметическое k-го столбца матрицы . Матрица размерности [5х5] состоит из вещественных элементов.
Лабораторная работа №4
«Комбинированный тип данных, его использование. Массивы записей.»
Цель работы: Составление программ, использующих комбинированный тип данных и массивов, элементы которых являются записями.
Задание 1.
Разработать алгоритм и программу, в которой используется комбинированный тип данных и тип массивов.
В массив записей внести несколько записей по желанию пользователем. Максимальное количество записей в массиве-10.
Лабораторная работа №5
«Циклы и массивы»
Цель работы:
1) Изучить 3 вида циклов: цикл со счетчиком, цикл с предусловием, цикл с постусловием.
2) Научиться работать с массивами.
Задание 1.
1. Составить программу для заполнения пользователем одномерного массива размером 10 элементов целыми положительными числами из диапазона от 100 до 10000.
2. Обосновать выбор типа для элементов массива.
3. Для заполнения массива использовать цикл со счетчиком.
4. Для контроля правильности ввода использовать цикл с постусловием, алгоритм которого представлен на рисунке 3.
Рисунок 4. Блок-схема цикла контроля ввода.
Задание 2.
1. Осуществить вывод исходного массива на экран в одну строку, используя форматный вывод (Write(bPeremennaja:5)) и цикл с предусловием.
2. Далее, используя цикл со счетчиком и условный оператор, увеличить все элементы массива, меньшие 5000, на 100 с одновременным выводом его на экран в одну строку.
Ход выполнения работы:
Приложение: файл L5GnnN##.pas
Лабораторная работа №6
«Отладка программ»
Цель работы:
1) Освоить методы отладки программ.
2) Научиться переводить программы с языка программирования на алгоритмический язык.
Задание 1.
На основании выводимых данных и алгоритма программы определить для чего была сделана программа, что за результат она выдает.
Задание 2
Определить в программе лишние элементы (операторы, данные, имена) и удалить их. Действия обосновать.
Задание 3.
Оформить листинг программы в соответствии с правилами (использовать префиксы, соответствующие имена для переменных и констант, отступы в строках и т.п.).
Задание 4.
Составить описание алгоритма работы программы на алгоритмическом языке.
Исходный код программы примера:
program SmOA;
uses crt;
const max=300;min=15;var a:array[1..max] of integer;
b:array[1..min] of real;c:array[0..max+min] of longint;
e,i,m:integer;x,y,z:real;begin clrscr;
randomize;for i:=1 to max do a[i]:=random(1000);
begin if a[i]=1 then a[1]:=1;begin for m:=1 To min do b[m]:=a[m];
end;for e:=1 to max do write(a[e]:4);end;readln(x,y,z);
begin m:=a[1];for i:=2 to max do if m < a[i] then begin m:=a[i];e:=i;
end;end;if e>0 then begin writeln(e,' = ',a[e]);end;
writeln('ENTER');readln;end.
Ход выполнения работы:
Приложение: файл L6GnnN##.pas