( ) ЯП Паскаль создал * Блез Баскаль Норберт Винер Никлаус Вирт Стив Джобс Запишите назначение функции SQR(A) в языке Паскаль. * квадратный корень из а квадрат числа а модуль а округления числа а до ближайнего целого Укажите правильный вариант записи оператора * Writel ('s'); Wirteln ('s'); Writeln ('s'); Wirteln (s); Выбрать оператор ввода данных * write readln degin var programm Оператор присваивания имеет вид * := = =: :=() =('') Вещественный тип данных объявляется служебным словом: * integer boolean char real read write Укажите неправильно записанный оператор: * if a if x and y then s:=s+1; else s:=s-1; if k<>m then k:=m if (a При выполнении последовательности операторов А:=45; B:=2; X:=A mod B значение переменной Х равно: * 1 90 22 0 В результате выполнения последовательности операторов x:=sqr(2); y:=sqrt(4)-abs(-2); write(x, ’ ‘, y)на экране будет выведено: * 0 и -1 4 и 6 4 и 0 1 и 0 Для описания переменных используется оператор * program begin write read var Процедура ветвления: * For - to – do; Begin – end; While – do; If – then – else; Какая запись на языке программирования соответствует словесному выражению «значение переменной b уменьшено на 5»? * b:=b+5 b:=b/5 b:=b*5 b:=b*b*b*b*b b:=b-5 В языке Паскаль использование циклов целесообразно: * при многократном выполнении одинаковых действий для вывода на печать вычисленного значения выражения для проверки условия для выполнения арифметических действий с арифметических операторов С оператора for в языке Паскаль программируется: * цикл-ПОКА цикл-ДО комбинация цикла-ПОКА и цикла-ДО цикл-ДЛЯ Отметьте, что определяется во фрагменте программы: геаdIn (а, b); for i:=1 to n do begin write (‘Enter х’); readIn (x); if x>b then b:=x else if x минимальный элемент разность минимального и максимального элементов максимальный элемент разность максимального и минимального элементов Определите, что будет напечатано в результате следующего алгоритма.Var s, k:integer; begins:=0; For k:=1 to 12 do s:=s+5; writeln(s); end. * 60 5 17 120 В результате выполнения фрагмента программы:а:=5;b:=20;а:=а-b/2;if а>b then с:=а+belse с:=b-а;переменная с примет значение: * 25 14, 5 -15 -14, 5 Отметьте, что произойдет в результате выполнения следующей программы. program pr; var а, b, с: integer; begin write (‘Введите первое целое число’); readln (а); write (‘Введите второе целое число’); readln (b); if а уменьшение меньшего из двух чисел вдвое уменьшение большего из двух чисел вдвое увеличение меньшего из двух чисел вдвое увеличение большего из двух чисел вдвое
Ответы
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что лишнее клавиатура, мышь, сканер, аккустические колонки
Автор: Палкина-Дроздова
ответьте на во и №4 – представьте развернутое решение (Дано Найти Решение)
Автор: Sergei_Olga658
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение: