Лабораторная работа № 9. Процедуры в языке Pascal Вариант 6
Описание работы
Работа пользователя Canadets
I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа. Указать, какую (ие) подзадачу (и) решает (ют) процедура (ы) в программе.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
begin
s := 0;
k := 0;
while n <> 0 do
begin
if n mod 2 = 1
then
begin
s := s + n mod 10;
if n mod 10 < 5 then k := k + 1
end;
n := n div 10
end;
end;
var
n, sum, kol: integer;
begin
write('n? ');readln(n);
pr(n, sum, kol);
writeln('Сумма ', sum);
writeln('Количество ', kol)
end.
Задание 2. Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы.
6. Найти произведение элементов набора данных, полученных случайным образом.
procedure solution(n; var p: integer);
var
i: byte;
a: integer;
begin
p := 0;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
p := p * _____
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(__)
end.
Задание 3. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
Задание 4. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
Вычислить сумму тех чисел из заданного отрезка [a, b] (a, b — натуральные), в запись которых входит цифра k.
Все задания решены на Pascal
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа. Указать, какую (ие) подзадачу (и) решает (ют) процедура (ы) в программе.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
begin
s := 0;
k := 0;
while n <> 0 do
begin
if n mod 2 = 1
then
begin
s := s + n mod 10;
if n mod 10 < 5 then k := k + 1
end;
n := n div 10
end;
end;
var
n, sum, kol: integer;
begin
write('n? ');readln(n);
pr(n, sum, kol);
writeln('Сумма ', sum);
writeln('Количество ', kol)
end.
Задание 2. Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы.
6. Найти произведение элементов набора данных, полученных случайным образом.
procedure solution(n; var p: integer);
var
i: byte;
a: integer;
begin
p := 0;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
p := p * _____
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(__)
end.
Задание 3. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
Задание 4. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
Вычислить сумму тех чисел из заданного отрезка [a, b] (a, b — натуральные), в запись которых входит цифра k.
Все задания решены на Pascal
