Napiste program, ktory moze byt skompilovany oboma druhmi kompilatorov Pascalu a po spusteni vypise ANO, ak bol skompilovany kompilatorom s vnorenym zatvorkovanim a NIE, ak bol skomp

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Ján Mojžiš
Program: O_brckavych_zatvorkach.pas,  Crt_efd.pas

Napiste program, ktory moze byt skompilovany oboma druhmi kompilatorov Pascalu a po spusteni vypise ANO, ak bol skompilovany kompilatorom s vnorenym zatvorkovanim a NIE, ak bol skomp. kompilatorom s nevnorenym zatvorkovanim

Zistil som ze sa to da aj takto. Tie uvodzovky su tam dolezitou sucastou, lebo ale uz nechce uznat, ked nepodporuje vnorene ale '' mi uzna a teda ''text - ANO' --> 'text NIE'text ANO' pri vnorenom sa neberie do uvahy pri text, lebo sa hodi do uvodzovky.

POZNAMKA:
CRT_EFD nie je sucastou tohto riesenia. Kniznicu CRT_EFD pre pracu s konzolovymi vypismi mozete stiahnut napriklad na: http://www.stano.wz.sk/index.php?id=8 
{ ==============                                                               }
{ KSP 15. rocnik  1212: O brckavych zatvorkach        Copyright (c) Jan Mojzis }
{ ==============                                                               }
{ Zadanie:                                                                     }
{ Napiste program, kt. moze byt skompilovany oboma druhmi kompilatorov Pascalu }
{ a po spusteni vypise ANO, ak bol skompilovany kompilatorom s vnorenym        }
{ zatvorkovanim a NIE, ak bol skomp. kompilatorom s nevnorenym zatvorkovanim   }
{ ---------------------------------------------------------------------------- }
{ Zistil som ze sa to da aj takto.                                             }
{ Tie uvodzovky su tam dolezitou sucastou, lebo {{} ale } uz nechce uznat, ked }
{ nepodporuje vnorene ale {{}'}' mi uzna a teda {{}'}'text - ANO' -->          }
{ {{}'text NIE}'{text ANO' pri vnorenom sa neberie do uvahy { pri text, lebo sa}
{ hodi do uvodzovky.                                                           }
{ POZNAMKA:                                                                    }
{         CRT_EFD nie je sucastou tohto riesenia. Kniznicu CRT_EFD pre pracu s }
{        konzolovymi vypismi mozete stiahnut napriklad na:                     }
{        http://www.stano.wz.sk/index.php?id=8                                 }
{                                                                              }
{  Author: (c) 2007 Jan Mojzis                                                 }
{  Date  : 06.07.2008                                     http://www.trsek.com }
 
program o_brckavych_zatvorkach;
 
uses
  SysUtils, CRT_EFD in 'CRT_EFD.PAS';
 
begin
{  v prip. ze podp. dvojite komentare, tak sa do uvahy                }
{    neberie prvy apostrof ale az ten druhy a teda:                }
{    'NIE' --> NIE'ANO'   a NIE bude este zrusene, ANO uz nie        }
 
  writeln({{}'NIE}'{ANO'{});
  readln;
end.