Вопрос № 45683: Здравствуйте! Я х очу написать программу программу, которая находит и выводит на экран все пифагоровы числа(числа строго меньше 20), формула a*a+b*b=c*c, я пробовал делать через массивы, но программа выдает постоянно что числа подходят, я не могу пон...
Вопрос № 45.683
Здравствуйте! Я х очу написать программу программу, которая находит и выводит на экран все пифагоровы числа(числа строго меньше 20), формула a*a+b*b=c*c, я пробовал делать через массивы, но программа выдает постоянно что числа подходят, я не могу понять в чём дело. Помогите, пожалуйста!!!
Приложение:
Отправлен: 08.06.2006, 22:42
Вопрос задал: ataman (статус: 1-ый класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Евгения
Здравствуйте, ataman!
Извинте, а причем тут массивы вообще?
конечно он будет выдавать что попало, если вы сразниваете квадраты 0 в массиве - хорошо еще, что это нули, т.к. вы вообще в массивы ничего не записали... короче странно вы как-то писали программу... вот - лишнее убрала :)
uses crt;
const ii=19; jj=19; tt=19;
var i,j,t:integer;
begin
clrscr;
for i:=1 to ii do
for j:=1 to jj do
for t:=1 to tt do
begin
if sqr(i) + sqr(j) = sqr(t) then writeln(i,' ',j,' ',t)
end;
readkey;
end.
Счастливо!
--------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?
Ответ отправила: Евгения (статус: 6-ой класс)
Ответ отправлен: 08.06.2006, 23:19 Оценка за ответ: 5
Отвечает: Vovan_32
Здравствуйте, ataman
В принципе тут не нужны массивы, тем более целых 3, но если уж очень хочется с массивами то можно сделать так см.приложение.
Приложение:
--------- Fuck of Microsoft!!!
Ответ отправил: Vovan_32 (статус: 1-ый класс)
Ответ отправлен: 09.06.2006, 00:59
