function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
1) 56(10) ⇒ х(2) Для перевода целого числа из десятичной системы в двоичную выполняем его целочисленное деление на два с сохранением остатка. Если частное больше единицы, делим его на два, снова сохраняем остаток и т.д. Как только частное станет равным 1 или 0, записываем его, а затем приписываем к нему слева остатки в порядке, обратном их получению. 56 / 2 = 28 (остаток 0) 28 / 2 - 14 (остаток 0) 14 / 2 = 7 (остаток 0) 7 / 2 = 3 (остаток 1) 3 / 2 = 1 (остаток 1) Записываем результат. 56(10) = 111000(2)
Переводы в десятичную систему счисления выполняются путем записи числа в расширенном виде по основанию системы счисления, в которой представлено число. А далее операции выполняются в десятичной системе.
Переводы чисел между системами счисления по основаниям, кратным степеням двойки (2,4,8,16) выполняется через двоичную систему счисления, как через промежуточную. Например, при переходе от восьмеричной системы к шестнадцатиричной, мы учитываем, что , каждую восьмеричную цифру заменяем тремя двоичными (триадой) и получаем двоичное число. А затем, зная что , мы группируем двоичные разряды справа налево по четыре, получая тетрады. И, наконец, каждую тетраду мы заменяем соответствующей шестнадцатиричной цифрой. Описывать этот процесс долго, а перевод делается быстро. 3) 77(8) = 111 111(2) = 11 1111(2) = 3F(16) 4) 57(8) = 101 111(2) = 101111(2) 5) 9A(16) = 1001 1010(2) = 10011010(2) 7) 10011(2) = 010 011(2) = 23(8) 8) 101011(2) = 0010 1011(2) = 2B(16)
program Cxema;
var a : integer;
b,s: real;
begin
a:=5;
b:=- 3.5;
s:=a+b;
writeln( 'сумм а=5 и b = -3.5 ', s);
end.
Объяснение: