Ricko
Brain
Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów
Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..
|
 Wysłany: Nie 12:38, 08 Maj 2011 Temat postu: Słowa - Informatyka (R) |
|
|
Słowa
a)Pobranie słów z pliku slowa.txt
b)Zapisanie pobranych słów "od tyłu" do pliku hasla_a.txt
c)Znalezienie najdłuższego słowa i zapisanie go wraz z jego długością do pliku slowa_a.txt
Źródło: Praca na lekcji informatyki rozszerzonej
| Cytat: |
program slowa;
uses crt;
var
dane,wynik1,wynik2:text;
slowo,slowo_max,slowo_min:string;
min,max:integer;
procedure odwroc(var slowo:string);
var
pomoc:string;
i:integer;
begin
pomoc:='';
for i:=length(slowo) downto 1 do
pomoc:=pomoc+slowo[i];
slowo:=pomoc;
end;
begin
clrscr;
assign(dane, 'slowa.txt');
assign(wynik1, 'hasla_a.txt');
assign(wynik2, 'slowa_a.txt');
reset(dane);
rewrite(wynik1);
rewrite(wynik2);
min:=31;
max:=0;
slowo_min:=slowo;
slowo_max:=slowo;
while not Eof(dane) do
begin
readln(dane, slowo);
odwroc(slowo);
writeln(wynik1,slowo);
if length(slowo) > max then
begin
max:=length(slowo);
slowo_max:=slowo;
end;
if length (slowo) < min then
begin
min:=length(slowo);
slowo_min:=slowo;
end;
end;
writeln(wynik2, 'Max: ' ,max, ' ' ,slowo_max);
writeln(wynik2, 'Min: ' ,min, ' ' ,slowo_min);
close(dane);
close(wynik1);
close(wynik2);
writeln('ZROBIONO!');
readln;
end. |
Post został pochwalony 0 razy
Ostatnio zmieniony przez Ricko dnia Nie 12:38, 08 Maj 2011, w całości zmieniany 1 raz
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
