Const
s='информатика';
var
s1:string;
begin
s1:=s; Delete(s1,1,2); Delete(s1,7,3);
Writeln(s1);
s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
Writeln(s1)
end.
Длина маш. команды = код операции +адрес1+адрес2
2^i = 50----> i =6 бит - длина команды.
2^(10) = 1024 ----> 10 бит длина одного адреса
6+10+10 = 26 бит длина машинной команды
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
Во вложении архив с проектом программы. Сайт не позволяет загружать файлы архивов, поэтому изменил расширение.
1. Сохраните файл вложения на диск
2. Измените расширение файла с .pdf на .7z
3. Распакуйте архив, должно быть 4 файла:
- supermarket.dpr
- supermarket.exe
- unit1.pas
- unit1.dfm
Проект сделан на Delphi 2007, открывать нужно dpr файл, остальное создается автоматически.
Функция
при реализации на базовых элементах цифровой логики ("И", "ИЛИ", "НЕ") потребует четыре элемента - два на инверсию, один на дизъюнкцию этих инверсий и один на итоговую конъюнкцию. Сделаем несложное преобразование, воспользовавшись законом де-Моргана:
Теперь достаточно трех элементов. Функциональная схема представлена во вложении.
