1.Выберите основные данные, которые относятся к языку программирования Pascal.Выберите несколько из 5 вариантов ответа:
1) Назван в честь Блеза Бейсика.
2) Появился в 1965 г.
3) Наибольшее рас получил с появлением микроЭВМ и персональных компьютеров.
4) Был создан в 1968 г.
5) Создатель языка – Никлаус Вирт.
2.Что может входить в алфавит языка Pascal?Выберите несколько из 6 вариантов ответа:
1) Русские прописные буквы. 4) Русские строчные буквы.
2) Латинские строчные буквы. 5) Специальные символы.
3) Арабские цифры. 6) Латинские прописные буквы.
3.Из каких элементов состоит структура программы языка Pascal?
1) Тело программы. 4) Точка.
2) Раздел описания. 5) Раздел операторов.
3) Заголовок программы.
4.Соотнесите определения с их значениями.
1) Алфавит – это... __ цепочки символов, которые рассматриваются как
единые смысловые элементы с фиксированным значение.
2) Синтаксис – это... __ смысловое содержание языковой конструкции.
3) Семантика – это... __ составные символы, которые нельзя разрывать
4) Неделимые элементы – это... __ правописание языковых конструкций.
5) Служебные слова – это… __ множество символов, допустимых в записи
текстов программ.
var
a,b:array[1..n] of integer;
i,j,k,m,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:5);
end;
writeln;
j:=0;
for i:=1 to n do
if a[i]<0 then begin j:=j+1; b[j]:=a[i]; end;
m:=j;
for k := 1 to m-1 do
for i := 1 to m-k do
if (b[i]<b[i+1]) then
begin
c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;
end;
writeln('Вс массив:');
for i:=1 to m do write(b[i]:5);
writeln;
j:=0;
for i:=1 to n do
if a[i]<0 then begin j:=j+1; a[i]:=b[j]; end;
writeln('Полученный массив:');
for i:=1 to n do write(a[i]:5);
writeln;
end.
Пример:
Исходный массив:
-15 -8 -6 -13 15 24 5 -2 14 -1 19 -2 -7 -8 -23 20 -2 7 -2 -10
Вс массив:
-1 -2 -2 -2 -2 -6 -7 -8 -8 -10 -13 -15 -23
Полученный массив:
-1 -2 -2 -2 15 24 5 -2 14 -6 19 -7 -8 -8 -10 20 -13 7 -15 -23
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3