Turbo pascal - Program obliczający pole koła

W tej prostej poradzie pokażę jak łatwo obliczyć pole koła

program pole_kola;
var r:real; { promień koła - zmienna rzeczywista }

begin
writeln('Obliczamy pole kola');
write('Podaj promien kola: ');
readln(r);
write('Pole kola wynosi ');
write(Pi*r*r:8:3); { oblicza i wypisuje wynik }
readln;
end.

Komentarze

Prześlij komentarz

Popularne posty z tego bloga

phpBoard

Obraz
phpBoard jest open source’owym skryptem php/mysql forum z dodatkami społecznościowymi. Posiada podstawowe funkcje, takie jak: profilowe blogi użytkowników wraz z systemem komentarzy, system newsów z kanałami RSS, strefę dla moderatora, rozbudowane statystyki czy prywatne wiadomości. Zobacz Demo Pobierz Skrypt
Czytaj więcej

Turbo pascal - Program sortujący liczby rosnąco

program sortowanie_liczb; uses crt; const size=10; var tab: array[1..size] of integer; tmp: integer; i, j: integer; begin clrscr ; for i:=1 to size do begin write (i, ' element: '); readln (tab[i]); end ; for i:=size downto 2 do for j:=size downto size+2-i do begin if tab[j-1]>tab[j] then begin tmp:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=tmp; end ; end ; writeln ; for i:=1 to size do begin writeln (tab[i],' '); end ; readkey ; end .
Czytaj więcej

Jak poznać numer ID ostatnio dodanego rekordu do bazy danych MySQL

ID ostatnio dodanego rekordu do bazy danych MySQL zwraca funkcja mysql_instert_id(). Warunkiem jest jednak to, że pole musi mieć własność AUTO_INCREMENT. PRZYKŁAD <?php // dodajemy rekord do bazy $ins  = @ mysql_query ( "INSERT INTO test SET imie='$imie', email='$email'" ); // ID dodanego rekordu     $id  =  mysql_insert_id (); if( $ins ) echo  "Rekord o ID: " . $id . " został dodany poprawnie" ; else echo  "Błąd nie udało się dodać nowego rekordu" ; ?>   Krzysztof Szypulski - kess.snug.pl
Czytaj więcej