Язык программирования Pascal (тест)

Программирование на языке Pascal.

var a,k,b,c,d,e,r,m,q,z:integer;

begin

writeln('Укажите правильный ответ:') ;

writeln('Величиной целого типа-Integer является:') ;

writeln('1.количество мест в зрительном зале') ;

writeln('2.рост человека') ;

writeln('3.площадь государства') ;

readln(a) ;

if a=1 then

  begin

 writeln('Молодец!') ;

  k:=k+1;

  end

 else writeln('Неправильно!') ;

 writeln('') ;

writeln('Укажите правильные ответы:') ;

writeln('В конце раздела описания переменных ставится:') ;

writeln('1.Точка') ;

writeln('2.Точка с запятой') ;

writeln('3.Двоеточие') ;

readln(b) ;

if b=2 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('В конце заголовка программы ставится:') ;

writeln('1.Точка') ;

writeln('2.Двоеточие') ;

writeln('3.Точка с запятой') ;

readln(b) ;

if b=3 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('В стиске раздела описание переменных ставится:') ;

writeln('1.Точка с запятой') ;

writeln('2.Запятая') ;

writeln('3.Точка') ;

writeln('4.Двоеточие') ;

readln(c) ;

if c=2 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('В стиске вводимых и выводимых величин ставится:') ;

writeln('1.Запятая') ;

writeln('2.Точка с запятой') ;

writeln('3.ТОчка') ;

writeln('4.Двоеточие') ;

readln(d) ;

if d=1 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('Оператор присваивания обозначается:') ;

writeln('1.:=') ;

writeln('2. ;') ;

writeln('3.:') ;

readln(e) ;

if e=1 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('Символьные строки,включенные в список вывода,заключаются в:') ;

writeln('1.Скобки') ;

writeln('2.Апострофы') ;

writeln('3.Кавычки') ;

readln(r) ;

if r=2 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('Какой оператор организует цикл с предусловием:') ;

writeln('1. wrhile условие do <оператор>') ;

writeln('2. repeat <операторы> until услови') ;

writeln('3. repeat <операторы> do условие') ;

writeln('4. while условие until <оператор>') ;

readln(m) ;

if m=1 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('Массив-это...') ;

writeln('1.Пронумерованная конечная последовательность однотипных величин') ;

writeln('2.Элементы заранее определенного типа, к которому можно обратиться по индексу') ;

writeln('3.Элементы заранее определенного типа, к которым можно обратиться по имени') ;

if q=1 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

writeln('Укажите правильный ответ:') ;

writeln('Какой оператор организует цикл с постусловием:') ;

writeln('1. repeat <операторы> until условие') ;

writeln('2. if условие then <оператор 1> else <оператор 2>') ;

writeln('3. while условие do <оператор>') ;

if z=1 then

begin

writeln('Молодец!') ;

k:=k+1;

end

else writeln('Неправильно!') ;

writeln('') ;

if k=10 then writeln('Вы набрали ',k,' баллов, ваша оценка 5') ;

if (k<=9) and (k>=8) then writeln('Вы набрали ',k,' баллов, ваша оценка 4') ;

if (k<=7) and (k>=6) then writeln('Вы набрали ',k,' баллов, ваша оценка 3') ;

if k<6 then

writeln('Вы набрали ',k,' баллов, ваша оценка 2') ;

end.