Anonymní profil Kateřina Brožíková – Programujte.com

Chtěla bych se zeptat jestli tady někdo neví jak naprogramuji program, ktery má zaměňovat i za y a naopak y za i????

for i:=length(jmeno) downto 1 do


a hotovo;)

Krychlik napsal:
To lopflop : Jsou 2 moznosti- bud pouzijes klasicky velky string a cyklus bude od jmeno[0] do 1. Na nultem znaku stringu je ulozena jeho delka. Nebo jestli opravdu trvas na tom, ze ten string bude mit 10 znaku, tak si prvni cely ten string zapln nejakym znakem, treba mezerou, a do vypisu dej if jmeno[i]<>' ' then write(jmeno[i]).

dobrej, delam ukol na otoceni jmena a prijmeni, at ale delam cokoli, nedokazu ses zbavit prebytecnych mezer, jsem zacatecnik tak to bude asi tim, nepomohl ani google, prakticky de o to, ze to tiskne prazdne znaky stringu a nevim jak se jich zbavit, prosim o radu

program referat;
uses crt;
var jmeno,prijmeni:string[10];
i,v:integer;
begin
clrscr;
writeln('Zadej jmeno: ');
readln(jmeno);
writeln('Zadej prijmeni: ');
readln(prijmeni);
for i:=10 downto 1 do
write(jmeno[i]);
writeln;
for v:=10 downto 1 do
write(prijmeni[v]);
writeln;
readkey;
end.

obrazek-http://movies.esuba.net/lopflop/pascal.png