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;
const duze = [65..90];
var i:integer;
ciag : string;
readln(ciag);
for i:=1 to length(ciag) do
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;
program ascii;
var i,j,k: integer;
write('Podaj zakres od ');
readln(j);
write('Podaj zakres do ');
readln(k);
for i:=j to k do writeln(i,' = ',chr(i));
program test;
var i:string;
j:integer;
for j:=1 to 10 do
writeln(chr(13));
var liczba:string;
i : real;
j : integer;
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');
Zadanie 1 – czy liczba jest dodatnia i parzysta
Zadanie 1 wersja 2 – czy liczba jest dodatnia i parzysta
program zad1_2;
var liczba:array[1..10] of integer;
i,j : integer;
Begin
textcolor(white);
i:=1;
j:=0;
for i:=1 to 10 do
write('Podaj ',i,' liczbe: ');
readln(liczba[i]);
if (liczba[i]>0) and (frac(liczba[i]/2)=0) then j:=j+1;
write('Liczby: ');
for i:=1 to 9 do
if (liczba[i]>0) and (frac(liczba[i]/2)=0) then
textcolor(green);
write(liczba[i]);
write(',');
if (liczba[10]>0) and (frac(liczba[10]/2)=0) then
writeln(liczba[10]);
writeln('-----------------------------------------------');
write('Liczb dodatnich i parzystych: ',j);
Zadanie 2 - czy napis jest wprowadzony dużymi literami
program zad_2;
var lancuch : string;
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');
Zadanie 3 – czy wprowadzona liczba jest rzeczywista
else write('<< ',liczba,' >> nie jest liczba rzeczywista');
Zadanie 4 – czy wprowadzony łańcuch może reprezentować datę w formacie dd-mm
program zad_4;
var znak : string[5];
kod,dd,mm : integer;
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');
Zadanie 5 – czy łańcuch może reprezentować liczby rzymskie
program rzymskie;
const rzymskie: SET of Char = ['I','V','X','L','C','M','i','v','x','l','c','m'];
var
l,m : integer;
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');
Zadanie 8 – ile razy występuje znak w tablicy
program zad_8;
var tabl : array[1..10] of integer;
i,j,k,n : integer;
write('Podaj liczbe do sprawdzenia: ');
read(n);
write('Wprowadz ',i,' liczbe do tablicy: ');
read(k);
tabl[i]:=k;
if k=n then j:=j+1;
for i:=1 to 10 do write(tabl[i],' ');
write('Liczba ',n,' wystepuje w tablicy ',j,' razy');
program zd;
tablica : array[1..100] of string[55];
pw,kw,ti,i,a : integer;
zn,wyraz,zdanie : string;
write('Wpisz zdanie - max 100 wyrazow ');
read(zdanie);
zdanie:=zdanie+' ';
for i:= 1 to length(zdanie) do
if copy(zdanie,i,1) = ' ' then
kw:=i-1;
ti:=ti+1;
tablica[ti]:=copy(zdanie,1,kw);
zdanie:=copy(zdanie,i+1,length(zdanie)-i);
for i:=1 to ti do writeln(tablica[i]);
WszystkoiNic1573