Anonymní profil Kateřina Brožíková – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 

Příspěvky odeslané z IP adresy 82.100.4.–

Kateřina Brožíková
Delphi › Změna i na y a naopak
20. 3. 2010   #125584

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????

Pascal › Smazání mezer//tisknuti praz…
9. 11. 2009   #118805

for i:=length(jmeno) downto 1 do


a hotovo;)

Pascal › Smazání mezer//tisknuti praz…
9. 11. 2009   #118782

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]).


presne to mi radil i ucitel ale nefunguje to nebo jsem to napsal nejak spatne..http://movies.esuba.net/lopflop/pascal2.jpg

Pascal › Smazání mezer//tisknuti praz…
9. 11. 2009   #118773

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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý