Составим схему алгоритма решения задачи:
Листинг 2. Текст программы решения задачи 2.
Program PROT; {Заголовок программы}
var {Раздел описания переменных }
a, r, Vk, Vot, Vsh, p : real; {Описания переменных}
begin {Ключевое слово начало программы}
Write (‘Введите ребро куба a :’); {Выводит на экран ‘Введите ребро куба a :’}
ReadLn (a); {Ввод ребра куба с помощью процедуры ReadLn}
Write (‘Введите радиус шара r :’); {Выводит на экран ‘Введите радиус шара r :’}
ReadLn (r); {Ввод радиуса шара}
Vk : = a*a*a; {Вычисление объема куба }
Vsh := 4/3*Pi*r*r*r; {Вычисление объема шара}
Vot := Vk - Vsh ; {Вычисление объема отходов}
p := Vot / Vk *100; {Нахождение процента материала, идущего в отходы}
WriteLn(‘Отходы составляют ’ , p ,’%’); {Выполняется вывод результатов вычисления}
end. {Ключевое слово конец программы}
Итоги: 1В первой строке пишут заголовок программы, хотя это и не обязательно.
2.Далее идет раздел описания переменных. Все переменные должны быть предварительно описаны, чтобы компилятор знал, сколько под них выделить места в памяти и что с ними можно делать.
3.Потом следует раздел операторов (begin ….end).
4.В следующей строке - выводим на экран сообщение, с помощью процедуры Write или WriteLn, поясняющее, какие данные необходимо ввести.
5.Далее осуществляется ввод данных с клавиатуры с помощью процедуры ввода данных ReadLn или Read.
6.Далее находятся непосредственные вычисления.
7.Выполняется вывод результатов вычисления с помощью процедуры WriteLn..
До запуска программы подготовьте тестовые примеры, содержащие исходные данные и ожидаемые результаты. Отдельно поверьте реакцию программы на неверные исходные данные.
При записи выражений обращайте внимание на приоритет операций.
Разделяйте данные при вводе пробелами, символами перевода строки или табуляции.
Тщательно форматируйте текст программы и снабжайте его содержательными комментариями.
Индивидуальные задания
Задание 1.
Что будет выведено на экран в результате работы программы? ( программу нужно проделать вручную, не набирая ее текст в Паскале)
1var a, b : char; z : real; c : boolean; begin a := ‘?’; b := ‘8’; z := -38.7; c := true; Writeln(a, a, b, b); Writeln(a, a : 2, b : 2); Writeln(z, z, z : 7 : 3); Writeln(c, ‘=’, not(c):6); Writeln(‘a =’, a : 3, a); end. |
2var a, b : char; z : boolean; f : integer; begin a := ‘z’; b := ‘r’; z := false; f := 138; Writeln(a, b, f, z); Writeln(a, b:4); Writeln(f, f, f); Writeln(f=138, not(z)); end. |
3var j : integer; f, z : boolean; begin j := 168; f := true; z := false; Writeln(z, not(f)); Writeln(j=168); Writeln(j, j); Writeln(j, j:5); end. |
4 var x, y : char; c : boolean; begin x := ‘*’; y := ‘z’; c := false; Writeln(c, not(c)=not(c)); Writeln(x=y); Writeln(‘z’, ‘=’, x:2); end. |
5 var g, f : boolean; j : char; begin g := true; f := false; j := ‘f’; Writeln(j, f); Writeln(f=not(g)); Writeln(j, j, j); Writeln(j, j:3, j:2); end.
|
6 var a, b : char; z : real; c : boolean; begin a := ‘?’; b := ‘8’; z := -38.7; c := true; Writeln(a, a, b, b); Writeln(a, a : 2, b : 2); Writeln(z, z, z : 7 : 3); Writeln(c, ‘=’, not(c):6); Writeln(‘a =’, a : 3, a); end.
|
7 var a, b : char; i, j : integer; begin a := ‘b’; b := ‘a’; i := 100; j := 99; Writeln(‘b’, a, a, b); Writeln(j+1, i); Writeln(i-1=j); Writeln(a, i:4, ‘b’, ‘=’, j); end.
|
8 var a, b : boolean; i, j : integer; begin a := true; b := true; i := 115; j := 551; Writeln(not(a):8, b); Writeln(i=j); Writeln(i, j, i); Writeln(i:4, j:4); end. |
9 var g, f : boolean; j : char; begin g := true; f := false; j := ‘f’; Writeln(j, f); Writeln(f=not(g)); Writeln(j, j, j); Writeln(j, j:3, j:2); end. |
10 var x, y : char; a : boolean; begin x := ‘?’; y := ‘z’; a := false; Writeln(x, x, x, x); Writeln(x, x:2, x:3, x); Writeln(not(a):5); end.
|
11 var f : char; i : integer; m : boolean; begin f := ‘i’; i := 100; m := false; Writeln(f, i); Writeln(f:4, i:4); Writeln(m=m, not(m)); Writeln(i+1, f); End. |
12 var a, b : char; z : boolean; f : integer; begin a := ‘z’; b := ‘r’; z := false; f := 138; Writeln(a, b, f, z); Writeln(a, b:4); Writeln(f, f, f); Writeln(f=138, not(z)); end. |
13 var a, b : char; z : real; c : boolean; begin a := ‘?’; b := ‘8’; z := -38.7; c := true; Writeln(a, a, b, b); Writeln(a, a : 2, b : 2); Writeln(z, z, z : 7 : 3); Writeln(c, ‘=’, not(c):6); Writeln(‘a =’, a : 3, a); end. |
14 var x, y : byte; a, b : boolean; c : char; begin x := 18; y := 1; a := true; b := true; c := ‘x’; Writeln(x, y, x+y); Writeln(not(a), b:6); Writeln(c, ‘=’, c:5); end. |
15 var x, y : byte; a, b : boolean; c : char; begin x := 5; y := 18; a := true; b := true; c := ‘x’; Writeln(abs(10-15)=5); Writeln(x, x, x:4, X:2); Writeln(not(a), b:5); end.
|
Задание 2.
Напишите программу для расчета значения функции по формуле. Отсутствующие в языке функции выразите через имеющиеся.
№ |
Условие задачи |
1 |
|
2 |
|
3 |
|
4 |
|
5 |
|
6 |
, |
7 |
|
8 |
|
9 |
|
10 |
|
11 |
, x, y, z>0 вводятся с клавиатуры.
|
12 |
|
13 |
|
14 |
|
15 |
|
x>0,
y>0
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
,
x,
y,
z
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
,
x,
y
вводятся с клавиатуры.
,
x>0,
a>0
вводятся с клавиатуры.
,
x,
y,
z
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
x>0,
y>0
вводятся с клавиатуры.
,
x>0,
y>0
вводятся с клавиатуры.
Задание 3.
Напишите программу для решения геометрической задачи.
№ |
Условие задачи |
1 |
Дана площадь круга. Найти длину окружности, ограничивающей этот круг. В качестве значения Pi использовать 3.14. |
2 |
Треугольник задан своими координатами своих вершин. Вычислить длины сторон треугольника.
|
3 |
Вычислить объем и площадь боковой поверхности правильной треугольной пирамиды со стороной равной а..
|
4 |
Дана длина окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения Pi использовать 3.14. |
5 |
Треугольник задан величинами своих углов и радиусом описанной окружности. Найдите стороны треугольника. |
6 |
Треугольник задан длинами сторон a, b, c. Найдите длины высоты, медианы и биссектрисы этого треугольника, опущенные на сторону а. |
7 |
Введите положительное число а. Вычислите площадь квадрата со стороной а, площадь равностороннего треугольника со стороной а, площадь круга, радиус которого равен а. |
8 |
Вычислите длину окружности, площадь круга, объем шара заданного радиуса |
9 |
Даны координаты вершин некоторого треугольника. Вычислите его периметр. |
10 |
Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2). В качестве значения Pi использовать 3.14. |
11 |
Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b. |
12 |
Дан цилиндр, с заданным радиусом основания r и высотой h. Найти объем цилиндра |
13 |
Вычислить площадь треугольника со сторонами а, в, с по формуле Герона. |
14 |
Треугольник задан тремя сторонами a, b, c. Вычислить его площадь и периметр. |
15 |
Даны стороны прямоугольник a и b. Найти его площадь S и периметр P. |