Skocz do zawartości

sinilotomasz

Użytkownicy
  • Zawartość

    9
  • Rejestracja

  • Ostatnia wizyta

Reputacja

0 Neutralny

O sinilotomasz

  • Tytuł
    Chicken

Previous Fields

  • GG
    399633
  1. Prubowałem to zrobić tak ale mi coś nie wychodzi program licz; {$APPTYPE CONSOLE} uses SysUtils; function zliczaj_litery(litera:char):integer; var Litery:array [65..122] of integer; i:integer; plik:Text; nazwa_pliku:String; Znak:Char; linia : string; licznik:integer; begin linia:=0; Writeln('Podaj nazwe pliku, ktory chcesz otworzyc (pamietaj o rozszerzeniu!)'); Readln(nazwa_pliku); Assign(plik,nazwa_pliku); Reset(plik); while not EOF(plik) do begin read(plik,linia); // kopiowanie każdej linii dokumentu do zmiennej linia For i:=1 to length(linia) do // badanie każdego znaku w linii if (litery)=znak then inc(licznik) // jeśli znaleziono licznik zwiększamy close(plik); end.
  2. nauczyćiel mi kazał napisać to bez procedury i miały być użyte tablice
  3. tylko litery z alfabetu bez polskich okienkowo
  4. Muszę napisać ten program tylko nie wiem jak bo to dopiero mój początek z delphi prosze o pomoc.
×