Matematické Fórum

↑ janca361: Má se načíst jméno a příjmení do jedné proměnné, jednoho řetězce.

Pak je třeba vyhledat v tomto řetězci znak mezery, zapamatovat si jeho index a pak už jen vypisovat podřetězce.

Vše se dá dělat buď ručně znak po znaku, nebo se dají využít standardní funkce, zejména Pos() a Copy().

No a minimálně za použití Length() místo vyčítání nultého znaku jako čísla bych se přimlouval.

Program se dá "vyšperkovat" tím, že budeme reagovat i na situaci, kdy zadaný string neobsahuje mezeru, resp. mezera je prvním či posledním znakem. Ale to není nutné (klidně předpokládejme, že ta mezera je někde uprostřed).

Aby ses měla od čeho odpíchnout, tak takto nějak by se dalo začat:

uses Crt;

var
  jmeno: String[100];
  index_mezery: Integer;

procedure najdi_index_mezery;
begin
  index_mezery := 1;
  while (jmeno[index_mezery] <> ' ') do index_mezery := index_mezery + 1;
end;

procedure vypis_inicialy;
begin
  WriteLn('Inicialy jsou ', jmeno[1], '.', jmeno[index_mezery + 1], '.');
end;

begin
  ClrScr;
  Write('Zadej jmeno a prijmeni oddelene mezerou: ');
  ReadLn(jmeno);

  najdi_index_mezery;

  WriteLn;

  vypis_inicialy;

  WriteLn;
  Write('Stiskni <Enter>');
  ReadLn;
end.

↑ Škůby: Víš, co je to řetězec (resp. pole) a jaká je syntaxe v Pascalu pro práci s ním?

Škůby napsal(a):

Ve škole, jsme dostali takový úkol. Jsem v pascalu začátečník a s tímhle ...

Škůby napsal(a):

syntaxe vim co je...jak myslíš to v Pascalu?

No tak to je potom hodně těžký. Jaký druh pomoci ale zde očekáváš?

↑ Škůby:
Zkusím to ještě jinak: Znáš proměnnou (druh proměnné, datový typ) do které lze načíst více než 1 znak?
Říká ti něco string?

↑ Škůby:
A máš nějaké materiály ze kterých si to můžeš nastudovat?

↑ Škůby:
A pole (array) ti něco říká?


EDIT: Jinak jestli ti můžu doporučit... Podle mě je dobrá knížka: Pascal pro zelenáče (Pavel Satrapa) ke stažení třeba zde.

↑ janca361: jo a děkuju za tu knížku, hned si jí jdu stáhnout

↑ janca361: integer, real, char...tyhle 3