Question

Treść zadania: "Napisz program w Turbo Pascalu, który poprosi użytkownika o podanie swojego imienia i nazwiska, a następnie wyświetli jego imie (patrz załączony przykład)"

Chodzi o to, aby można było wpisać dowolne imię i nazwisko.

Nie znam typów tablicowych, procedur itp.

Jestem dopiero na poziomie typów łańcuchowych (string).

Proszę o jak najprostsze rozwiązanie.

Inne rozwiązania niż w Turbo Pascalu, lub zbyt skomplikowane - oznaczam jako SPAM

Answer 1

[code]

Program zadanie;
Uses crt;

Var
imie,nazwisko:string[30];

Begin
clrscr;
write('Podaj Imie :');
readln(imie);
write('Podaj Nazwisko :');
readln(nazwisko);
writeln('Twoje imie to :',imie);
writeln('Twoje nazwisko to :',nazwisko);
readln;
End.
[/code]

Albo

[code]


Program zadanie;
Uses crt;

Var
imieinazwisko:string[70];
i:byte;

Begin
clrscr;
i:=1;
write('Podaj Imie i Nazwisko:');
readln(imieinazwisko);
write('Twoje imie to :');
While i<length(imieinazwisko) do
Begin
write(imieinazwisko[i]);
If imieinazwisko[i]=' ' then
Begin
writeln;
write('Twoje nazwisko to :');
For i:=i+1 to length(imieinazwisko) do write(imieinazwisko[i]);
break;
End;
i:=i+1;
End;
readln;
End.

[/code]

Do wyboru, do koloru.
Druga wersja zgadza się z wersją na screenie ;).

Answer 2

rozwiązanie w załączniku.  Mam nadzieje że pomogłem? prostrzej odpowiedzi wymyśleć nie mogłem uwzględniając to co miałeś do tej pory z pascala.