 |
www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Nie 21:16, 13 Sty 2008 Temat postu: Lista 10 - zadanie 2 Cwiczenia |
|
|
| Kod: |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure pokaz(nazwa: string);
var plik: text;
c: char;
ilea:byte;
begin
ilea:=0;
assign(plik,nazwa);
reset(plik);
if eof(plik) then writeln('Plik ', nazwa, ' jest pusty')
else
begin
repeat
read(plik,c);
write(c);
if c='A' then inc(ilea);
until eof(plik);
end;
writeln;
writeln('Ile liter A bylo w pliku',ilea);
end;
var nazwa: string;
begin
write('Podaj sciezke pliku, ktorego zawartosc mam wczytac: ');
readln(nazwa);
writeln('Zawartosc pliku ',nazwa,':');
pokaz(nazwa);
writeln('Koniec pliku.');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
| Powrót do góry |
|
 |
|
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Nie 22:00, 13 Sty 2008 Temat postu: |
|
|
Widze, ze sie Krystian wziales do roboty. Ja jeszcze odpoczywam i nic nie robilem :
Ja od poniedziałku zaczynam dziobać programowanie
Ostatnio zmieniony przez stramik dnia Pon 12:04, 14 Sty 2008, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
