С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Определить количество элементов массива, значения которых лежат в диапазоне от 7 до 12 https://www.cyberforum.ru/ pascalabc/ thread1220287.html
Одномерный массив А из 25 элементов заполнить случайными числами из диапазона . Определить количество элементов, значения которых лежат в диапазоне от 7 до 12.
Вывести числа последовательности больше 0,4 Pascal ABC
Дана последовательность числе в виде x=sin(x), x0=1, вывести числа последовательности больше 0,4.
Pascal ABC Написать программу ,выполняющую сложение элемента а(i,j),с его номером j ,если значение элемента меньше j https://www.cyberforum.ru/ pascalabc/ thread1220269.html
Вводится двумерный массив А(6,6) вещественных чисел.Написать программу ,выполняющую: а) сложение элемента а(i,j),с его номером j ,если значение элемента меньше j ; б) деление остальных элементов а(i,j) на элементы a(j,i) Нужно программка через работающая через процедуры ,может кто помочь?
Pascal ABC Есть ли команды для упрощения команд с умножением и делением https://www.cyberforum.ru/ pascalabc/ thread1220245.html
Здравствуйте. Мне интересен один вопрос. В программе Pascal ABC есть такие команды, как Inc и Dec. Данные команды немного упрощают ввод данных при сложении и вычитании (Прим. x:=x+3 = Inc(x,3)). Есть ли хоть какие-нибудь подобные команды с умножением и делением?
Определить книги, которых нет ни у одного читателя, есть у одного читателя, есть у некоторых читателей Pascal ABC
Есть список книг, некоторые из которых имеются у N читателей. Определить книги из списка, которых нет ни у одного читателя, которые есть только у одного читателя, которые есть у некоторых читателей. Вот такую вот задачку нужно решить с помощью подпрограмм, помогите пжлст, а то я вообще не понимаю как её делать. Добавлено через 19 часов 47 минут сделал, тему клоз. Program knigi; Type
Pascal ABC Составить блок-схему алгоритма и программу вычисления суммы n членов ряда https://www.cyberforum.ru/ pascalabc/ thread1220109.html
Задание: составить блок-схему алгоритма и программу вычисления суммы n членов ряда согласно условию задачи: 1+\frac{x^2}{2!}+\frac{x^4}{4!}+...
Pascal ABC Подсчитать и вывести на экран количество положительных четных чисел в массиве https://www.cyberforum.ru/ pascalabc/ thread1220093.html
Пользователь вводит с клавиатуры натуральное число не больше 100 которое сохраняется в перменную n, проверить корректность ввода. Создать массив из 10 случайных чисел из отрезка вывести массив на экран в строку подсчитать и вывести на экран количество положительных четных чисел в массиве
Pascal ABC Нужно составить программу для попадания точки в ОДЗ на картинке
Нужно составить программу для попадания точки в одз. Вроде составила, но она всегда выдает, что точка не попадает. var x, y: real; begin write('введите x: ');readln(x); write('введите y: ');readln(y); if ((x-3)*(x-3) + (y-4)*(y-4)<=9) and (0.6*x+4.4<=y) and (5*x-22<=y) and (-0.5*x+5.5<= y) then writeln ('Входит в одз') else writeln ('Не входит в одз'); end. Где косяк?
Pascal ABC Вводятся по очереди данные о росте N учащихся класса, Определить средний рост учащихся в классе Составить программу согласно заданию. Задание: В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. https://www.cyberforum.ru/ pascalabc/ thread1220088.html Pascal ABC Найти глобальный максимум функции https://www.cyberforum.ru/ pascalabc/ thread1220087.html
Помогите реализовать в паскале!!! Найти глобальный максимум функции z=3{x}_{1}+{x}_{2} при ограничениях \left\{\begin{matrix} & & \\{x}_{1}*{x}_{2}\geq 2, & & \\\\\\({x}_{1})^2+({x}_{2})^2\leq 16.\end{matrix}\right.
Привести пример функции которая возвращает расстояние от точки с заданными координатами до начала координат Pascal ABC
Привести пример функции которая возвращает расстояние от точки с заданными координатами до начала координат. Использовать её в программе, устанавливающий тот факт, что три точки лежат на окружности с центром в начале координат. мы должны вводить три значения после них должно выводиться лежат они на одной прямой или нет.
Pascal ABC Задание с применением функции вычисления суммы эл-тов матрицы Прошу помощи. Нужно сверить со своей программой. Задание 2(низкий приоритет)(с применением функции вычисления суммы эл-тов матрицы): Даны три матрицы: A B C. Найти длину вектора x(x1,x2,x3), где x1, x2, x3 - соответственно суммы элементов матриц A, B, C. https://www.cyberforum.ru/ pascalabc/ thread1220072.html
Модератор
10060 / 5402 / 3353
Регистрация: 17.08.2012
Сообщений: 16,526
01.07.2014, 07:18 0

Текстовый файл содержит целые числа, создать другой файл, содержащий элементы, значение которых нечетно - Pascal ABC - Ответ 6383217

01.07.2014, 07:18. Показов 1879. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено SpinnoZa как решение

Решение

Каждое число в отдельной строке файла.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var f, g: text;
    s: string;
    n, e: integer;
begin
  assign(f, 'c:\1.txt');
  reset(f);
  assign(g, 'c:\2.txt');
  rewrite(g);
  while not(eof(f)) do
    begin
      readln(s);
      val(s, n, e);
      if (e > 0)
        then break
        else if odd(n) then writeln(g, s)
    end;
  close(f);
  close(g);
  if e > 0
    then writeln('Ошибка во входном файле. Выходной файл содержит не все числа.')
    else writeln('Завершено.');
  readln
end.


Вернуться к обсуждению:
Текстовый файл содержит целые числа, создать другой файл, содержащий элементы, значение которых нечетно Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.07.2014, 07:18
Готовые ответы и решения:

Дан текстовый файл, содержащий целые числа. Определить в каждой четной строке максимальное число и записать результаты в новый текстовый файл
Дан текстовый файл, содержащий целые числа. Определить в каждой четной строке максимальное число и...

Текстовый файл содержит целые числа, открыть файл и каждое число возвести в квадрат
Пусть имеется текстовый файл, содержащий несколько целых чисел. Открыть текстовый файл и каждое из...

Дан файл, содержащий целые числа. Записать в другой файл удвоенные числа из первого файла
Прошу помощи, ребята ! 1. Дан файл, содержащий целые числа. Записать в другой файл удвоенные...

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

1
01.07.2014, 07:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.07.2014, 07:18
Помогаю со студенческими работами здесь

Файл содержит целые числа. Найти и вывести в другой файл все простые палиндромы
Файл содержит целые числа.Найти и вывести в другой файл все простые палиндромы. var f: text; ...

Сформировать файл F1, содержащий целые числа, и переписать в другой файл
Ðàçðàáîòàòü ïðîãðàììó, êîòîðàÿ ôîðìèðóåò ôàéë F1, ñîäåðæàùèé öåëûå ÷èñëà, è ïåðåïèñûâàåò ýòîò...

Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в другой файл
Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в...

текстовый файл, содержащий целые числа
Дан текстовый файл, содержащий целые числа. Найти разность между максимальным и минимальным...

Дан текстовый файл, содержащий целые числа
помогите решить задачу Дан текстовый файл, содержащий целые числа. Найти сумму элементов,...

Дан текстовый файл, содержащий целые числа
Дан текстовый файл, содержащий целые числа. Найти: 1) Количество чисел в файле; 2) Максимальный...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru