Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Qbasic|VB] Теорема Ферма

Автор: BioSharK 23.10.2009, 16:34

Нужно написать программу, которая находит х,y,z при которых истинно условие X^n + Y^n = Z^n при n = [0;10]
х,y,z,n - натуральные числа.
нужно использовать 4 вложенных цикла.

Автор: ИванМ 23.10.2009, 17:38

Qbasic:

Код


CLS
CONST max = 32767
DIM X, Y, Z, n AS INTEGER
FOR X = 1 TO max
    FOR Y = 1 TO max
        FOR Z = 1 TO max
            FOR n = 0 TO 10
                IF X ^ n + Y ^ n = Z ^ n THEN
                    PRINT "X="; X
                    PRINT "Y="; Y
                    PRINT "Z="; Z
                    PRINT
                END IF
            NEXT n
        NEXT Z
    NEXT Y

NEXT X

Автор: BioSharK 23.10.2009, 18:16

Спасибо огромное