1 / 1 / 0
Регистрация: 08.03.2014
Сообщений: 99

Программа пишет все числа до числа n, а надо n чисел положительных и нечетных

14.12.2015, 14:29. Показов 668. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных нечетных чисел (1, 3, 5…).
Программа пишет все числа до числа n, а надо n чисел положительных и нечетных.
как исправить?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;//Подключение библиотеки вывода на экран
var//Описание переменных
  f: text;//Описание переменных
  fname: string;//Описание переменных
  n, i: integer;//Описание переменных
begin//Начало программы
  clrscr;//Очистка экрана
  write('Введите имя файла без расширения: ');//Вывод текста
  readln(fname);//Ввод
  fname := fname + '.txt';//Добавление расширения файла
  assign(f, fname);//Создание файла
  rewrite(f);//Открытие  файла для записи
  repeat//Цикл с постусловием
    write('Введите N>1 n=');//Вывод текста
    readln(n);//Ввод
  until n > 1;//Цикл с постусловием
  for i := 1 to n do//Цикл с предусловием
  begin//Начало операторских скобок
    if ((i mod 2) <> 0) then//Условие
      write(f, ', ', i);//Запись в файл
  end;//Конец операторских скобок
  close(f);//Закрытие  файла для записи
  write('Файл записан');//Вывод текста
  readln//Задержка
end.//Конец
Добавлено через 22 часа 19 минут
Разобрался, чтобы вывести n чисел, мы n умножаем на 2, так как пишем в файл только нечетные числа, соответственно записывается количество чисел равное n/2, а умножая n на 2 мы возвращаем нужное кол-во чисел
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.12.2015, 14:29
Ответы с готовыми решениями:

Функция: нахождение суммы положительных нечетных чисел, меньших заданного числа
Описать функцию для нахождения суммы положительных нечетных чисел, меньших заданного числа m.

Программа пишет прописью числа, помогите доделать ввод числа с клавиатуры
Программа пишет прописью числа, помогите доделать ввод числа с клавиатуры. using System; using System.Collections.Generic; using...

С клавиатуры вводятся числа, пока не будет введен 0. Подсчитать сумму всех нечетных положительных чисел;
Как сделать так, чтобы с клавиатуры вводятся числа, пока не будет введен 0. А затем подсчитать сумму всех нечетных введенных положительных...

1
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.12.2015, 14:45
Pascal
1
2
for i:=1 to n do
write(2*i-1);
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.12.2015, 14:45
Помогаю со студенческими работами здесь

Вычисление суммы нечетных чисел, больше числа А но меньших числа В
Написатт программу вычисление суммы нечетных чисел. Больших числа А но меньше числа В. Предусмотреть ошибку ввода если А больше В то...

Создайте программу для подсчёта числа нечётных чисел, используемых в записи введёного числа
Задача 1 Напишите функцию возведения в степень по формуле a^n = Exp(Ln(a)*n). Используйте её в программе для возведения в нужную степень...

Прочитать все числа до 0, а затем узнать среднее арифметическое и сумму четных и нечетных чисел
program whileUceb4; var s1, sr1, s, sr: real; n, n1, x: integer; begin n := 0; s := 0; writeln('введите числа...

Нахождение положительных чисел, которые делятся на все числа от 1 до 10 без остатка
Здравствуйте, задание таково: Написать программу которая рассчитывает и выводит в консоль положительные числа, которые делятся на все числа...

Получить все представления числа суммой квадратов целых положительных чисел
Дано целое положительное число N. Получить все представления этого числа суммой квадратов целых положительных чисел. Выдать сообщение, если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели.
Hrethgir 17.04.2025
В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .
Свап-файл дополнительно к разделу (если вдруг не хватает или не создан)
jigi33 17.04.2025
ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .
Указатели в Swift: Небезопасные, буферные, необработанные и управляемые указатели
mobDevWorks 16.04.2025
Указатели относятся к наиболее сложным и мощным инструментам языка Swift. В своей сути указатель — это переменная, которая хранит адрес участка памяти, где расположены данные, а не сами данные. . . .
Жизненный цикл HTTP-запросов в ASP.NET Core MVC
UnmanagedCoder 16.04.2025
Разработка веб-приложений на ASP. NET MVC часто выглядит как простой процесс: получили запрос, обработали его в контроллере, отрендерили представление и отправили ответ пользователю. Однако за этой. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru