Question

W Pascalu . Napisz program który zczytuje z klawiatury imie_nazwisko_klasa a nastepnie wyswietla jes jako osobno dane

imie:

nazwisko:

klasa:

Proszę o pomoc;D

Answer 1

Chcesz wprowadzić tekst do programu np: "Ania_kowalska_2d" tak? Jak tak to to powinno działać.

program zadanie;
USES CRT;
Var
imie, nazwisko, klasa, smieci :String;
i, tmp : byte;
Begin
clrscr;
imie:='';
nazwisko:='';
klasa:='';
tmp:=0;
Write( 'Podaj ciag imie_nazwisko_klasa: ' );
ReadLn( smieci );
for i:=1 to length(smieci) do
begin
if ((smieci[i]='_')and(imie='')) then
begin
imie:= Copy(smieci, 1, i-1);
tmp:=i;
end
else
if ((smieci[i]='_')and(nazwisko='')) then
begin
nazwisko:= Copy(smieci, tmp+1, i-tmp-1);
klasa:= Copy(smieci, i+1, length(smieci)-i);
end
end;
WriteLn( 'Imie:', imie );
WriteLn( 'Nazwisko:', nazwisko );
WriteLn( 'Klasa:', klasa );
ReadLn;
End.

Answer 2

Ewentualnie jeżeli może to być wpisywane po enterach to:

 

USES CRT;
VAR
imie,nazwisko,klasa:STRING;
BEGIN
CLRSCR;
WRITELN('Imie:');
READLN(imie);
WRITELN('Nazwisko:');
READLN(nazwisko);
WRITELN('Klasa:');
READLN(klasa);
CLRSCR;
WRITELN('Imie: ',imie);
WRITELN('Nazwisko: ',nazwisko);
WRITELN('Klasa: ',klasa);
READKEY;
END.