Var a,b,y: integer;
begin
readln(a, b);
if a < b then y:=b-a;
if a>=b then y:=a-b;
writeln(y);
end.
Картинка с заполненной таблицей прикреплена,рассказываю сам алгоритм
Берём 640*480 пикселей и 4 бита
Всего точек на экране: 640*480=307200
Необходимый объём видеопамяти: Умножаем количество битов на количество точек на экране: 307200*4=1228800 бит
1 Килобайт=2 в 10 степени байт= 2 в 13 степени бит
1 Мегабайт=2 в 20 степени байт=2 в 23 степени бит
Как же перевести из битов в килобайт?
Берём наше решение-1228800 бит
вычисляем 2 в 13 степени=8192
1228800/8192=150 Кб и дальше по такой же схеме делаешь
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
Шина команд имеет множество определений, многие из которых не всегда являются чёткими, так например:
1) В случае с реализацией в железе. Это множественное подключение логических элементов через последовательную или параллельню сеть обеспечивающих консестентную доставку информации в системах передачи данных, не обязательно цифровых, например система клапанов двигателя и система регулирования так же является шиной команд но в аналоговой, механической реализации.
2) В случае с пк или процессором ПК в частности шина команд (Command Bus) обеспечивает интерфейс для передачи процессору команд и результата их вычисления(в ряде случаев) по универсальному методу из программной области памяти (ОЗУ,ПЗУ, ППЗУ) зависит от конкретной реализации ВУ в случае с радиометрическими вычислителями, такие как на радарных станциях и стсемах наведения шина команд фактически отсутствует, т.к. несколько снижает скорость обмена данными уступая здесь узкоспециальным интерфейсам.