Определить, сколько среди данных чисел равно нулю - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д