16 03 2008


// zczytywane znaku asci

program Untitled;

uses CRT, DOS;

var
a:char;

begin
a:=readkey;
writeln( Ord (a));;
readln;

end.

// zczytywane znaku asci z petla

program Untitled;

uses CRT, DOS;

var
a:char;

begin
Repeat
a:=readkey;
writeln( Ord (a));;
Until a=Chr(27);


end.


// zczytywanie znaków strzalek asci z petla

program Untitled;

uses CRT, DOS;

var
c1,c2: char;

begin
Repeat
c1:=readkey;
c2:=' ';
if c1=chr(0) then c2:=readkey;
if c2='H' then writeln('Gora');
if c2='P' then writeln('Dol');
if c2='M' then writeln('Prawo');
if c2='K' then writeln('Lewo');
until c1=chr(27);
end.

// tabela z rekordami, wpisywanie danych do tabeli i wyswietlanie ich

program Untitled;

uses CRT,DOS;

var
a,t:string[50];
katalog: array[1..2] of record
autor : string[30];
tytul : string[20];
end;

begin
writeln('Podaj autora');
readln(a);
writeln('Podaj tytul');
readln(t);
katalog[1].autor:=a;
writeln;
writeln;
writeln('autor : ',katalog[1].autor);
katalog[2].tytul:=t;
writeln('tytul: "',katalog[2].tytul,'"');

readkey;
end.

Wyszukiwarka

Podobne podstrony:
trackery 16 03 2014
etykieta 16 03 18 15 29
USA Zestrzeliliśmy irański samolot bezzałogowy (16 03 2009)
Zapis posiedzenia Komisji Obrony Narodowej z 16 03 2016
2008 Metody obliczeniowe 03 D 2008 10 1 22 5 47
03 03 2008
1 Wyklad 6 03 2008
Eagle 21 03 2008
Rekomendacje PTG dot podejrzenia wykorzystania seksualnego osoby nieletniej 16 paź 2008
09 03 2008
MEW7 wykresy 16 03 2011
Iracki rząd zatwierdził pakt bezpieczeństwa (16 11 2008)
umowa z beneficjentem 20 03 2008
15 03 2008 2
Organizacja i zarządzanie slajdy z dnia 03 2008
16 03 2011
Wprowadzenie do marketingu slajdy z dnia 03 2008

więcej podobnych podstron