Programul Pascal este:
var i:integer;
s:string;
begin
for i:=1 to paramcount do write(paramstr(i),' ');
write('? (y/n)');
repeat
readln(s);
if (s='y') or (s='Y') halt(0);
if (s='n') or (s='N') halt(1);
write('Answer y or n ! ');
until false;
end.
Acelasi lucru se poate scrie in C in modul urmator:
#include <stdio.h>
int main(int argc, char* argv[])
{
int i;
char c;
for(i=1 ; i<argc ; ++i) printf("%s ", argv[i]);
printf("\n");
while(1){
scanf("%c", &c);
if(c=='y' || c=='Y') return 0;
if(c=='n' || c=='N') return 1;
printf("Answer y or n ! ");
}
return 0;
}
Presupunem ca unul din programele de mai sus este compilat sub numele
intreb.exe. Fisierul de comenzi va fi
:bucla
rem testam daca mai avem argumente
if "%1"=="" goto final
rem pentru fiecare nume, verificam daca e nume de fisier
if exist %1 goto exista
echo fisierul %1 nu exista
goto reia
:exista
rem daca fisierul exista, intrebam si eventual stergem
intreb Stergem %1
if not errorlevel 1 del %1
:reia
shift
goto bucla
:final
Programe Pascal sau C cu argumente