Для каждого оператора, указанного в левой колонке, подберите соответствующее ему описание из правой колонки: а) WRITE1) осуществляет вывод на экран; б) BEGIN2) условный оператор неполной формы; в) READ3) обеспечивает ввод данных с клавиатуры; г) IF … THEN4) начало основного текста программы. 3. Служебное слово THEN в условном операторе переводится как... а) ЕСЛИ;б) ТОГДА;в) ИНАЧЕ;г) ВВОД;д) УСЛОВИЕ. 4. Укажите правильный вариант использования условного оператора полной формы. а) IF <условие> THEN begin <серия операторов 1> end ELSE begin <серия операторов 2> end; б) IF <условие> THEN <серия операторов 1>; ELSE <серия операторов 2>; в) THEN begin <серия операторов 1> end IF <условие> ELSE begin <серия операторов 2> end; г) THEN <серия операторов 1> ELSE <серия операторов 2> IF <условие>; д) IF <условие> THEN <серия операторов 1> 5. Вычислите значение переменной S: x:=2;y:=3; if x а) 1 б) 2 в) 3 г) 4 6. Определить, делится ли целое число Т на 5 без остатка. Какое условие можно использовать в этой задаче? а) T mod 5=0;б) T=5;в) T/5=0;г) T div 2=5;д) T mod 2=5 7. Входит ли число А в диапазон значений (4; 10]. Какое составное условие нужно поставить в этой задаче? а) (A>4) and (A<10);б) (A>=4) and (A<10); в) (A<4) and (A>=10);г) (A>4) or (A<=10);д) (A>4) and (A<=10 8. Вычислите значение переменной Z: Z:=1; if Z>0 then if Z<2 then Z:=Z+1 else Z:=Z-1; а) 0; б) 1; в) 2; г) 3. 9. Вычислите значение переменной S: a:=1; b:=2; S:=5; if a>b then S:=a else begin S:=b; S:=S+a; end; а) 2; б) 3; в) 4; г) 5. 10. Вычислите значение переменной x: a:=5; b:=2; c:=3; if (a>c) and (a else x:=a + b; а) 15; б) 7; в) 8; г) 5.
Ответы
var a,b, I, maxsumm, max : integer;
function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
sum:=0;
for k := 1 to x div 2 + 1 do
if x mod k = 0 then sum:= sum+k;
summdel:=sum;
end;
begin
writeln('Введите границы a,b ');
readln(a,b);
maxsumm := 1;
max := 1;
for i := a to b do
begin
if summdel(i) > maxsumm then
begin maxsumm:= summdel(i);
max := i;
end;
end;
writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите пожайлуста Азбуку Морзе
Какой адрес ячейки в электронной таблице правильный? а) h14d б) f457 в) 23g г) j78k
Как запишется число 4e516 в восьмеричной системе счисления?
Конспект формировании изображения на экране монитора 15
Примеры информационной модели «школа»
Объяснение:
Максимальная высота, на которую поднимается тело массой 1 кг, подброшенное вертикально вверх, составляет 20 м. Найдите чему была равна кинетическая энергия тела сразу же после броска. Решение. По закону сохранения энергии, максимальная кинетическая энергия в начале броска будет равна потенциальной энергии в наивысшей точке полета: ответ: 200. ответ: 200.