PROBLEME - exemple

-
1 . Se da un numar format din 7 cifre . Sa se elimine cifra din mijloc.
program eliminare ;
var n : longint ;
s : string ;
e : integer ;
begin
writeln (’Dati pe n’) ;
readln (n) ;
str (n , s) ;
delete (s , n , e) ;
val (’ Nr rezultat este =’, n : s) ;
readln ;
end .
2 . Se da un cuvant scris in litere mici . Sa se transforme in litere mari .
program litere ;
var i : integer ;
s : string ;
begin
writeln (’S=’) ;
readln(s) ;
for i : = 1 to length (s ) do begin
s[i] : upcase ( S[i]) ;
writeln ( s [i] ) ;
writeln (s[i]) ;
end ;
readln ;
end.
3 . Se da un nr de tip intreg . Sa se memoreze cifrele lui intr-un vector folosind siruri de caractere .
program vector ;
var i , n : integer ;
s : string ;
e : integer ;
v : array [1..10] of integer ;
begin
writeln (’ n=’ ) ;
readln (n) ;
str (n,s) ;
for i := 1 to n length (s) do
begin
val (s[i] , v [i] , e) ;
writeln (v[i] : s)
end;
readln ;
end .
4. Se da un cuvant sa se elimine caracterele care apar de mai multe ori . Sa se afiseze sirul de caractere format din litere distincte .
programul lit_distinctii ;
var c : string ;
i , j : integer ;
begin
writeln (’ dati pe c ’ );
readln (c) ;
for i : 1 to length (c) -1 do
for j := i+1 to length (c) do
if C[i]=c[j] then
delete (c , j , i) ;
writeln (c) ;
readln ;
end .
5. Sa se afiseze unul sub altul toate sufixele unui cuvant citit de la tastatura .
program sufixe ;
var s : string ;
i : integer ;
begin
writeln (’ Dati pe s ) ;
readln (s) ;
for i : = 1 to length (s) do begin
delete (s , i, 1 );
writeln ;
readln ;
end .
6. Scrieti un program care afisaza cate cifre impare si cate cifre pare contine un nr natural foarte mare .
progam cifre ;
var s : string ;
v : array [1…10] of integer ;
i , x , y , e : integer ;
n : longint ;
begin
writeln (`Dati numarul`) ; readln (n) ;
str (n , s) ;
x : = 0 ; y : = 0 ;
for i : = 1 to length (s) do begin
val (s[i] , u [i] , e)
if v[i] mod 2= 0 then
x : = x + 1
else
y : = y + 1 ;
writeln ( `Nr. De cifre pare este ` , x) ;
writeln (`Nr. de cifre impare este ` , y) ;
readln ; end .
7 . Sa se afiseze dimensiunea maxima a sirului :
program sir ;
var s : string ;
begin
writeln (`Dati cuvantul`) ;
readln (s) ;
writeln ( length (s) ) ;
readen ; end.
8.Deduceti ce va afisa in urma executiei programului pentru S: = PURPURIU C = `p` .
program executie ;
var s : string ; c : char ;
t,p :byte ;
begin
writeln (’Dati pe s si c =’) ;
readln ( s , c) ;
t := pos (c,d) ;
while t<>0 do
begin
P:=p+t
writeln (p)
s := copy (s,t+ 1,255) ;
t :=pos (c,d);
end;
end.

citeste (s,c)
t : pos (c,s) = 1
t<>0(A)
P:=1
afiseaza 1
s :=’ URPURIU ’
t=3
t<>0
p=4
afiseaza 4
s:=uriu
t=0
t<>0 (f)
afiseaza 1,4 .

Comentarii

Trimiteți un comentariu

Postări populare de pe acest blog

Deplasarea elementelor unui vector

-
1) Să se insereze cifra 0 pe prima poziţie a unui vector dat, fără a utiliza un alt vector. Exemplu: Date de intrare: n=4 numere: 5 3 7 8 Date de ieşire: 0 5 3 7 8. 2) Se introduc n numere în calculator. Să se rearanjeze elementele din şir astfel încât primul element al şirului dat să apară pe ultima poziţie. Exemplu: Date de intrare: n=3 numere: 1 2 3 Date de ieşire: 2 3 1. 3) Se introduc n numere în ordine crescătoare şi un număr k. Să se insereze acest număr în şirul dat astfel încât să rămână sortat crescător. Exemplu: Date de intrare: n=4 k=100 numere: 90 95 110 120 Date de ieşire: 90 95 100 110 120. 4) Definim operaţia de compactare a unui tablou ca fiind eliminarea zerourilor. Dacă întâlnim un element nul toate elementele situate la dreapta sa vor veni cu o poziţie mai in faţă, în locul său. Se dă un tablou cu n elemente intregi. Compactaţi-l. Exemplu: Date de intrare: n=4 numere: 9 0 0 5 Date de ieşire: 9 5. 5) Să se aşeze toate elementele egale cu o valoare v dintr-un şir de
Citiți mai multe

Alt set de probleme

-
Ne propunem in continuare sa adaugam un set nou de probleme pe blog, pentru ca elevii dornici sa munceasca sa aiba de unde alege probleme. I.Structura liniara si structura de selectie 1. Un bazin se umple cu apa prin intermediul a doua robinete.Daca lasam primul robinet deschis timp de h1 ore si al doilea robinet timp de h2 ore, in bazin vor fi p litri de apa. Daca primul robinet curge h1+1 ore iar al doilea h2-1 ore, in bazin vor fi o litri de apa. Scrieti un program care afiseaza cati litri de apa curg prin fiecare robinet timp de o ora. 2.Doua autobuze efectueaza curse regulate intre orasele O1 si O2. Primul autobuz pleaca din orasul O1 catre orasul O2 si circula cu viteza v1(kilometric/ora). Iar al doilea pleaca din orasul O2 catre orasul O1 si se deplaseaza cu v2 km/h. Stiind ca distanta dintre cele doua orase este d kilometric, scrieti un program care calculeaza dupa cat timp se intalnesc autobuzele si la ce distanta fata de orasul O1 are loc intalnirea. 3.Fiind date dou
Citiți mai multe

Obiecte cu care lucreaza algoritmii

-
OBIECTE CU CARE LUCREAZĂ ALGORITMII, OPERAŢII PERMISE: Algoritmii lucrează cu: date şi variabile. Algoritmii preiau datele de intrare asupra cărora acţionează pentru a obţine date de ieşire (rezultate). Datele se caracterizează prin tipul lor, valoarea pe care o conţin (corespunzătoare tipului) şi modul în care se tratează aceasta valoare (variabilă sau constantă). Datele pot fi: întregi, reale, logice, şir de caractere. Datele întregi şi reale poartă numele de date numerice. Datele reale sunt numere zecimale. Mulţimea numerelor reale este o reuniune între mulţimea numerelor raţionale şi mulţimea numerelor iraţionale. Deoarece calculatoarele nu pot reţine numere iraţionale, în informatică, printr-o dată reală înţelegem o valoare cu un număr finit de zecimale. Datele logice au două tipuri de valori: TRUE(adevărat) şi FALSE (fals). Datele de tip şir de caractere sunt reprezentate prin şiruri de caractere cuprinse între apostrofuri. Constantele sunt date care nu-şi modifică valoarea pe pa
Citiți mai multe