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

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


Составить программу для нахождения всех натуральных решений уравнения: на интервале от (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.

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






Назад

Закрыть