Лаборатория по Pascal: готовые примеры и решения

Вопросы и задания по лабораторным работам (Программирование на Pascal)
Лабораторная работа №1
Что выведется на экран после выполнения следующих команд:
a) writeln('2+3');
b) writeln(6/2);
c) writeln('10*5=', 10*5);
d) write('x='); writeln(7);
Напишите программу, которая выводит на экран ваши фамилию, имя и отчество в 3-ёх строчках.
Напишите программу, которая печатает на экране площадь, периметр и длину диагонали прямоугольника со сторонами a и b, где a и b – константы со значениями 3 и 4.
Определить значения переменных a, b и c после выполнения следующих операторов:
a) a := 3; b := a - 1; c := a + b * 2;
b) a := 1; b := a * 4; c := a * b; c := b * c - a;
c) a := 1; b := 3; c := sqr(b); a := trunc(a / b * 10); b := b + 1; c := a * b mod c;
Напишите программу, которая для заданного пользователем значения температуры в градусах Фаренгейта определяет значение этой же температуры в градусах Цельсия.
Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k (например, если k=130985, то h=9).
Поменять местами значения переменных x, y и z так, чтобы в x оказалось значение переменной y, в y – значение переменной z, а в z – прежнее значение переменной x.
Найти ошибки в следующих программах:
a) Программа с изменением константы.
b) Программа с неинициализированной переменной.
c) Программа со сравнением ord(x) и логического значения.
d) Программа с необъявленной переменной.
e) Программа со сравнением вещественных чисел и констант.
Написать программу, решающую следующую задачу:
Два автомобиля имеют скорости V1 км/ч и V2 км/ч соответственно, находятся на расстоянии S км друг от друга и движутся в противоположные стороны. Определить расстояние между ними через T часов.
Написать программу, которая печатает true или false в зависимости от того, может ли шахматная фигура «Слон» перейти за один ход с одного заданного поля шахматной доски на другое.
Пользователь задаёт координаты двух ячеек шахматной доски (x1, y1, x2, y2), каждое в диапазоне от 1 до 8.

Лабораторная работа №2
Чему будет равна переменная y после выполнения следующих операторов:
a) x:=5; y:=0; if x>0 then y:=1;
b) x:=-10; y:=1; if x>0 then y:=3; y:=2*y;
c) x:=10; y:=0; if x>0 then y:=1 else y:=2;
d) x:=10; y:=0; if x>0 then y:=1 else y:=2;
e) x:=-10; y:=1; if x>0 then begin y:=3; y:=2*y; end;
f) x:=10; if (x>0) and (x<5) then begin y:=2; y:=10*y; end else begin y:=5; y:=20-y; end;
Написать операторы, реализующие данные блок-схемы:
Условный оператор для поиска максимума из двух чисел.
Условный оператор для обмена значений переменных (сортировка).
Вложенные условные операторы для присвоения значения k в зависимости от знаков x и y.
Какое значение будет иметь переменная z после выполнения операторов z:=0; if x>0 then if y>0 then z:=1 else z:=2; при следующих значениях переменных x и y:
a) x=y=1
b) x=1, y=-1
c) x=-1, y=1
Записать указанное действие в виде одного условного оператора:
Написать программу, которая для заданного целого числа в диапазоне от 1 до 999 печатает на экране, является ли оно одно-, двух- или трехзначным.
Написать программу: даны числа a, b и c (a ≠ 0). Найти вещественные корни уравнения
Если корней нет, то сообщить об этом.
Написать программу, которая по заданным координатам поля шахматной доски (x и y, каждое в диапазоне от 1 до 8) определяет, является ячейка белой или черной.
Предполагается, что поле (1, 1) является черным.
Написать программу: даны произвольные числа a, b, c.
Если нельзя построить треугольник с такими длинами сторон – напечатайте 0.
Иначе напечатать 3, 2, 1 в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо иной.
Условия существования треугольника:
Написать программу: локатор ориентирован на одну из сторон света («С» – север, «Ю» – юг, «З» – запад, «В» – восток) и может выполнять три вида цифровых команд.
Команды: 1 – поворот налево на 90°; -1 – поворот направо на 90°; 0 – разворот на 180°.
Пользователь задает исходную ориентацию C и две команды N1 и N2. Вывести ориентацию локатора после выполнения указанных команд.

Лабораторная работа №3
Определить значение переменной s после выполнения следующих операторов:
a) s:= 0; for i:=1 to 5 do s:=s+i;
b) s:= 0; for i:=1 to 10 do if odd(i) then s:=s+i;
c) s:= 0; for i:=-3 to 3 do begin if i<0 then k:=-i else k:=i; s:=s+k; end;
d) s:= 100; for i:=5 downto 2 do s:=s div i;
Программа. Дано 100 вещественных чисел.
a) Вычислить максимальное из них.
b) Вычислить разность между максимальным и минимальным из них.
Программа. Вычислить сумму ряда:
Программа. Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность.
Программа. Напечатать таблицу значений функций sin x и cos x на отрезке [0, 1] с шагом 0.1.
Считать, что при печати на каждое вещественное число отводится по 6 позиций строки.
Программа. Вычислить сумму:
Определить значение переменной s после выполнения следующих операторов:
a) s:= 1; while s<20 do s:=2*s;
b) s:= 55; i:=10; while s>i do s:=s-i;
c) s:= 0; i:=0; while i<5 do begin i:=i+1; s:=s+i end;
d) s:= 0; i:=0; repeat i:=i+1; s:=s+i until i>=5;
Программа. Дана непустая последовательность положительных вещественных чисел
Программа. Подсчитать k – количество цифр в десятичной записи целого неотрицательного числа n.
Программа. Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км.
Каждый следующий день он увеличивал длину пробега на P процентов (P – вещественное число в диапазоне от 0 до 50).
Определить, через сколько дней суммарный пробег спортсмена составит 200 км.
Вывести также длину пробега в каждый из дней тренировок.Показать/скрыть дополнительное описание