Wykorzystanie etykiety

program ttt;

uses crt;

label skok;

var i: integer;

begin

clrscr;

repeat

i:=readkey;

write(i);

if i='+' then goto skok;

until false;

skok:

writeln;

write('Koniec programu');

repeat until keypressed;

end.

Zamiana dużych znaków na małe
i odwrotnie

program abc;

uses crt;

const duze = [65..90];

var i:integer;

ciag : string;

begin

clrscr;

readln(ciag);

for i:=1 to length(ciag) do

begin

if ord(ciag[i]) in duze then ciag[i]:=chr(ord(ciag[i])+32)

else ciag[i]:=chr(ord(ciag[i])-32);

write(ciag[i]);

end;

repeat until keypressed;

clrscr;

end.

Wyświetlanie znaków ASCII

program ascii;

uses crt;

var i,j,k: integer;

begin

clrscr;

write('Podaj zakres od ');

readln(j);

write('Podaj zakres do ');

readln(k);

for i:=j to k do writeln(i,' = ',chr(i));

repeat until keypressed;

end.

Wykorzystanie funkcji READKEY

program test;

uses crt;

var i:string;

    j:integer;

begin

for j:=1 to 10 do

begin

i:=readkey;

writeln(chr(13));

end;

end.

Test czy liczba jest rzeczywista

program test;

uses crt;

var liczba:string;

i : real;

j : integer;

begin

clrscr;

write('wprowadz ciag znakow: ');

readln(liczba);

val(liczba,i,j);

if j=0 then write(liczba,' jest liczba rzeczywista')

else write(liczba,' nie jest liczba rzeczywista');

repeat until keypressed;

end.

Zadanie 1 – czy liczba jest dodatnia
i parzysta

program test;

uses crt;

var liczba:string;

i : real;

j : integer;

begin

clrscr;

write('wprowadz ciag znakow: ');

readln(liczba);

val(liczba,i,j);

if j=0 then write(liczba,' jest liczba rzeczywista')

else write(liczba,' nie jest liczba rzeczywista');

repeat until keypressed;

end.

Zadanie 1 wersja 2 – czy liczba jest dodatnia i parzysta

program zad1_2;

uses crt;

var liczba:array[1..10] of integer;

    i,j : integer;

Begin

clrscr;

textcolor(white);

i:=1;

j:=0;

for i:=1 to 10 do

begin

write('Podaj ',i,' liczbe: ');

readln(liczba[i]);

clrscr;

if (liczba[i]>0) and (frac(liczba[i]/2)=0) then j:=j+1;

end;

clrscr;

write('Liczby: ');

i:=1;

for i:=1 to 9 do

begin

if (liczba[i]>0) and (frac(liczba[i]/2)=0) then

textcolor(green);

write(liczba[i]);

textcolor(white);

write(',');

end;

if (liczba[10]>0) and (frac(liczba[10]/2)=0) then

begin

textcolor(green);

writeln(liczba[10]);

textcolor(white);

end;

writeln;

writeln('-----------------------------------------------');

write('Liczb dodatnich i parzystych: ',j);

repeat until keypressed;

end.

Zadanie 2 - czy napis jest wprowadzony dużymi literami

program zad_2;

uses crt;

var lancuch : string;

i,j : integer;

begin

CLRSCR;

write('Wpisz ciag znakow ');

read(lancuch);

for i:=1 to length(lancuch) do

    if lancuch[i] = upcase(lancuch[i]) then j:=j+1;

    if j=length(lancuch) then write ('Lancuch wprowadzony duzymi literami')

    else write('Lancuch zawiera ',length(lancuch)-j,' malych liter');

repeat until keypressed;

end.

Zadanie 3 – czy wprowadzona liczba jest rzeczywista

program test;

uses crt;

var liczba:string;

i : real;

j : integer;

begin

clrscr;

write('wprowadz ciag znakow: ');

readln(liczba);

val(liczba,i,j);

if j=0 then write(liczba,' jest liczba rzeczywista')

else write('<< ',liczba,' >> nie jest liczba rzeczywista');

repeat until keypressed;

end.

Zadanie 4 – czy wprowadzony łańcuch może reprezentować datę
w formacie dd-mm

program zad_4;

uses crt;

var znak : string[5];

kod,dd,mm : integer;

begin

clrscr;

write('wprowadz znaki: ');

read(znak);

val(copy(znak,1,2),dd,kod);

val(copy(znak,4,2),mm,kod);

if ((dd >= 1) and  (dd <= 31)) and ((mm >=1) and (mm <= 12)) and (copy(znak,3,1)='-') then

writeln('Ciag znakow ',znak,' moze reprezentowac date w formacie dd-mm')

else writeln('Ciag znakow ',znak,' nie moze reprezentowac date w formacie dd-mm');

repeat until keypressed;

end.

Zadanie 5 – czy łańcuch może reprezentować liczby rzymskie

program rzymskie;

uses crt;

const rzymskie: SET of Char = ['I','V','X','L','C','M','i','v','x','l','c','m'];

var

ciag : string;

l,m : integer;

begin

clrscr;

write('Wprowadz ciag znakow: ');

read(ciag);

for l:=1 to length(ciag) do

    if ciag[l] in rzymskie then m:=m+1;

if length(ciag)=m then writeln('Ciag ',ciag,' moze reprezontowac liczby rzymskie')

else writeln('Ciag ',ciag,' nie moze reprezontowac liczb rzymskich');

repeat until keypressed;

end.

Zadanie 8 – ile razy występuje znak
w tablicy

program zad_8;

uses crt;

var tabl : array[1..10] of integer;

i,j,k,n : integer;

begin

clrscr;

write('Podaj liczbe do sprawdzenia: ');

read(n);

j:=0;

clrscr;

for i:=1 to 10 do

    begin

    write('Wprowadz ',i,' liczbe do tablicy: ');

    read(k);

    tabl[i]:=k;

    if k=n then j:=j+1;

    clrscr;

    end;

for i:=1 to 10 do write(tabl[i],' ');

writeln;

write('Liczba ',n,' wystepuje w tablicy ',j,' razy');

repeat until keypressed;

end.

Dzielenie zdania na wyrazy

program zd;

uses crt;

var

tablica : array[1..100] of string[55];

pw,kw,ti,i,a : integer;

zn,wyraz,zdanie : string;

begin

clrscr;

write('Wpisz zdanie - max 100 wyrazow ');

read(zdanie);

zdanie:=zdanie+' ';

for i:= 1 to length(zdanie) do 

begin

  if copy(zdanie,i,1) = ' ' then

  begin

  kw:=i-1;

  ti:=ti+1;

  tablica[ti]:=copy(zdanie,1,kw);

zdanie:=copy(zdanie,i+1,length(zdanie)-i);

   i:=1;

  end;

end;

i:=1;

for i:=1 to ti do writeln(tablica[i]);

repeat until keypressed;

end.