кос. КОС. Комплект оценочных средств к зачету по дисциплине Основы алгоритмизации и программирования

• Название: Комплект оценочных средств к зачету по дисциплине Основы алгоритмизации и программирования
• Дата: 01.05.2023
• Размер: 38.7 Kb.
• Имя файла: КОС.docx
• Тип: Документы; #1100046

Комплект оценочных средств к зачету по дисциплине
«Основы алгоритмизации и программирования»
1. Определите все возможные типы данных для следующих значений:

2.234
6787
-35
68
260
Я программист
+
999596857498

2. Запишите назначение операторов и пример их использования:

Оператор	Назначение	Пример
Read
Readln
If- then- else
integer
Begin end

3. Запишите на языке программирования следующие операции:

• 
  Переменной Y присвоить остаток от деления -98 на 35
  
• 
  Уменьшить переменную Y на единицу (использовать функцию)
  
• 
  Возвести в квадрат переменную Z, результат присвоить переменной
  
• 
  Найти значение по модулю для переменной Т, результат присвоить переменной Z
  

4. Какое число получится в результате работы данной программы?

a:=-10;

b:=33;

a:=b-a;

c:=a*b;

5. Напишите программу, которая:
1) Описывает две вещественные переменные a, b и две целочисленные переменные c и d

2) Принимает с клавиатуры значения переменных aиb

3) Выводит на экран в первой строке (ширина поля для каждого значения равна 5)

• 
  квадратный корень, извлеченный из модуля переменной а (2 знака после точки)
  
• 
  значение d, увеличенное на 5 с помощью функции
  

4) Выводит на экран во второй строке (ширина поля равна 8)

• 
  Значение синуса переменной bделенное на косинус переменной а
  

6. Исправьте ошибки в программе:

program Factorial;

var

i, n: real;

fact: integer;

begin

readln(n);

fact := 1;

for i := 1 do n to begin;

fact := fact * I;

end;

readln(fact)//вывод результата на экран

end.
7. Заполни пробелы, допущенные при решении следующей задачи: «Составьте программу, которая находит наибольшее число кратное 13 и не превосходящее 3000.», и напишите программу по блок-схеме.



Впишите верный ответ в правый столбец таблицы

№	Вопрос			Ответ
	Какая из структур программы верная?
	1. program MyFirst; begin var: x,y:real; x:=o; X:=Y+195; end.	2. program MyFirst; var: x,y:real; x:=0; begin X:=Y+195; end.	3. program MyFirst; var: x,y:real; begin x:=0; X:=Y+195; end.
	Сколько раз будет напечатано значение переменной а в результате выполнения данного фрагмента? For I:= 1 to 10 do begin a:=a*I; writeln(a); end;
	Чему будет равно значение переменной С после выполнения данного фрагмента? C:=100; B:=20; For i:=3 to 8 do C:=c-b; writeln(c);
	Воспроизведите в точности, что появится на экране в результате выполнения данного фрагмента программы? N:=5; For x:=n to downto 1 do begin S[x]:=2*x; Writeln('s[',x,']=',s[x]); End;
	Найдите ошибку в программе: program m1; var i,n,x:real; s: array[1..5] of integer; begin N:=5; For x:=1 to n do begin S[x]:=x*3; Write(s[x]); End; end.
	Найдите ошибку в программе: program kvad; var i,n,kv:integer; begin readln(n); i :=1; while(i<=n)do kv:=i*i; inc(i); write(kv,' '); end.
	Что означает запись А[5]? в массиве только один элемент и он равен 5; выбран 5ый элемент массива; в массиве нет элемента равного 5;

Практическая часть

1. 
   Дана последовательность натуральных чисел, ограниченная вводом нуля. Вывести на экран произведение четных элементов этой последовательности. При этом ноль не считается членом последовательности.
   

2. 
   В массиве из n чисел найти сумму квадратов элементов с четными индексами и сумму кубов элементов с нечетными индексами.
   
3. 
   В массиве хранится информация о годе рождения каждого из 30 человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 1965 до 1985 включительно. Определить количество людей, родившихся до 1975 года.
   
4. 
   Заполните двумерный массив случайными числами random(50)-20. Обнулите главную диагональ матрицы (5Х5), если в ней найдется хотя бы один отрицательный элемент. Выведете на печать полученную матрицу.
   
5. 
   Подсчитать количество цифр в заданной строке.