| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
LORYeDANA
Elev
Data inscrierii: 20/Mar/2008
Mesaje: 1
|
 Trimis: 20.03.2008 16:12 Titlul subiectului: Problema 08 |
|
|
Scrieþi programul C, C++ sau Pascal, care citeºte de la tastaturã un ºir s de cel mult 30 de caractere ºi un caracter c. Programul determinã triplarea fiecãrei apariþii a caracterului c în s ºi scrie noul ºir obþinut în fiºierul text final.out.
De exemplu, dacã se citeºte ºirul : ciocarlie ºi caracterul c atunci fiºierul va conþine ºirul : "ccciocccarlie".
| Cod: |
program ex8;
var s,c:string;
n,i:integer;
begin
readln(n);
readln(c);
assign(f,'final.out');
rewrite(f);
i:=1;
while i<=length(s) do
if s[i]=c then begin
insert(c+c,s,i+1);
i:=i+3;
end
else i:=i+1;
write(f,s);
close(f);
end. |
|
|
| Sus » |
|
 |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 20.03.2008 17:41 Titlul subiectului: |
|
|
Vad ca ai declarat c-ul ca fiind string si ai citit n-ul in loc de s. Deschiderea fisierului am mutat-o la sfarsit. Aaa... si n-ai declarat f-ul. Am sters n-ul ca n-are nici un rost.
Uite ce-a iesit:
| Cod: |
program prob8;
var s:string;
c:char;
i:integer;
f:text;
begin
write('s='); readln(s);
write('c='); readln(c);
i:=1;
while i<=length(s) do
if s[i] = c then
begin
insert(c+c, s, i+1);
i:=i+3
end
else i:=i+1;
assign(f, 'final.out'); rewrite(f);
write(f,s);
close(f)
end. |
 |
|
| Sus » |
|
|
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 13:49 Titlul subiectului: |
|
|
| Cod: |
{8. scrieti programul pascal care citeste de la tastatura un sir de cel mult
30 de caractere si un caracter c. programul determina triplarea fiecarei
aparitii a caracterului c in s si scrie noul sir obtinut in fisierul text
final.out}
program ex8;
var f:text;
s, t:string;
c:char;
i:integer;
begin
assign(f,'final.out'); rewrite(f);
write('s: '); readln(s);
write('c: '); read(c);
t:=c+c;
i:=1;
while i<=length(s) do if s[i]=c then begin
insert(t,s,i);
i:=i+3;
end
else i:=i+1;
write(f,s);
close(f);
end.
|
|
|
| Sus » |
|
|
|
|
