1. к какому типу относится переменная а: =26? а) char; б) integer; в) boolean; г) real. 2. определите, является ли число м четным. какое условие можно использовать в этой ? а) m mod 2=0; б) m/2=0; в) m div 2 =0; г) m='четное'. 3. входит ли число а в диапазон значений (4; 10]? какое составное условие нужно поставить в этой ? а) (a> 4) and (a< =10); б) (a< 4) and (a> =10); в) (a> 4) or (a< =10); г) not (a> 4) and not (a< =10 4. какое условие следует использовать для вычисления y по формулам: y=(x+1)2, при x< 1; y=cosx, при x≥1? а) if x> =1 then y: =cos(x) else y: =sqr(x+1); б) if x< 1then y: =cos(x) else y: =sqr(x+1); в) if x> =1 then y: =sqr(x+1) else y: =cos(x); г) if x> 1 then y: =cos(x) else y: =sqr(x+1); 5. что будет выведено на экран после выполнения фрагмента программы? begin a: =1; b: =2; if (а> =1) and (b> =2) then n: =a+b else n: =a-b; writeln(n); end. а) 3; б) -1; в) 1; г) 2. 6. есть ли в следующих текстах пустые операторы? (в ответе перечислите буквы через запятую) а) if x> 0 then x: =3 else; y: =x-2 б) if a mod b=0 then else b: =0 в) begin x: =2; y: =5; end г) begin a: =true; b: =b or a end д) begin if x=0 then x: =2; y: =x 7. найдите ошибки в следующих операторах и запишите исправленные операторы. а) begin if x2< 1 then y: =sinx; x: =x2 ; end; б) if 0
Ответы
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
Объяснение:
Для начала разберемся в основной конструкции:
if(...) then ... else...
которая обозначает:
1)если(if) (выполняются заданные условия),
2) то(then) выполняется что-то ,
3) иначе(else) выполняется что-то другое.
В данных примерах а = 18; b=-15; p=true (правда) (по условию)
а) if (a>b) then x:=1 else x:=4
если (а>b), тo x =1, иначе х=4
подставляя значения из условия получаем, что 18 > -15 ? = да, следовательно х=1b)if a<b then x:=15 else x:=–21
если (а<b) то х=15; иначе х=-21
18<-15 ? = нет, следовательно х=-21с)if p then x:=32 else x:=638;
если (р), то х=32 иначе х=638
true? = да, следовательно х=32d)if not p then x:=0 else x:=1;
если (не р ), то х=0, иначе х=1
не р = не true = false? = нет, следовательно х=1е)if (a<b) and p then x:=–1 else x:=1
если (а<b) и р, то х=-1 иначе х=1
18<-15? = нет(или false), (18<-15) and true= false and true = false?— нет, следовательно, х=1f)if (a>b) or p then x:=–6 else x:=–5;
если (а>b) или р, то х=-6 иначе х=-5
(18>-15)? = да(или true), (18>-15)or true = true or true = true ? = да, следовательно, х=-6g)if not (a>b) then x:=19 else x:=–2;
если НЕ(а>b), то х=19, иначе х=-2
(18>-15)?=да(или true), NOT(18>-15)= NOT(true)= false?=нет, следовательно х=-2h) if (a=b) or p then x:=89 else x:=–15.
если (а=b) или р то х=89 иначе х=-15
(18=-15)?=нет(или false), (18=-15)or true = false or true = true ? = да, следовательно х=89Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите 3 алгоритма: линейный., с ветвлениями, с повторением
Sketchup программасындағы терезесіндегі құралдар қандай топқа ажырайды?
Объясните функции основных инструментов программы
Как найти сумму чисел кратных 7 от 1 до n включительно
2)а
3)а
4)а
5)а
6)аб
7)а)if x2<1 then
begin
y:=sin(x);
x:=x2;
end;
б)if false then ... else ...
Доп:
а) begin
if x2<1 then
begin
y:=sinx;
x:=x2;
end;
б)
if (0<x) and (x<2) then
if y<1 then
y:=y+3 else
y:=y2 else
y:=sqr(y);
в)
if (1<x) and (x<2) then
begin
x:=x+1;
y:=0;
end
else
begin
x:=0;
y:=y+1;
end;
г)if (1<x) and (x<2) then
begin
x:=x+1;
y:=0;
end
else
begin
x:=0;
y:=y+1;
end;