Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Определить длину самого оптимального маршрута движения человека Даны координаты четырех точек на плоскости (x1, y1, x2, y2, x3, y3, x4, y4). Человек может начинать двигаться с любого города, но он должен посетить все города и вернуться в исходный город. Нужно определить длину самого оптимального маршрута движения человека. Координаты вводятся с клавиатуры. Долго думал я как решить эту задачу, но так и не смог, может вы поможете дать толчок? https://www.cyberforum.ru/ pascalabc/ thread1373694.html	Pascal ABC Напечатать номера столбцов матрицы, ни один элемент которых не повторяется Задана цельночисленная матрица A(N,M). Напечатать номера столбцов, ни один элемент которых не повторяется. Помогите плиз)) Заранее спасибо)
Pascal ABC Создайте два файла, содержащих сведения о десяти нападающих хоккейных команд 1. Создайте два файла, содержащих сведения о десяти нападающих хоккейных команд: «Динамо» и «Спартак» соответственно: имена нападающих, число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. 2. Написать программу, которая по данным, извлеченным из этих файлов, создает новый третий файл, содержащий имя, команду, сумму очков (голы + передачи) для шести лучших игроков... https://www.cyberforum.ru/ pascalabc/ thread1373628.html	Pascal ABC Создать файл, содержащий сведения о телефонах абонентов Нужна помощь. Стоит задача создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия абонентов, домашний адрес, год установки телефона, номер телефона. Количество записей произвольное. Написать программу, выдающую информацию следующего вида: - по вводимой фамилии абонента выдается номер телефона, если одинаковых фамилий несколько, то уточнить домашний адрес; -... https://www.cyberforum.ru/ pascalabc/ thread1373428.html
Pascal ABC Циклически сдвинуть на 4 разряда вправо четное число Циклически сдвинуть на 4 разряда вправо четное число. Определить сумму отрицательных чисел до сдвига и после сдвига. За полную программу буду благодарен :))	Pascal ABC Переставляя строки и столбцы, переместить первый наибольший элемент матрицы в верхний левый угол Дана матрица. Переставляя ее строки и столбцы, переместить первый наибольший элемент матрицы в верхний левый угол. https://www.cyberforum.ru/ pascalabc/ thread1373280.html
Pascal ABC В двумерном массиве найти сумму максимального и минимального элементов В двумерном массиве найти сумму максимального и минимального элементов, если она меньше нуля, тогда все отрицательные элементы матрицы, лежащие выше главной диагонали, заменить на нули. https://www.cyberforum.ru/ pascalabc/ thread1373278.html	Счетчик итераций в методе дихотомии Pascal ABC Господа! Столкнулся со следующей проблемой: у меня есть программа, которую нужно дополнить счетчиком итераций. Казалось бы, что может быть проще? но почему-то в конце мне всегда возвращается 0, даже если я присваиваю переменной i (которая и есть счетчик итераций) любое значение, например 4 или 123. Что не так с моим кодом и как это исправить? Заранее спасибо :) Program MetodDohotomii; Uses...
Pascal ABC Вывод всех согласных из строки в прямом порядке и обратном (рекурсия) в программе нужно,чтобы он вывел все согласные из строки в прямом порядке и обратном в обратном выводит,а для прямого не пойму куда приписать надо,помогите,пожалуйста program gjtl; var s:string; i:integer; procedure input(s:string; i:integer); begin if (i<= length(s)) then if (not(s in )) then begin https://www.cyberforum.ru/ pascalabc/ thread1373120.html	Pascal ABC Напечатать все пары блезнецов с отрезка Задачи нужно сделать с использованием под-програм. В этих программах нужно использовать процедуры. 1) 2 простые числа являются блезнецами если они отличаються на 2(например 41-43) напечатать все пары блезнецов с отрезка, N и 2N. N-больше 2. 2) 2 натуральных числа назв. дружествеными если каждое число ровняется сумме всех дельтелей другого за исключением его самова. Например: числа (220 и... https://www.cyberforum.ru/ pascalabc/ thread1372978.html
Pascal ABC Разложить заданное натуральное число на простые множители Разложить заданное натуральное число на простые множители, обязательно использовать функцию- проверяющую простое ли число	Pascal ABC Процедура, разбивающая число на цифры https://www.cyberforum.ru/ pascalabc/ thread1372939.html написать процедуру, которая разбивает число на цифры: - название процедуры - number - входной параметр - целое число - получаемые цифры заданного числа записывать в глобальный целочисленный массив D (разрешается цифры оставить в массиве в обратном порядке)

Joy

2386 / 1298 / 1492

Регистрация: 29.08.2014

Сообщений: 4,661

12.02.2015, 12:41

Подсчитать количество строк в текстовом файле - Pascal ABC - Ответ 7220701

12.02.2015, 12:41. Показов 5108. Ответов 1

Метки (Все метки)

Сообщение было отмечено Ruslan1995 как решение

Решение

Pascal

var
  fin,fout:text;
  i:integer;
begin
  assign(fin,'c:\input.txt');
  reset(fin);
  assign(fout,'c:\output.txt');
  rewrite(fout);
  i:=0;
  while not eof(fin) do begin 
    readln(fin);
    i:=i+1;
   end;
   writeln(fout,i);
   close(fin);
   close(fout);
end.

Вернуться к обсуждению:
Подсчитать количество строк в текстовом файле Pascal ABC

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

12.02.2015, 12:41

Готовые ответы и решения:

Подсчитать количество символов и строк в текстовом файле
Даны текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк...

В текстовом файле подсчитать количество строк длиннее 255 символов
Напишите программу , которая в текстовом файле подсчитывает количество строк длиннее 255 символов....

Подсчитать количество сдвоенных символов «сс», «нн», «лл» в тексте, расположенном в текстовом файле
Помогите, пожалуйста. Если есть возможность, то покажите блок-схему. Подсчитать количество...

Подсчитать количество совпадений между набором чисел в текстовом файле и введенными числами
Написать программу, считающую кол-во совпадений между набором чисел в текстовом файле и введенными...

	12.02.2015, 12:41

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

12.02.2015, 12:41

Помогаю со студенческими работами здесь

Вывести количество содержащихся в текстовом файле символов и строк
Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк...

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

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

Найти количество строк в текстовом файле, оканчивающихся заданным символом
1.Дан текстовый файл. Найти количество строк в нём, оканчивающихся заданным символом.

Новые блоги и статьи
Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()

Наверх