[Pascal] warunek istnienia trójkąta, gdzie błąd?

lutnia
Użytkownik
Użytkownik
Posty: 33
Rejestracja: 6 lis 2011, o 11:35
Płeć: Kobieta
Lokalizacja: Szczecin
Podziękował: 3 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: lutnia »

Kod: Zaznacz cały

program trojkat;
uses Crt;
var a,b,c: word;
begin
 ClrScr;
 writeln('podaj dlugosci trojkata');
 readln(a,b,c);
 if a<b+c then writeln ('nie mozna zbudowac trojkata')
             else if b<a+c then writeln ('nie mozna zbudowac trojkata')
                                else c<a+b then writeln ('nie mozna zbudowac trojkata')
                                                else writeln ('mozna zbudowac trojkat');
 readln;
and.
pokazuje błąd nielegalnego wyrażenia i składni związany ze średnikiem i "then", teoretycznie w 10 linijce. Proszę o pomoc.
loitzl9006
Moderator
Moderator
Posty: 3050
Rejestracja: 21 maja 2009, o 19:08
Płeć: Mężczyzna
Lokalizacja: Starachowice
Podziękował: 29 razy
Pomógł: 816 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: loitzl9006 »

Popraw to:

Kod: Zaznacz cały

writeln('podaj dlugosci trojkata');
readln(a,b,c)
na

Kod: Zaznacz cały

writeln('podaj dlugosc boku a');
readln(a);
writeln('podaj dlugosc boku b');
readln(b);
writeln('podaj dlugosc boku c');
readln(c);
Poza tym pomyśl nad warunkami istnienia trójkąta, bo program wygląda na nielogiczny.

Znasz spójniki logiczne w Pascalu? Przyda się tutaj spójnik or .
Xitami

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: Xitami »

Kod: Zaznacz cały

else c<a+b then
    ^
a gdzie if
wydaje mi się, że trójkąta nie da się zbudować gdy
\(\displaystyle{ -a^3 + (b + c) a^2 + a(b^2 - 2 c b + c^2) + -b^3 + c b^2 + b c^2 - c^3}\)
jest mniejsze od zera
lutnia
Użytkownik
Użytkownik
Posty: 33
Rejestracja: 6 lis 2011, o 11:35
Płeć: Kobieta
Lokalizacja: Szczecin
Podziękował: 3 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: lutnia »

loitzl9006 to co napisałeś nie ma znaczenia, a "or" ma tutaj nie występować.

Xitami "if" mi się zjadło

Zmieniłam znaki, ale dalej pokazuje illegal i błąd składni. Aby powstał trójkąt, dwa jego boki muszą być dłuższe od trzeciego. Nie wiem jak to zrobić.
Xitami

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: Xitami »

wklej kod
lutnia
Użytkownik
Użytkownik
Posty: 33
Rejestracja: 6 lis 2011, o 11:35
Płeć: Kobieta
Lokalizacja: Szczecin
Podziękował: 3 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: lutnia »

Kod: Zaznacz cały

program trojkat;
uses Crt;
var a,b,c: word;
begin
   ClrScr;
   writeln('podaj dlugosci trojkata');
   readln(a,b,c);
   if a>=b+c then writeln ('nie mozna zbudowac trojkata')
             else if b>=a+c then writeln ('nie mozna zbudowac trojkata')
                                else c>=a+b if then writeln ('nie mozna zbudowac trojkata')
                                                else writeln ('mozna zbudowac trojkat');
   readln;
end.
Próbowała też inaczej, ale nie mogę załapać gdzie jest błąd.
loitzl9006
Moderator
Moderator
Posty: 3050
Rejestracja: 21 maja 2009, o 19:08
Płeć: Mężczyzna
Lokalizacja: Starachowice
Podziękował: 29 razy
Pomógł: 816 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: loitzl9006 »

w 10. linijce jest błąd.

zamiast

Kod: Zaznacz cały

else c>=a+b if then writeln ('nie mozna zbudowac trojkata')
powinno być

Kod: Zaznacz cały

else if c>=a+b then writeln ('nie mozna zbudowac trojkata')
lutnia
Użytkownik
Użytkownik
Posty: 33
Rejestracja: 6 lis 2011, o 11:35
Płeć: Kobieta
Lokalizacja: Szczecin
Podziękował: 3 razy

[Pascal] warunek istnienia trójkąta, gdzie błąd?

Post autor: lutnia »

Dzięki wielkie
ODPOWIEDZ