Народ, написать программу на vba. 1. даны два действительных числа x и y. если наименьшее из них отрицательно, то заменить его нулем, в противном случае единицей. 2. даны целые числа a1, a2, an. вычислить s=1/a1+1/(a1+a2)++1/(a1+a2++an)
1 Центральная часть компьютера, выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом.
2 Процессоры конструктивно могут выполняться как в виде одной большой интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат устройств.
4 Арифме́тико-логи́ческое устро́йство — блок процессора, который под управлением устройства управления служит для выполнения арифметических и логических преобразований над данными
5 технологический процесс изготовления полупроводниковых изделий и материалов; состоит из последовательности технологических и контрольных операций
1 Центральная часть компьютера, выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом.
2 Процессоры конструктивно могут выполняться как в виде одной большой интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат устройств.
3 Управля́ющий автома́т, устро́йство управле́ния проце́ссором — блок, устройство, компонент аппаратного обеспечения компьютеров.
4 Арифме́тико-логи́ческое устро́йство — блок процессора, который под управлением устройства управления служит для выполнения арифметических и логических преобразований над данными
5 технологический процесс изготовления полупроводниковых изделий и материалов; состоит из последовательности технологических и контрольных операций
а на шестой ответа не знаю(
Объяснение:
ответ:
на форму поставил компонент memo
в edit1 и edit2 вводим значения строк и столбцов
для цикла for i: = for j: =
на кнопке следующий код
объяснение:
procedure tform1.button1click(sender: tobject);
var i,j: integer; s: string;
begin
a: = strtoint(edit1.text);
b: = strtoint(edit2.text);
for i: = 1 to a do begin
s: = '';
for j: = 1 to b do
s: = s+' '+inttostr(i*j);
memo1.lines[i-1]: = s;
end;
end;