Cyklus na zistenie interpunkčného znaku

GamerSK

Zdrávim, Potreboval by som pomoc ohľadom cyklus pre program ktorý má nájsť vo vete . ? ! :
Skúšal som to urobiť cez for ale to mi potom vypisovalo stále do konca vety keď som dal length(veta)
Kód:

Kód:

program premenavety;
{$APPTYPE CONSOLE}
uses SysUtils;
var veta:string;
    znak:char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(veta);
  if (veta <> '.') or (veta <> '?') or (veta <> '!') or (veta <> ':') then
    begin
      write('Dokoncite vetu! ');
      readln(znak);
      writeln(veta,znak);
    end;
  writeln('Zadali ste vetu:');
  writeln(veta);
  readln;
end. 

focko · Napísal **focko**: 05.02.2017 19:54 | Cyklus na zistenie interpunkčného znaku

trochu nechapem... toto if sa ma spravit ak na konci nie je znamienko?

GamerSK

presne tak

focko · Napísal **focko**: 05.02.2017 20:06 | Cyklus na zistenie interpunkčného znaku

Kód:

program premenavety;
uses SysUtils;
var
  veta: string;
  znak: char;
  index: integer;
begin
  write('Zadajte vetu: ');
  readln(veta);
  index := Length(veta);
  if (veta[index] <> '.') or (veta[index] <> '?') or (veta[index] <> '!') or (veta[index] <> ':') then
    begin
      write('Dokoncite vetu! ');
      readln(znak);
      writeln(veta,znak);
    end;
  writeln('Zadali ste vetu:');
  writeln(veta);
  readln;
end.

GamerSK

ako si mi to nefunguje stále to po mne chce zadať znak po napísaný vety so znakom

Kód:

program premenavety;
{$APPTYPE CONSOLE}
uses SysUtils;
var veta:string;
    znak:char;
    i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(veta);
  i:=length(veta);
  if (veta[i] <> '.') or (veta[i] <> '?') or (veta[i] <> '!') or (veta[i] <> ':') then
    begin
      write('Dokoncite vetu! ');
      readln(znak);
    end;
  writeln('Zadali ste vetu:');
  write(LowerCase(veta));
  writeln(znak);
  readln;
end.

focko · Napísal **focko**: 05.02.2017 20:16 | Cyklus na zistenie interpunkčného znaku

namiesto or ma byt and

Miso122

Skús zmeniť
index:=length(veta)-1;

GamerSK

akosi som nepochopil if pretože po zadaní AND na miesto or to funguje. PS: Ďakujem za pomoc

// Spojený príspevok Ned 05.02.17 20:22

Ešte raz ďakujem fockovi za pomoc!
Program:

Kód:

program premenavety;
{$APPTYPE CONSOLE}
uses SysUtils;
var veta:string;
    znak:char;
    i:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(veta);
  i:=length(veta);
  if (veta[i] <> '.') and (veta[i] <> '?') and (veta[i] <> '!') and (veta[i] <> ':') then
    begin
      write('Dokoncite vetu! ');
      readln(znak);
    end;
  writeln('Zadali ste vetu:');
  write(LowerCase(veta));
  writeln(znak);
  readln;
end. 

Môžete LOCK

Cyklus na zistenie interpunkčného znaku

Cyklus na zistenie interpunkčného znaku

Podobné témy

Validnosť znaku |

sirka znaku

prepisanie znaku assembler

VB - cyklus

diagram cyklus

Nekonečný cyklus

zakazanie zobrazovania jedneho znaku

excel - vymazanie jedného znaku...

Zafarbenie znaku v textarei

[pascal] nekonecny cyklus

JAVA, FOREACH CYKLUS

PHP cyklus for

C cyklus for

Nahrazování chybějících znaků fonty Win7_zmatek

c++ nahradenie znaku viacerými znakmi

EXCEL - cyklus na combobox