Readln;
Readln;
End.
Пример алгоритма с линейной структурой
Задача 4. В переменные a и b ввести два числа. В переменной m найти max {a,b} и вывести его на экран.
Используется ветвление типа "развилка", котороереализуется полным условным оператором.
Входные данные: a, b – целые числа.
Выходные данные: m – переменная, в которой мы находим максимальное значение.
ввод a, b |
вывод a, b |
stop |
a>b |
m = a |
m = b |
да |
нет |
Program prog4;
Var a, b, m: integer;
Begin
Write('vvedite v peremennie a and b dva chisla');
Read(a, b);
Writeln(' a = ', a,' b = , b);
If a>b then m:=a else m:=b;
Writeln(' max = ', m);
Readln;
Readln;
End.
Задача 5. Ветвление типа "развилка".
В переменные a, b и c ввести три числа. В переменной m найти max {a,b,c}и вывести его на экран.
Входные данные: a, b, c - целые числа.
да |
m=a |
да |
нет |
да |
нет |
нет |
stop |
a>b |
a>c |
b>c |
m=b |
m=c |
m=c |
ввод a, b, c |
вывод m |
вывод a, b, c |
Program prog5;
Var a, b, c, m: integer;
Begin
Write('vvedite v peremennie a, b and c tri chisla');
Read(a, b, c);
Writeln(' a = ', a,' b = , b,' c = , c);
If a>b Then
if a>c then m:=a else m:=c
Else
if b>c then m:=b else m:=c;
Writeln(' max = ', m);
Readln;
Readln;
End.
Задача №6.Ввод одномерного массива A[ i ] длиной n. Оператор цикла For (прямой пересчет)
Константа: n – длина массива.
Входные данные: элементы массива, которые мы сами вводим с клавиатурыA[i].
Выходные данные: элементы массива A
Program mas1;
i = 1 |
i ≤ n |
ввод A[i] |
i = i + 1 |
да |
Var i: integer;
A: array [1..n] of integer;
Begin
For i:=1 to n do
Begin
Write(' введите A[' , i , '] ');
Readln(A[i]);
End;
Дата добавления: 2015-09-28; просмотров: 587;