1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Задача: в последовательности четырёх чисел, заданных с клавиатуры, найти количество нулей. У меня получилась такая вот программка, только какая-то она примитивная...
Любая программу будет смотреться примитивно, если в ней не соблюдается элементарное форматирование (отступы). И любая, даже самая простая программа, даже 2х2, будет выглядеть профессионально, если она правильно сформатирована.
А если хочешь пооригинальнее, можешь сделать так, например:
Еще одно замечание: действительные числа неправильно сравнивать с нулем знаком равенства. Ошибки вычислений всегда были, есть и будут. Для только что введенных с клавиатуры чисел это еще сработает, но для результатов вычислений - практически никогда. Сравнивать надо так:
Abs(a)<e
- где e - допустимая ошибка.
И обрати внимание на замечание Айры про нули в десятичной записи - не это ли имелось в виду?
Добавлено через 3 мин. И последнее: убери clrscr. Это mauvais ton
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
С массивами я знакома, но здесь мы их ещё не разбирали
Циклы разбирали? (насколько я помню, циклы идут перед массивами) Читаешь число, сразу проверяешь его на близость к нулю. Если близко - увеличиваешь счетчик. И так 4 раза подряд... А потом содержимое счетчика печатаешь...