Question

ZADANIE Z PROGRAMOWANIA W PASCALU!!!

Z WYKORZYSTANIEM FUNKCJI POS ORAZ DELETE NAPISZ PROGRAM KTÓRY

1)ODCZYTA OD UŻYTKOWNIKA ciąg znaków(obojętnie co) I W FUNKCJI SKASUJE WSZYSTKIE ZNAKI A

2) ZROBIC TO TEŻ BEZ POLECEN POS I DELETE

I JAK MOŻNA TROCHĘ WYTŁUMACZYĆ

Z GÓRY DZIĘKUJE!!!!

Answer 1

Możesz ominąć wszystkie zapisy (* ... *), to są komentarze dla Ciebie. Jakby co to pisz.

 

usuwa małe a:

 

program znak_a;
uses crt;
var
tekst:string; (*sprawdzany tekst*)
szuk:char; (*szukana litera w tekście*)
i:integer;
ile:integer; (*przechowa ilość wprowadzonych znaków*)
poz:integer; (*numer miejsca, w którym znajduje się szukana litera*)

Begin
clrscr;
Writeln('Wprowadź tekst:');
Writeln;
readln(tekst); (*wczytywanie wprowadzanego tekstu*)
Writeln;
Writeln('Tekst po zmianie');
Writeln;

ile:=length(tekst); (*sprawdza długość tekstu*)
szuk:='a'; (*będzie szukał a*)
for i:=1 to ile do (*sprawdzanie wszystkich znaków w tekście*)
begin
poz:=pos(szuk, tekst); (*znajdzie numer miejsca, w którym znajduje się a*)
delete(tekst, poz, 1); (*w tekście od pozycji numer poz skasuje 1 znak*)
end;
writeln(tekst); (*wyświetli tekst po zmianie*)

readln;
end.

 

---------------------------------------------------------------------------

usuwa a oraz A:

 

program znak_a;
uses crt;
var
tekst:string; (*sprawdzany tekst*)
szuk1, szuk2:char; (*szukana litera w tekście*)
i:integer;
ile:integer; (*przechowa ilość wprowadzonych znaków*)
poz:integer; (*numer miejsca, w którym znajduje się szukana litera*)

Begin
clrscr;
Writeln('Wprowadź tekst:');
Writeln;
readln(tekst); (*wczytywanie wprowadzanego tekstu*)
Writeln;
Writeln('Tekst po zmianie');
Writeln;

ile:=length(tekst);
szuk1:='a';
for i:=1 to ile do
begin
poz:=pos(szuk1, tekst); (*znajdzie numer miejsca, w którym znajduje się a*)
delete(tekst, poz, 1); (*w tekście od pozycji numer poz skasuje 1 znak*)
end;

szuk2:='A'; (*będzie szukać A*)
ile:=length(tekst); (*sprawdzi długość tekstu po usunięciu z niego a*)
for i:=1 to ile do
begin
poz:=pos(szuk2, tekst); (*znajdzie numer miejsca, w którym znajduje się A*)
delete(tekst, poz, 1); (*w tekście od pozycji numer poz skasuje 1 znak*)
end;
writeln(tekst); (*wyświetli tekst po zmianie*)

readln;
end.

 

--------------------------------------------------------------------------------

 

zamiast a oraz A wstawia spację - bez pos i delete

 

program znak_a;
uses crt;
var
tekst:string; (*sprawdzany tekst*)
szuk1, szuk2:char; (*szukana litera w tekście*)
i:integer;
ile:integer; (*przechowa ilość wprowadzonych znaków*)
poz:integer; (*numer miejsca, w którym znajduje się szukana litera*)

Begin
clrscr;
Writeln('Wprowadź tekst:');
Writeln;
readln(tekst); (*wczytywanie wprowadzanego tekstu*)
Writeln;
Writeln('Tekst po zmianie');
Writeln;

ile:=length(tekst); (*sprawdza długość tekstu*)
szuk1:='a';
szuk2:='A';
for i:=1 to ile do (*przeszuka znak po znaku*)
begin
if tekst[i]=szuk1 then (*jeżeli w tekście znak numer i będzie miał wartość a to*)
tekst[i]:=' '; (*zamieni go na spację*)
if tekst[i]=szuk2 then (*jeżeli w tekście znak numer i będzie miał wartość A to*)
tekst[i]:=' '; (*zamieni go na spację*)
end;
writeln(tekst); (*wyświetli tekst po zmianie*)
readln;
end.