0 / 0 / 0
Регистрация: 20.08.2010
Сообщений: 7

Написать программу которая подсчитывает количество пустых строк в файле

20.08.2010, 20:11. Показов 1315. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуста решить 2 задачи.

1) Написать программу которая подсчитывает количество пустых строк в файле

2)Ввести целое положительное число не более 33333. Определить введено число простое или не простое
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.08.2010, 20:11
Ответы с готовыми решениями:

Описать функцию, которая подсчитывает количество пустых строк в текстовом файле
вот прога!uses crt; var f: text; function EmptyStr(f: text): integer; var s: string; k: integer; begin k:=0;

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

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

1
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
20.08.2010, 21:35
Лучший ответ Сообщение было отмечено Вадим ы как решение

Решение

1)
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
uses crt;
var f:text;
    i:byte;
    nf,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
i:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s='' then i:=i+1;
 end;
close(f);
write('Количество пустых строк=',i);
readln
end.
Добавлено через 6 минут
2)
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
uses crt;
var n,i:word;
    f:boolean;
begin
clrscr;
repeat
write('Введите целое положительное число не более 33333 n=');
readln(n);
until(n>0)and(n<=33333);
if n=1 then f:=false
else
 begin
  f:=true;
  for i:=2 to round(sqrt(n)) do
  if n mod i=0 then
   begin
    f:=false;
    break;
   end;
 end;
if f then write('Простое')
else write('Не простое');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.08.2010, 21:35
Помогаю со студенческими работами здесь

Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. Разработать программу, которая подсчитывает количество строк в файле,
Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. Разработать программу, которая подсчитывает количество...

Описать функцию, которая подсчитывает количество пустых строк в текстовом файле
Описать функцию, которая подсчитывает количество пустых строк в тек- стовом файле

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

Написать функцию str(t), которая в заданном текстовом файле t подсчитывает количество непустых строк
Помогите пожалуйста. Надо: Написать функцию str(t), которая в заданном текстовом файле t подсчитывает количество непустых строк, в...

Разработать программу,которая содержит функцию,которая подсчитывает в произвольном текстовом файле количество
Разработать программу,которая содержит функцию,которая подсчитывает в произвольном текстовом файле количество строк,которые начинаются и...


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

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

Новые блоги и статьи
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек.
Massaraksh7 21.03.2025
Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .
Async/await в Swift: Асинхронное программировани­е в iOS
mobDevWorks 20.03.2025
Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .
Колмогоровская сложность: Приёмы упрощения кода
ArchitectMsa 20.03.2025
Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru