Служба спасения студентов
Служба спасения для студентов (18+)

Лабораторная работа № 9. Процедуры в языке Pascal Вариант 12

Стоимость
50 руб.
Содержание
Практика
Объем
5 лист.
Год написания

Описание работы

Работа пользователя И. Нестеров
I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа. Указать, какую (ие) подзадачу (и) решает (ют) процедура (ы) в программе.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
procedure pr(n: integer; var p, k: integer);
begin
  p := 1;
  k := 0;
  while n <> 0 do
  begin
    if n mod 2 = 0
        then
    begin
      p := p * (n mod 10);
    end;
    k := k + 1;
    n := n div 10
  end;
end;
var
  n, p, kol: integer;
begin
  write('n? ');readln(n);
  pr(n, p, kol);
  writeln('Произведение ', p);
  writeln('Количество ', kol)
end.

Задание 2. Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы.
12. Найти произведение модулей элементов набора данных, полученных случайным образом.
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. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
an=2^n/(n-1)!

Задание 4. Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами.
12)Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.

Сколько стоит помощь с учебной работой?