// 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 2014etykieta 16 03 18 15 29USA Zestrzeliliśmy irański samolot bezzałogowy (16 03 2009)Zapis posiedzenia Komisji Obrony Narodowej z 16 03 20162008 Metody obliczeniowe 03 D 2008 10 1 22 5 4703 03 20081 Wyklad 6 03 2008Eagle 21 03 2008Rekomendacje PTG dot podejrzenia wykorzystania seksualnego osoby nieletniej 16 paź 200809 03 2008MEW7 wykresy 16 03 2011Iracki rząd zatwierdził pakt bezpieczeństwa (16 11 2008)umowa z beneficjentem 20 03 200815 03 2008 2Organizacja i zarządzanie slajdy z dnia 03 200816 03 2011Wprowadzenie do marketingu slajdy z dnia 03 2008więcej podobnych podstron