Тема: Знакомство с языком Паскаль.
Задание:
1. Задача. Найти площадь треугольника со сторонами a и b (линейный алгоритм). Составить блок-схему. Набрать программу в PascalABC.
2. Задание для самостоятельной работы: найти сумму двух чисел. Составить блок-схему и протестировать в Паскале.
Порядок выполнения:
23. На рабочем столе найти значок 
и открыть программу PascalABC
24. Набрать код программы.
| начало |
| конец |
| a, b |
| s |
| s:=(a+b)/2 |
Program Treugolnik;
Var a, b, s: real;
Begin
Writeln (‘Введите стороны a и b’);
Readln (a,b);
s:=(a+b)/2;
Writeln (‘Площадь треугольника равна ’,s);
End.
| Кнопка запуска программы |
25. Для запуска программы нажать зеленую стрелку.
26. Ввести стороны треугольника. После каждого ввода числа нажимать Enter.
Практическая работа №16
Тема: Работа с готовыми программами, их отладка.
Задание:
27. Задача. Найти наибольшее число из трех чисел (алгоритм с ветвлением). Составить блок-схему. Набрать программу в PascalABC.
28. Задание для самостоятельной работы: найти наименьшее из двух чисел. Составить блок-схему и протестировать в Паскале.
Порядок выполнения:
1. На рабочем столе найти значок и открыть программу PascalABC
2. Набрать код программы.
| конец |
| max |
| начало |
| a, b, c |
| max:=c |
| c>max |
| max:=a |
| max:=b |
| a>b |
Program Primer;
Var a, b ,c, max: integer;
Begin
Writeln (‘Введите три числа’);
Readln (a,b,c);
If a>b then
max:=a
else
max:=b;
If c>max then
max:=c;
Writeln (‘Наибольшее ’, max);
End.
| Кнопка запуска программы |
3. Для запуска программы нажать зеленую стрелку.
4. Ввести три числа. После каждого ввода числа нажимать Enter.
Практическое задание №17
Тема: : Ветвления на Паскале.
Задание:
1. Прочитать текст «Вложенные ветвления», изучите пример.
2. Опишите фрагмент блок-схемы на языке программирования.
3. Представьте фрагмент программы в виде блок-схемы.
4. Вычислить значение bпосле выполнения фрагмента программы.
Порядок выполнения:
Задание №1. Вложенные ветвления.
Ветвление называется вложенным, если выполняется по одной из ветвей другого ветвления. При описании вложенных ветвлений на языке программирования Turbo Pascal следует помнить, что перед Else точку с запятой ставить нельзя!
| a > b |
| c > b |
| k:=1 |
| k:=2 |
| k:=3 |
- +
If a> b then
If c> b then
k:=1 - +
Else
k:=2
Else
k:=3;
Задание №2.Опишите фрагмент блок-схемы на языке программирования.
| a > b |
| c > b |
| k:=1 |
| k:=2 |
1)
- +
- +
| a > b |
| c > b |
| k:=2 |
| k:=3 |
2) - +
- +
| a > b |
| k:=3 |
| k:=1 |
| с > b |
- +
- +
4)
| k:=1 |
| a > b |
| с > b |
- +
- +
| a > b |
| с > b |
| k:=2 |
- +
- +
Задание №3.Представьте фрагмент программы в виде блок-схемы.
1) IF a>b THEN
k:=k+1
ELSE
IF a>b THEN
k:=k+2
ELSE
k:=k+3;
Writeln(k);
2) IF a=0 THEN
Begin
X:=1;
Y:=1;
End
ELSE
Begin
X:=2;
Y:=2;
End;
Задание №4.Вычислить значение bпосле выполнения фрагмента программы.
| a:=3; b:=5 c:=3; IF b>4 THEN begin a:=c; b:=c; end ELSE a:=15; b:=15; b=______ | a:=3; b:=5 c:=3; IF b>4 THEN begin a:=c; b:=c; end; ELSE a:=15; b:=15; b=______ | a:=3; b:=5 c:=3; IF b>4 THEN begin a:=c; b:=c; end ELSE begin a:=15; b:=15; end; b=______ | a:=3; b:=5 c:=3; IF b>4 THEN begin a:=c; b:=c; end ELSE; a:=15; b:=15; b=______ |
Практическое задание №25
Практическое задание №18