Экзаменационные задачи

СОГЛАСОВАНО Протокол № ________ заседания ПЦК «Информатика и информационные технологии» _________________ Н.Ф. Махкамов от «___»_________ 20____ г.

УТВЕРЖДАЮ Заместитель директора _____________Т.И. Дмитриева «____» __________20__г.

Экзаменационные задачи

по дисциплине «Основы алгоритмизации и программирования»

для специальности Техническое обслуживание средств вычислительной техники и компьютерных сетей___3___ курс (__6__семестр)

Составьте алгоритм определения меньшего из двух чисел
Составьте алгоритм определения максимального элемента в одномерном массиве
Составьте алгоритм чисел вычисления выражения
Составьте алгоритм определения функции в соответствии с заданной формулой
Составьте алгоритм вычисления значений функций Y=3x²-5x+1 для значений x=1, 2, 3, 4 …..10
Составьте алгоритм вычисления значений функции
Составьте алгоритм вычисления значений функций Y=(2x²-5x)/3 для значений x=1, 2, 3, 4 …..10
Составьте алгоритм вычисления значений функций Y=Sin2X+CosX для значений x>0 и x<π (шагом 0,1)
Создайте программу (Pascal), которая позволяет рассчитать стоимость краски, если известны: площадь комнаты, норма расхода краски на квадратный метр и цена краски
Создайте программу (Pascal), которая вычисляет выражение
Создайте программу (Pascal), которая позволяет рассчитать стоимость билета в кинотеатре, если известны: стоимость аренды зала, стоимость проката фильма, прибыль от проката, количество мест в зале.
Создайте программу (Pascal), которая вычисляет выражение
Создайте программу (Pascal), которая позволяет рассчитать площадь кольца, если известны диаметры внутренней и внешней окружностей
Создайте программу (Pascal), которая позволяет рассчитать сумму элементов одномерного массива
Исправьте ошибки во фрагменте программы:

Repeat;

u := x/n*u; {очередное слагаемое}

s = s+u; n := n+l;

until (Abs (y-s) <= Eps) or (n:=Limit);

Исправьте ошибки во фрагменте программы:

begin

Write 'Задай аргумент и погрешность: ';

ReadLn (x, Eps);

у := Ехр(х); s := сумма; u := 1

n := 1:

Исправьте ошибки во фрагменте программы:

if n >= Limit then WriteLn(n, шагов не хватило',' для достижения точности);

else begin
WriteLn 'Левая часть: ', у:15:6:

WriteLn ('Правая часть: ', s:15:6);
WriteLn ('Погрешность ',Eps:10:6, ' достигнута за ',n, ' шагов');

End

Определите значение переменной Y после выполнения фрагмента программы:

A:=3;

B:=5;

IF A=B THEN Y:=A ELSE Y:=B;

WRITELN(Y);

Определите значение переменной X после выполнения фрагмента программы:

X:=1;

FOR I:=1 TO 3 DO

X:=X*I;

WRITELN(Y);

Определите значение переменной Y после выполнения фрагмента программы:

A:=1;

B:=5;

IF A<>B THEN Y:=A ELSE Y:=B;

WRITELN(Y);

Определите значение переменной Y после выполнения фрагмента программы:

A:=7;

B:=2;

IF A<B THEN Y:=A*A ELSE Y:=A*B;

WRITELN(Y);

Создайте программу (Delphi), которая позволяет рассчитать стоимость покупки, если известны: количество товара (кг) и цена одного килограмма
Создайте программу (Delphi), которая вычисляет выражение
Создайте программу (Delphi), которая позволяет пользователю выбрать цвет и изменить цвет формы на выбранный
Создайте программу (Delphi), которая позволяет ввести два числа и выполняет простейшие арифметические операции
Создайте программу (Delphi), которая позволяет пользователю задать размеры формы и изменить размер формы на заданный
Создайте программу (Delphi), которая позволяет вычислить функцию
Создайте программу (Delphi), которая позволяет перевести длину в метрах в сантиметры и длину в сантиметрах в метры
Создайте приложение (Delphi), которое имеет несколько окон, которые вызываются из меню
Создайте приложение (Delphi), которое имеет несколько окон, которые вызываются из контекстного меню
Определите значение переменной Y после выполнения фрагмента программы:

A:=’локомотив’;

Y:=COPY(A,1,3)+ COPY(A,7,2)+’к’;

Создайте приложение (Delphi), которое позволяет пользователю ввести имя и пароль, то есть авторизоваться.
Создайте приложение (Delphi), которое вычисляет выражение
Определите значение переменной Y после выполнения фрагмента программы:

A:=6; B:=2; C:=7;

If A> C THEN Y:=C+A ELSE

If B >C THEN Y:=A ELSE Y:=B;

Создайте программу (Pascal), которая позволяет вычислить выражение

Преподаватель: О.Н. Грозман _____________________