Задания "Программирование на языке PascalABC"

МОУ Романовская СОШ
Саратовской области
Программирование
на языке PascalABC
(сборник заданий)
Выполнил:
учитель математики
и информатики
МОУ Романовская СОШ
Дружина Марина Сергеевна
р.п. Романовка 2015 г.
2
Информатика – наука, основанная на знаниях, полученных в большей степени на
уроках математики. При изучении программирования эти знания становятся особенно
востребованными. Предлагаю ряд заданий, разработанных мною, используемых при
изучении темы программирования на языке PascalABC.
Задание №1.
Запишите следующие выражения в формате Pascal и вычислите их значение:
 
  




 

  
Задание №2.
Запишите арифметические выражения, которые соответствуют приведенным
выражениям в формате Pascal:
а) (2*cos(30*/180))/(2+sqrt(7));
б) (sqr(sin(2*a))+a*b)/(sqrt(a*b)+b).
Задание №3.
Составьте алгоритм и программу для вычисления площади боковой поверхности
S и объема V шара:


Задание №4.
Составьте алгоритм и программу для вычисления площади боковой поверхности S и
объема V шарового сегмента:

   
 

Вычислить S и V при значениях:
1) R=5; H=3,6;
2) R=2,3; H=4.
Задание №5.
Определить результат выполнения фрагмента программы (без компьютера):
writeln(‘задача номер 3’);
d:=30;
d:=d+7;
writeln(‘результат:’,d=’,d);
3
Задание №6.
Даны два числа. Найти их сумму, разность, среднее арифметическое, среднее
геометрическое.
Задание №7.
Даны площадь прямоугольника S и одна из его сторон a. Найти диагональ d.
Составить программу и вычислить d при:
а) S=30; a=6;
б) S=63; a=9.
Задание 8.
Дано двузначное число. Определить число десятков в нем.
Задание 9.
Составить алгоритм и программу для вычисления функции, заданной графиком:
Задание 10.
Составить программу для вычисления функции

Задание 11.
Для заданного x вычислить значение функции:




Составить алгоритм и программу.
Задание 12.
Для заданного x вычислить значение функции:



 
Составить алгоритм и программу.
4
Задание 13.
Составить алгоритм и программу для вычисления значения функции f:
  
 


Задание 14.
Для заданной функции
а) напечатать таблицу значений, изменяя x от 1 до 10 с шагом 2;
б) вычислить произведение полученных значений.
Задание 15.
Составить алгоритм для вычисления суммы чисел: 4, 8, 12, …, 56.
Задание 16.
Составить алгоритм для вычисления произведения чисел: 1, 5, 10, 15, …, 55.
Задание 17.
Определить результат выполнения программы (без компьютера):
s:=1;
x:=1;
while x<8 do
begin
s:=s*x;
x:=x+1;
end;
writeln (‘s=’, s)
Задание 18.
Определить число воскресений в 2000 году. Первое воскресенье – 2 января.
Задание 19.
Рост ребенка на начало года 120 см. За месяц он вырастает на 3%. Через сколько
месяцев рост ребенка превысит 150 см? Составить программу и ответить на
поставленный вопрос.
Задание 20.
Составить программу для вычисления суммы:
 

5
Задание 21.
Составить программу для вычисления произведения чисел: -22, -21, -20, …, 2.
Задание 22.
Определить результат выполнения программы (без компьютера):
k:=0;
for x:=1 to 2 do
for i:=1 to 3 do
if x=i then for j:=1 to 3 do k:=k+1;
writeln(‘k=’, k);
Задание 23.
Строка t равна «МАГНИТОФОН». Найти значение:
а) copy(t,8,2)+copy(t,6,2)+copy(t,4,1),
б) copy(t,1,6).
Написать алгоритм (программу) для подсчета суммарного количества букв «о» в
данной литерной величине.
Задание 24.
Строка t равна «МАГНИТОФОН». Написать программу составления слов:
МАГНИТ, ФОТО, ТИНА.
Написать алгоритм (программу) для подсчета суммарного количества букв «А»2,
«И», «О».
Задание 25.
Определить результат выполнения фрагмента программы (без компьютера):
a:=’ПАР’;
b:=’ИНТЕГРАЛ;
delete(b,1,1);
delete(b,4,1);
delete(b,6,1);
b:=copy(a,1,2)+b;
insert(‘ТА,a,4);
writeln(‘a=’,a,’b=’,b).