AMXX.pl: Support AMX Mod X i SourceMod

Mam taki program obliczajacy dlugosc przeciwprostokatnej:

program przeciwprostokatna;
uses crt;
var a,b:integer;
c:real;
begin
clrscr;
writeln('Podaj dlugosc przyprostokatnej a');
readln(a);
writeln('Podaj dlugosc przyprostokatnej b');
readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
c:=sqrt(a*a+b*<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
writeln('Dlugosc przeciwprostokatnej wynosi ',c:0:2);
readln;
end.

Dziala bez problemu ale chce naprzyklad zrobic ze gdy ktos poda dlugosc przyprostokatnej a i b jako zero lub liczbe minusowa to zeby program wyswietlal komunikat:

writeln('Nie oszukuj!');

Dobrze by bylo gdyby jeszcze pod koniec po wyswietleniu wyniku zadawal pytanie "Czy chcesz obliczyc jeszcze raz?" 1 - tak 0 - exit

Kompletnie nie mam pojecia jak sie do tego zabrac

http://turbopascal.s...oteka.pl/5.html
A z tym Czy chcesz obliczyć jeszcze raz to readkey (musisz znać kod klawisza) lub readln+enter + if

program przeciwprostokatna;

uses crt;

var a,b:integer;

c:real;

begin

clrscr;

writeln('Podaj dlugosc przyprostokatnej a');

readln(a);

if a<=0 then

writeln('Nie oszukuj')

else

writeln('Podaj dlugosc przyprostokatnej b');

readln(;

c:=sqrt(a*a+b*;

writeln('Dlugosc przeciwprostokatnej wynosi ',c:0:2);

readln;

end.

Przykład dla zmiennej a
Dawno nie bawiłem się tym więc petli nie będę robił, a chyba jeszcze jej "nie umiesz"

Co do konca to mozna zrobic procedurami, a potem dac if=1 then licz else koncz

Z ciekawosci czy pamietam zrobilem petle:

program przeciwprostokatna;

uses crt;

var a,b:integer;

c:real;

begin

clrscr;

writeln('Podaj dlugosc przyprostokatnej a');

readln(a);

IF a<0 THEN

BEGIN

WHILE a<0 DO

BEGIN

writeln('Nie oszukuj');

writeln('Podaj dlugosc przyprostokatnej a');

readln(a);

END;

writeln;

END;

writeln('Podaj dlugosc przyprostokatnej b');

readln(;

c:=sqrt(a*a+b*;

writeln('Dlugosc przeciwprostokatnej wynosi ',c:0:2);

readln;

end.

Użytkownik kijkol edytował ten post 20.09.2012 19:08

Po readln(a) b i c ; daj

if a < 0 then
begin
  writeln("Nie oszukuj!"); 
  readln();
  halt(1)
;end;

coś takiego o ile dobrze pamiętam

Zamiast:

writeln("Nie oszukuj!");

to:

writeln('Nie oszukuj!');

Bo wywali błąd invalid character coś tam
Użytkownik kijkol edytował ten post 20.09.2012 19:18