Файл: Комплект оценочных средств к зачету по дисциплине Основы алгоритмизации и программирования.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 07.12.2023
Просмотров: 18
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Комплект оценочных средств к зачету по дисциплине
«Основы алгоритмизации и программирования»
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]?
| | ||
Практическая часть
-
Дана последовательность натуральных чисел, ограниченная вводом нуля. Вывести на экран произведение четных элементов этой последовательности. При этом ноль не считается членом последовательности.
-
В массиве из n чисел найти сумму квадратов элементов с четными индексами и сумму кубов элементов с нечетными индексами. -
В массиве хранится информация о годе рождения каждого из 30 человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 1965 до 1985 включительно. Определить количество людей, родившихся до 1975 года. -
Заполните двумерный массив случайными числами random(50)-20. Обнулите главную диагональ матрицы (5Х5), если в ней найдется хотя бы один отрицательный элемент. Выведете на печать полученную матрицу. -
Подсчитать количество цифр в заданной строке.