Turbo pascal - Program ustalający płeć z podanego imienia

program imie;
uses crt;
var imie:string;

begin
Write('Wpisz swoje imie : ');
readln(imie);
writeln;
writeln('Twoja Plec to :');
if imie[length(imie)]='a' then writeln('KOBIETA')else
writeln('MEZCZYZNA');
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