Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и определяется наименьшее из введенных чисел. (Делать всё в паскаль)
1. устройства "понимают" друг друга, потому что вся информация кодируется двоичным кодом. если взять интернет, то обычно действует кодировка информации _ UNICODE. 2. для начала найдём общий объём передаваемой информации: для этого переведём килобиты в биты 56 кбит * 1024 = 57344 бит. умножим его на время: 57344*5 = 286720 бит информации будет передано за 5 секунд. возьмём кодировку unicode, в которой символ кодируется 16 битами. формула: I=Ki; K=I/i = 286720/16= 17920 символов. 3. переведём кбайты в биы 625 кбайт = 5120000 бита. так как нам нужно время, то воспользуемся формулой I=vt; t=I/v = 5120000 / 64000=80c
Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var s, k: integer; label met; begin s:=-12; k:=90; Writeln('s=',s,', k=',k); s:=s+10; Writeln('s=',s); met: Writeln('Метка met:'); k:=k+10; Write('k=',k); if k<200 then s:=50 else s:=s+k; Writeln(', s=',s); if k<200 then goto met; Writeln('Результат: s=',s) end.
pascal
Объяснение:
program minimum;
var
min, i: integer;
begin
repeat
Write('Ведите число (для окончания 0): ');
ReadLn(i);
if ((i <= min) or (min = 0)) and (i <> 0) then min := i;
until i = 0;
WriteLn('Минимальное из введенных чисел = ', min);
end.