Forum Index > Coș cu teme șterse > Soft > Ajutor Turbo Pascal!!

#0 by andreymunteanu22 (Power User) (0 mesaje) at 2017-12-16 14:45:52 (327 săptămâni în urmă) - [Link]Top
1) Sa se scrie un program care citeste un sir de caractere si afiseaza lungimea lui.

2)Se considera un sir de caractere sa se scrie programe care:
A)calculeaza numarul sumar de aparitii ale caracterelor "a" si "b".
B)inlocuieste toate vocalele prin litera "w".
C) inlocuieste caracterul "a" cu caracterul "b"

3)Se da un text.Sa se substituie litera "a" cu combinatia "cu" si invers.De exemplu : pentru texul "culoare" se va afisa "alocure".


Am nevoie urgent!!


Mesaj util ?   Da   1 puncte

1
<< Precedenta      Următoarea >>

#1 by uniqual (Power User) (0 mesaje) at 2017-12-16 22:03:45 (327 săptămâni în urmă) - [Link]Top
https://www.freepascal.org/docs-html/rtl/system/length.html
https://www.freepascal.org/docs-html/rtl/sysutils/stringreplace.html


Mesaj util ?   Da   0 puncte
#2 by Tmax (User) (0 mesaje) at 2017-12-16 22:35:38 (327 săptămâni în urmă) - [Link]Top
#0 andreymunteanu22, hai mai cai simplu de tot chiar nici asa ceva nu puteti face


Mesaj util ?   Da   1 puncte
#3 by System at 2017-12-17 00:21:03 (327 săptămâni în urmă) - [Link]Top
Programele sunt prea simple ca să le rezolve cineva.


Mesaj util ?   Da   2 puncte
#4 by Vanyka007 (Power User) (0 mesaje) at 2017-12-18 09:28:11 (327 săptămâni în urmă) - [Link]Top
O mulțime de probleme pascal rezolvate.
https://dcms.duzun.me/filebrowser.html?file=programming/pascal/probleme&art_id=7


Mesaj util ?   Da   0 puncte
#5 by Tmax (User) (0 mesaje) at 2017-12-19 11:36:03 (327 săptămâni în urmă) - [Link]Top
1

Program P1;
var a:string;
b:integer;
begin
writeln('Dati sirul'); readln(a);
b:=length(a);
writeln('Lungimea sirului:',b);
readln;
end.
ÎnchideЗакрыть

#0 andreymunteanu22, Daca mai trebuie ma apuc sa ti le fac pe toate


Mesaj util ?   Da   0 puncte
#6 by Tmax (User) (0 mesaje) at 2017-12-19 14:04:03 (327 săptămâni în urmă) - [Link]Top
2

Program P1;
var a:string;
b,i,cont,caz:integer;
c:char;
begin
cont:=0;
writeln('Dati nr caz'); readln(caz);
writeln('Dati sirul'); readln(a);
b:=length(a);
for i:= 1 to b do begin
c:=a[i];
if caz=1 then
if (c='a') then cont:=cont+1;
if (c='b') then cont:=cont+1;
if caz=2 then
if (c='a') then a[i]:='b';
if caz=3 then
if ((c='a') or (c='e') or (c='i') or (c='o') or (c='u')) then a[i]:='w'
end;
writeln('A si B repeta de:',cont);
writeln('Sirul:',a);
readln;
end.
ÎnchideЗакрыть



Mesaj util ?   Da   0 puncte
#7 by Jubilee (Knight of TMD) (0 mesaje) at 2018-04-26 23:40:25 (309 săptămâni în urmă) - [Link]Top
Te adresezi Aici daca o sa mai ai nevoie de ajutor.


Mesaj util ?   Da   0 puncte

1
<< Precedenta      Următoarea >>

Forum Index > Coș cu teme șterse > Soft > Ajutor Turbo Pascal!!

Această temă este închisă. Nu puteţi posta mesaje noi.


Navigare rapidă:


Comunitatea digitală din Moldova. Să adunăm și să organizăm conținutul autohton de pe întreg internet pe un singur site web.