Паскаль по информатике 8 класс
Общие сведения о языке программирования Pascal.
Задание 1
Соотнесите служебные слова языка Pascal с их значениями.
Укажите соответствие для всех 8 вариантов ответа:
1) and А) программа
2) array Б) и
3) begin В) процедура
4) var Г) или
5) end. Д) переменная
6) or Е) начало
7) procedure Ж) массив
8) program З) конец программы
Задание 2
В каких годах и кем был создан язык программирования Pascal?
Выберите один из 4 вариантов ответа:
1) 1968-1969гг., Блезом Паскалем.
2) 1968-1969 гг., Никлаусом Виртом.
3) 1966-1968 гг., Никлаусом Виртом.
4) 1966-1968 гг., Блезом Паскалем.
Задание 3
Укажите верные имена переменных.
Выберите несколько из 8 вариантов ответа:
1) b2 5) max
2) _new 6) begin
3) 8_марта 7) F = A
4) mass 8) программа
Задание 4
Программа – это ...
Выберите один из 3 вариантов ответа:
1) запись алгоритма на английском языке.
2) запись алгоритма на любом из формальных языков.
3) запись алгоритма на языке программирования.
Задание 5
Что входит в алфавит языка программирования Pascal?
Выберите несколько из 8 вариантов ответа:
1) Латинские прописные буквы.
2) Строчные буквы русского алфавита.
3) Специальные символы: знаки препинания, знак подчёркивания, круглые, квадратные и фигурные скобки, знаки арифметических действий и т. д.
4) Неделимые элементы: знак операции присваивания, знаки больше либо равно и меньше либо равно.
5) Римские цифры.
6) Латинские строчные буквы.
7) Арабские цифры.
8) Прописные буквы русского алфавита.
Задание 6
Языки программирования – это ...
1) формальные языки, предназначенные для создания интерактивного диалога между пользователями.
2) формальные языки, предназначенные для записи алгоритмов, исполнителем которых будет компьютер.
3) формальные языки, предназначенные для общения людей при компьютера.
Задание 7
Алфавит языка – это ...
1) набор допустимых символов, которые можно использовать для записи программы.
2) все буквы русского алфавита.
3) любые символы формальных языков.
Задание 8
Соотнесите переменные с их типами.
Укажите соответствие для всех 6 вариантов ответа:
1) A:= 125 А) string
2) B:=0.365 Б) char
3) C:= 'G' В) byte
4) D:= 'Real' Г) integer
5) E:= false Д) boolean
6) F:= 2 Е) rea
var ksl,ksm:longint;
a:array of integer;
i,sred,k:integer;
f:Text;
s:string;
BEGIN
clrscr;
Assign(f,'f1.txt');
Reset(f); //из файла
while not eof(f) do
begin
readln(f,s);
ksm:=ksm+length(s); //считаем все символы
end;
writeln(ksm);
Reset(f); for i:=1 to ksm do
begin
if (s[i]=' ') then
ksl:=ksl+1;//считаем все слова
end;
writeln(ksl);
Reset(f); //из файла
setlength(a,ksl+1);
for i:=1 to ksl do
begin
read(f,a[i]);
end;
Close(f);
For i:=1 to ksl do
begin
If (a[i]=0) then a[i]:=a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и последней компонент файла''
if (a[i]>0) then
begin
sred:=sred+a[i]; // ''найти среднее арифметическое положительных компонент''
inc(k);
end;
if (a[i]<0)then a[i]:=a[i]- ABS( a[1]+a[ksl] ); // ''все отрицательные компоненты уменьшить на значение суммы''
end;
Rewrite(f); //в фаил
for i:=1 to ksl do
begin
write(f,a[i],' ');
end;
Close(f);
Writeln(' sred= ',sred/10:0:1);
END.
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.