Определить, сколько среди данных чисел равно нулю - PascalABC.NET

Формулировка задачи:

Определить, сколько среди данных чисел равно нулю. В условии задачи дана произвольная последовательность чисел. Эти числа должны сообщаться программе как параметры командной строки. Результат должен: 1) Выводиться на экран в понятном виде. 2) В таком же виде печататься в файл result.txt. Работать должна через far

Решение задачи: «Определить, сколько среди данных чисел равно нулю»

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses System.IO;
var
  i,c,j:integer;
  r:real;
procedure writeout(s:string);
begin
  &File.WriteAllText('result.txt',s,Encoding.Default);
  writeln(s);
end;  
begin
  if ParamCount=0 then begin
    writeout('Отстуствуют параметры коммандной строки');
    exit;
  end  
  else 
    for i:=1 to ParamCount do begin
      Val(ParamStr(i),r,c);
      if c<>0 then begin
        writeout(ParamStr(i)+'- не числовой  параметр! Аварийное завершение');
        exit;
      end;
      if r=0 then j:=j+1;
    end;
    writeout('чисел равых нулю:'+IntToStr(j));
end.

Оцени полезность:

8 голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы