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; просмотров: 580;