Anonymní profil Synett – Programujte.com

Tak všem díky za rady, už jsem to nějak vyřešil, tady dávám výpis, pokud si myslíte, že by šlo něco upravit, tak napište. Díky

uses

  SysUtils;

  var i,pocetznaku:integer;

      vp:string;

      mp:string;

      ci:string;

      text:string;





begin

     writeln('Zadejte znaky: ');

     readln(text);

     pocetznaku:=length(text);

      for i := 1 to pocetznaku do

      if (text[i] in ['A'..'Z']) then vp:=vp+text[i]

      else if (text[i] in ['a'..'z']) then mp:=mp+text[i]

      else if (text[i] in ['1'..'9']) then ci:=ci+text[i];

      writeln(vp,mp,ci);

      readln;

end.

To Jeyekomon : Neměl jsem na mysli, nějakou konkrétní funkci, spíš jako to, že umím v pascalu podmínky, cykly a trochu řetězce a pole, ale dělá mi problém to zakomponovat dohromady.

To Honzc : Děkuji za radu, ale mohl bys mi to napsat ještě trochu podrobněji, jsem začátečník a neznám ještě všechny potřebné funkce pascalu.

Ahoj, potřeboval bych pomoct s programem, který srovná znaky v řetězci tak, že budou nejdříve velká písmena, pak malá a nakonec číslice. Ostatní znaky se odstraní. Př.: 'sAjy5+kJy*r8' bude srovnáno:'AJsjkykyr58'. Děkuji za pomoc.

Chtěla bych se zeptat, zda jde naprogramovat pexeso, ve kterém tvoří dvojice dvě různé karty. Nevím jestli na to stačí makra, třeba v ppt.