Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Free Pascal Удалить из файла повторяющиеся числа, оставив их первые вхождения ЗАДАЧА: Удалить из файла повторяющиеся числа, оставив их первые вхождения. У меня есть код, но турбо паскаль почему то выводит это: Входные данные= 1 1 2 2 3 3 Выходные данные= 8241 8242... https://www.cyberforum.ru/ free-pascal/ thread2396062.html И снова "unexpected end of file" Free Pascal
В конце 2-го тысячелетия мной было написано комплекс программ для судейства соревнований по радиосвязи среди школьников. Сначала писал на ТВ, а потом перешел на ТР. Получилось 6 исполняемых файлов....
Free Pascal Вывести в обратном порядке слова строки, оставляя между ними по одному разделительному пробелу В текстовом файле дана строка, состоящая из заглавных английских букв и пробелов. Непрерывная последовательность букв называется словом. Слова разделяются друг от друга хотя бы одним пробелом.... https://www.cyberforum.ru/ free-pascal/ thread2395664.html Free Pascal Ошибки 201/216 при попытке перемножить динамические массивы Добрый вечер, решаю задачу такого характера: нужно из матрицы А получить матрицу В = А + А2 + ... + Аn. Натуральное число n и порядок матрицы вводятся с клавиатуры. С выделением памяти, заполнением... https://www.cyberforum.ru/ free-pascal/ thread2395568.html
Free Pascal Работа с указателями в ассемблерной вставке
Вопрос простой. Строка в паскале - массив байт. Для обработки этого массива пытаюсь получить ссылку на адрес в памяти program asminsert; {$H-} {$ASMMODE intel} 		Free Pascal Вычислить интеграл используя квадратурную формулу Симпсона. (x+1)*(1-x*x*x)^1/5 на отрезке (1, 9) применить квадратурную формулу Симпсона в программе предусмотреть пределы интегрирования a, b и числа n n проверить на чётность. Подскажите, как решать,... https://www.cyberforum.ru/ free-pascal/ thread2395084.html
Free Pascal Олимпиадная задача "Минимум из трёх". Runtime error 205 https://www.cyberforum.ru/ free-pascal/ thread2394863.html
Минимум из трёх В каждой из N строк входного файла записано по три объекта одного из трёх типов: целые числа, вещественные числа или строки, состоящие из заглавных латинских букв и цифр. Объекты... 		Free Pascal Считать 2-е одновременно нажатые клавиши
Бодрого времени суток, господа знатоки. В свободное от работы и отдыха время накрапываю игрушку и, как всегда, не хватает знаний (или ума). По задумке программа (одна из процедур) каждую секунду...
Free Pascal Массив: В каждом столбце матрицы найти второй отрицательный элемент, если таких нет, вывести ноль... Сформировать квадратную матрицу. В каждом столбце найти второй отрицательный элемент.есди таких нет, вывести ноль. Добавлено через 1 минуту С использованием подпрограмм если можно https://www.cyberforum.ru/ free-pascal/ thread2392984.html Free Pascal Создать типизированный файл целых чисел Создать типизированный файл целых чисел. Написать программу, которая вводит пару чисел m и n, а затем в данном файле заменяет m-й элемент на n. https://www.cyberforum.ru/ free-pascal/ thread2392916.html
Найти количество шагов, которые может сделать конь на шахматной доске для прохождения всего поля Free Pascal
не получается сделать код программы: программа должна находить количество шагов, которые может сделать шахматная фигура конь на шахматной доске размером 8 на 8, с определенной позиции для... 		Free Pascal Комбинаторные алгоритмы: генерация всех k элементных подмножеств множества из n элементов Разработайте программу, которая генерирует все k элементные подмножества множества из n элементов таким образом, что каждое последующее подмножество образуется из предыдущего удалением одного... https://www.cyberforum.ru/ free-pascal/ thread2391944.html
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
30.01.2019, 00:20 0

Найти для каждой строки сумму элементов, находящихся между первым и последним нулевым элементом - Free Pascal - Ответ 13282558

30.01.2019, 00:20. Показов 1316. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено LaVINS как решение

Решение

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
26
27
28
29
30
31
32
33
34
35

const
  fname = 'input.txt';
  gname = 'output.txt';
 
var
  f, g: text;
  s, t, x, n: longint;
 
begin
  assign(f, fname);
  reset(f);
  assign(g, gname);
  rewrite(g);
  while not seekeof(f) do
    begin
      n := 0;
      s := 0;
      t := 0;
      while not seekeoln(f) do
        begin
          read(f, x);
          if x = 0 then
            begin
              inc(n);
              s := s + t;
              t := 0
            end
          else if n > 0 then t := t + x
        end;
      readln(f);
      writeln(g, s)
    end;
  close(f);
  close(g)
end.

Не по теме:

Цитата Сообщение от LaVINS Посмотреть сообщение
Сколько не пробовал не получается
Не догадываетесь, почему я Вам нисколько не верю?



Вернуться к обсуждению:
Найти для каждой строки сумму элементов, находящихся между первым и последним нулевым элементом Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 30.01.2019, 00:20
Готовые ответы и решения:

Найти сумму элементов массива, находящихся между первым и последним отрицательным элементом
В целочисленном массиве из 20 ти элементов, найти сумму элементов, находящихся между первым и...

Произведение элементов между первым и последним нулевым элементом.
Помогите с программой на C++: В одномерном массиве вычислить произведение элементов, расположенных...

Найти сумму элементов массива, расположенных между первым и последним нулевым элементами
Кто может улучшить или как-то оптимизировать...:::??? Найти сумму элементов массива, расположенных...

Сумма элементов матрицы, расположенных между первым и последним нулевым элементом
Сумма элементов массива, расположенных между первым и последним нулевым элементом sum = 0 For...

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

Найти сумму элементов массива, находящихся в массиве между первым и последним отрицательными элементами
Уважаемые програмисты помогите решить задачи.:( 1. Написать программу, определяющая сумму...

Найти сумму элементов, расположенных между первым и последним положительным элементом
Помогите, будьте любезны. Не шарю в с++, только в с#, и что-то совсем не получается применить...

Найти сумму элементов массива расположенных между первым и последним элементом
как найти сумму элементов массива расположенных между первым и последним элементом в этом коде ...

Найти сумму элементов размещенных между первым и последним положительным элементом в массиве
что у меня не правильно?? нада найти сумму элементов размещенных между первым и последним...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru