Примеры задач

Простые типы данных

Составить программу для нахождения всех натуральных решений уравнения: на интервале от (1;10).

Методика решения

Используемые переменные:
M,n,k,b –переменные данные в уравнении

Для составления программы можно использовать метод перебора значений n, m, k, b из интервала от (1;10)

Чтобы это реализовать, необходимо организовать четыре вложенных цикла с параметрами. Каждый из этих циклов перебирает значения n, m, k, b (от 1 до 10). В циклах мы выясняем, являются ли данные n, m, k, b решениями уравнения, то есть проверяем условие . Если являются, то выводим их на экран.

Листинг программы

Program ex6;

Uses crt;

Var m,n,k,b: integer;

Begin Clrscr;

For n:=1 to 10 do

For m:=1 to 10 do

For k:=1 to 10 do

For b:=1 to 10 do

If (n*n)+(m*m)=(k*k*b)

Then Writeln (' n=',n ,' m=', m,' k=', k,' b=', b);

Readkey;

End.

Запустить программу

Назад