Ajutor Turbo Pascal!!

#0 by andreymunteanu22 (Power User) (0 mesaje) at 2017-12-16 14:45:52 (361 săptămâni în urmă) - [Link]

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 (361 săptămâni în urmă) - [Link]

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 (361 săptămâni în urmă) - [Link]

#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 (361 săptămâni în urmă) - [Link]

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 (361 săptămâni în urmă) - [Link]

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 (361 săptămâni în urmă) - [Link]

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 (361 săptămâni în urmă) - [Link]

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 (342 săptămâni în urmă) - [Link]

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.