Ładny brzuch

Witam
Mam prosbe do wszystkich czy mogli byscie mi podac jakis prosty program w turbo pascalu bo siedze juz 2 tygodniei nie moge nic wymyslec :( Jezeli by kos cos wymylsi i jak by mu sie chcialo umiescic jak to napisac byl bym wdzieczny. Ale to nie jest konieczne wystarczy mi zeby ktos napisal co ten program ma robi ja juz sobie to napisze (jestem po 20godz paskala oszedlem do wiem tylko jak je zadeklawowac :] tablic ale nie mam jeszcze recordow i odtwarzania z pilkow)


czemu nie, ale naprawde bedzie prosty:

program pole_prostokata;
var
a, b, wynik:integer;{liczby calkowite}
begin
writeln('Podaj 1 bok prostokata:');
readln(a);
writeln('Podaj 2 bok prostokata:');
readln(B);
wynik:=a*b;{do wynik przypisujemy wartosc iloczynu a*b}
writeln('Pole figury wynosi: ', wynik);
readln; {przytrzymanie ekranu, zeby zobaczyc rezultat}
end.

i tyle, mam nadzieje ze pomoglem

program jakis_prog; uses crt, dos; var a,b : Integer; Begin  clrscr;  Writeln('Podaj liczbe 1: ');  read(a);  Writeln('Podaj liczbe 2: ');  read(b);  Writeln('');  Writeln('Suma tych liczb wynosi: ', a+b);  readkey; end.

No i tyle :P

SnajPerKa :)
contact - gg 2400624

Program ktry znajdzie liczby naturalne z podanego zakresu zgodne z warunkiem:
abcde = a+b+c+d+e
(Nie ma tego duo)
I wyrzuci je do pliku jeli mona (skleiem takie cu)

Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogaszam e ruszam na krucjat antypirack! Precz z kursami drogiego softu w KE, piszcie co o darmowym!

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •