Контрольная работа на Tpascal 9 класс.
элективный курс по информатике и икт (9 класс) на тему

Задание №1

• Изучить теоретический материал по теме лабораторной работы №1.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий:

1. Нефтебаза отпустила за два дня S л. бензина. Во второй день база отпустила на V л. больше. Сколько литров бензина база отпустила отдельно за каждый день?

uses crt;

var summa,raz,st,day1,day2:real;

begin;

clrscr;

write('Сколько литров бензина отпустила нефтебаза за 2 дня');

readln(summa);

writeln('Введите на сколько отпущенное кол-во бензина

одного дня больше чем другого');

readln(raz);

st:= (summa - raz) / 2.0;

day1:= st;

day2:= st + raz;

writeln('первый день-',day1:7:2,'л.');

writeln('второй день-',day2:7:2,'л.');

end.

Задание №2

• Изучить теоретический материал по теме лабораторной работы №2.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий:

Таблица 1. Задания

program primer2;

var x,y: real;

p:=3.14;

begin

writeln('Введите x');

read (x);

y:=(2*cos(x-p/6))/(1/2+sqr(sin(x)));

 writeln('Ответ=', y:3:3);

end.

Задание №3

• Изучить теоретический материал по теме лабораторной работы №4.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий:

                                      Таблица 2. Задания

var

x: integer;

y: real;

begin

write ('x = ');

readln (x);

if x <= 3 then

y := sqr(x)-3*x+9

else

if x > 3 then

y :=(1/(sqr(x)*x+6));

writeln ('y = ', y);

readln

end.

Задание №4

Порядок выполнения индивидуальной работы

• Изучить теоретический материал по теме лабораторной работы №5.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий:

1. Написать программу, которая по вводимому числу от 1 до 5 (номеру курса) выдает соответствующее сообщение «Привет, k-курсник». Например, если k=1 «Привет, первокурсник»; при k=4 «Привет, четверокурсник».

program primer4;

uses crt;

var kyrs: integer;

begin

writeln ('Vvedite nomer kyrsa');

read(kyrs);

if kyrs=1 then writeln('Privet pervokyrsnik');

if kyrs=2 then writeln('Privet vtorokyrsnik');

if kyrs=3 then writeln('Privet tretekyrsnik');

if kyrs=4 then writeln('Privet chetverokyrsnik');

if kyrs=5 then writeln('Privet pyatikyrsnik');

end.

Задание №5

Порядок выполнения индивидуальной работы

• Изучить теоретический материал по теме лабораторной работы №6.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий 1:

Использовать циклы с пред-  и пост условием.

1. Билет называется «счастливым», если в его номере сумма первых трех цифр равно сумме последних трех. Написать программу, подсчитывающую количество тех «счастливых» билетов, у которых сумма трех цифр равна 13.

        program SpecialHappyTickets;

var

  i, j, k, l, m, n, s: integer;

begin

  s := 0;

  for i := 0 to 9 do

    for j := 0 to 9 do

      for k := 0 to 9 do

        for l := 0 to 9 do

          for m := 0 to 9 do

            for n := 0 to 9 do

              if (i + j + k) = (l + m + n) then

                if i + j + k = 13 then s := s + 1;

  Writeln(s)

end.

            Задание №6

Порядок выполнения индивидуальной работы

• Изучить теоретический материал по теме лабораторной работы №7.
• Создать программу, автоматизирующую процесс решение задачи в соответствии с вариантом.
• Составить отчет о проделанной работе (в отчет включить условие задачи, блок-схема, программа на Pascal, результаты выполнения программы).

Варианты заданий:

Дан одномерный массив (заполняется пользователем), написать программу, которая решает поставленную задачу в соответствии с индивидуальным вариантом.

1. Количество четных чисел.

Program  primer6;

Var a: array[1..100] of integer;

i, n, k: integer;

Begin

Write ('n='); Readln (n);

For i:=1 to n do

begin

Write('a[',i,'’]='); readln (a[i]);

if  a[i] mod 2=0 then k:=k+1;

end;

Writeln('количество четных элементов: ', k);

end.