Существует две программы «Долить 5 литров» и «Слить 3 литра». Напишите программы: А) наполнить емкость 4 литрами воды. Б) наполнить емкость 3 литрами воды Задание
Var h1,h2:integer; n1,n2:string; begin Write('Введите имя первой девочки: '); Readln(n1); Write('Введите рост первой девочки: '); Readln(h1); Write('Введите имя второй девочки: '); Readln(n2); Write('Введите рост второй девочки: '); Readln(h2); if h1>h2 then Writeln(n1,' выше, чем ',n2) else if h2>h1 then Writeln(n2,' выше, чем ',n1) else Writeln(n1,' и ',n2,' одного роста') end.
Тестовое решение: Введите имя первой девочки: Наташа Введите рост первой девочки: 163 Введите имя второй девочки: Даша Введите рост второй девочки: 167 Даша выше, чем Наташа
Блок-схема дана во вложении. Блоки ввода вывода упрощены в связи с невозможностью (и ненужностью) точно отобразить вид ввода и вывода.
var a: array[1..m1, 1..n1] of integer; m, n, i, j, t, imin, jmin, mn: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(m, n); Randomize; Writeln('Исходный массив'); mn := 32767; for i := 1 to m do begin for j := 1 to n do begin t := Random(101) - 50; Write(t:5); if mn > t then begin mn := t; imin := i; jmin := j end; a[i, j] := t end; Writeln end; Writeln('Минимальный элемент a[', imin, ',', jmin, ']=', mn) end.
А)
Долить 5 литровДолить 5 литров Слить 3 литраСлить 3 литра5+5=10
10-3=7-3=4
Б)
Долить 5 литровДолить 5 литров Долить 5 литровСлить 3 литраСлить 3 литраСлить 3 литраСлить 3 литра5+5+5=15
15-3=12-3=9-3=6-3=3