Программы работы с числами

Отчет по лабораторной работе №1

Тема: ПРОГРАММЫ РАБОТЫ С ЧИСЛАМИ

Вариант 11

Выполнила студентка группы 3713з

Киян Анастасия

1. Формулировка условия:

Даны натуральные числа p и q. Получить все делители числа q, взаимнопростые с p.

1. Анализ задачи:

Составим программу, которая будет работать с натуральными числами. Для начала получим все делители числа q и проверим являются ли они взаимнопростыми с числом p, если да, то выведем их на экран.

1. Доказательство возможности решения задачи:

У всех натуральных чисел существует конечное кол-во делителей, которые могут являться взаимнопростыми для другого натурального числа.

1. Алгоритм:

Для начала получим все делитель числа q, проверим является ли он взаимнопростыми с числом p, если да, то выводим на экран.

1.  Выбор инструментальной среды:

Средой разработки для решения данной задачи выбрано ПО «Pascal ABC.NET»

1. Анализ результатов решения задачи:

Результаты программы полностью соответствуют требованиям задачи.

1. Блок-схема:

[pic 1]

Рисунок 1 – Блок-схема

1. Запись алгоритма на языке программирования:

var

  p, q, i, s, j, k: integer;

  a: array[1..100] of integer;

  fInput, fOutput: Text;

begin

  s := 1;

  assign(fInput, 'input.txt');

  assign(fOutput, 'output.txt');

  rewrite(fInput);

  rewrite(fOutput);

  write('Введите первое число -> ');

  readln(p);

  write('Введите второе число -> ');

  readln(q);

  fInput.Writeln(p);

  fInput.Writeln(q);

  writeln(fOutput, i);

  for i := 2 to round(sqr(q)) + 1 do

  begin

    if q mod i = 0 then begin

      inc(k); a[k] := i;

      for j := 2 to round(sqr(i)) + 1 do

      begin

        if (p mod j = 0) and (i mod j = 0) then s := 0;

      end;

      if s = 1 then

      begin

        writeln(i);

        writeln(fOutput, i);

      end;

      s := 1;

    end;

  end;

  writeln('Press enter to exit');

  readln();