Какой вид цикла используется для формирования массива?
Выберите один ответ:
цикл с постусловием Repeat...
цикл с предусловием While ...
цикл с параметром For...
Оператор, открывающий файл для записи:
Выберите один ответ:
Close
Assign
Reset
Rewrite
Определите, какой заголовок подпрограммы-функции записан правильно
Выберите один ответ:
function nod(x,y:integer)
нет правильного ответа
funtion nod(x,y:integer):integer
function nod(x,y)
Укажите правильное описание массива:
Выберите один ответ:
a: array [1..n, 1..m] of real
a: aray [1..n, 1..m] of integer
a: array [1…n, 1…n] of real
a: array {1..n} oФактическими параметрами называются
Выберите один ответ:
переменные, которые описаны в самой программе, а используются только в процедуре
константы, которые описаны в самой программе
переменные (константы), которые задаются при вызове процедуры (функции)f integer
Определите, какие переменные в приведенном фрагменте программы локальные.
Program Slon;
Uses CRT;
Var x,y : Integer;
Procedure P (a,b : Integer);
Var i : byte;
Begin
End;
…..
End.
Дошёл до светлофора - ждёшь зелёный свет - смотришь на лево, если машин нет до идёшь до середины - смотришь на право, если машин нет переходишь дорогу полностью.
Алгоритм похода в магазин.
Взять деньги - выйти с квартиры - закрыть дверь - дойти до магазина - купить нужные предметы - вернуться назад - открыть дверь - зайти обратно в квартиру.
Алгоритм приготовления чаю.
Налить в чайник воду - поставить кипятьтся - подготовить кружку(если нет чистой кружки, то помыть) - кинуть пакетик в чай - воду из чайника вылить в кужку - насыпать сахар - наслаждаться чаем.
Надеюсь проблем с переводом на украинский язык не будет.
var r1, r2:real; {Задаем переменные}
c:byte;
begin {Начало программы}
write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных}
readln (r1); {Ввод данных с клавиатуры}
write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных}
readln (r2); {Ввод данных с клавиатуры}
write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных}
readln (c); {Ввод данных с клавиатуры}
if c=1 {условие}
then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении}
else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении}
end. {Конец программы}