Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Написать функцию, которая считала бы интеграл на промежутке [a, b] методом трапеции https://www.cyberforum.ru/ pascal/ thread1381043.html
Добрый день. Знаю что раньше эта тема обсуждалась но все же обращусь ко всем за помощью, т.к. не получается написать функцию на паскале, которая считала бы интеграл на промежутке методом трапеции с...
Pascal Напишите программу, которая будет выводить на экран фамилию и имя участника, набравшего максимальное количеств
2) На городской олимпиаде по информатике участникам было предложено выполнить 3 задания, каждое из которых оценивалось по 25-балльной шкале. Известно, что общее количество участников первого тура...
Pascal Требуется написать программу, которая формирует и печатает уникальный логин для каждого ученика https://www.cyberforum.ru/ pascal/ thread1381033.html
1) На вход программы подаются фамилии и имена учеников. Известно, что общее количество учеников не превосходит 100. В первой строке вводится количество учеников, принимавших участие в соревнованиях,...
Pascal Метод трапеции (работа с таблицой вместо функции) https://www.cyberforum.ru/ pascal/ thread1381019.html
Всем доброго времени суток! Уважаемые Гуру программирования и эксперты, :)) помогите, пожалуйста, с решением моей задачи. Суть: имеется код метода трапеций на паскале (ниже представлен), в коде,...
Pascal Найти кратчайший путь между двумя заданными городами
Дана плоская страна и в ней n городов. Предположим, что в этой стране есть дорожная сеть. Найти кратчайший путь между двумя заданными городами. должна находить кратчайшие расстояния и выводить...
Pascal Ошибка в программе для нахождения наибольшего произведения из введенных чисел Добрый вечер, не могли бы вы тыкнуть меня в ошибку в данной программе? Программа для нахождения наибольшего произведения из введенных чисел с разницей в номере не менее 8. Program Z; const ... https://www.cyberforum.ru/ pascal/ thread1381000.html
Pascal Составить программу, которая запрашивает у пользователя два целых числа и выводит https://www.cyberforum.ru/ pascal/ thread1380731.html
Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (a+b)2и сумму квадратов a2+b2 ‘этих чисел. Пример работы программы: Введите два числа: a=3 b=2...
Определить номера точек (хрянящихся в массиве), которые могут являться вершинами квадрата Pascal
Вот условие программы: В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующим порядке: x1,y1,x2,y2,x3,y3 и т. д (x,y-целые)....
Pascal Подсчитать количество элементов с одинаковыми порядковыми номерами https://www.cyberforum.ru/ pascal/ thread1380535.html
В строке и в векторе из 10 компонентов подсчитать количество элементов с одинаковыми порядковыми номерами. Нужна помощь, что-то получается , да все не то. Заранее говоря, спасибо.
Pascal Почему произведение равно "0" и как исправить? В квадратной матрице найти произведение элементов, лежащих выше побочной диагонали. Uses crt; const k = 3; l = 3; type a = array of integer; var p:^a; i,j,pr:integer; Begin Clrscr; https://www.cyberforum.ru/ pascal/ thread1380512.html
Pascal Ханойские башни через стек
Помогите, пожалуйста с кодом! Мне нужно решить задачу о Ханойских Башнях через Стек!!! Делал по алгоритму, но почему-то не работает код. Вот 2 варианта. Только не кидайте ссылки на похожее, я всё уже...
Pascal Вывести на экран N (задается константой) случайных букв латинского алфавита в виде пары https://www.cyberforum.ru/ pascal/ thread1380469.html
1. Напишите программу, которая выводит на экран N (задается константой) случайных букв латинского алфавита в виде пары: заглавная буква, строчная буква. Например, при N = 6 могут быть выведены...
1 / 1 / 0
Регистрация: 25.09.2014
Сообщений: 125
24.02.2015, 17:44 0

Текстовый файл. Определить количество всех строк и количество символов в каждой строке - Pascal - Ответ 7266276

24.02.2015, 17:44. Показов 1576. Ответов 5
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s:string;
    f:text;
    st,sm:integer;
begin
assign(f,'Text.txt');
reset(f);
st:=0;
sm:=0;
while not eof(f) do
  begin
    readln(f,s);
    inc(st);
    sm:=sm+length(s);
  end;
writeln('Строк: ',st,' Символов  ',sm);    
close(f);
readln;
end.
Извините, поспешил.

Вернуться к обсуждению:
Текстовый файл. Определить количество всех строк и количество символов в каждой строке Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2015, 17:44
Готовые ответы и решения:

В текстовом файле определить количество всех строк и количество символов в каждой строке.
В текстовом файле определить количество всех строк и количество символов в каждой строке.

Организовать текстовый файл, состоящий из N строк. Определить среднее количество символов в строке данного файла
Ребятки помогите пожалуйста Добавлено через 1 час 14 минут и ещё одну Дана квадратная матрица...

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

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

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

Подсчитать количество символов в каждой строке и массив чисел с количествами записать в другой текстовый файл
Данные считываются с текстового файла(1) и записываются в другой(2). Есть текстовый файл с...

Найти количество символов всех строк файла и количество символов в определенной строке
Здравствуйте! Я хотел бы попросить помощи в решении задачки! У меня не получается найти...

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

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

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