в файле количество слов, начинающихся с а

@Genny · Регистрация: 16.02.2010

Author24 — интернет-сервис помощи студентам

Имеется текстовый файл, в каждой строке которого записано произвольное количество слов, отделенных одним или несколькими пробелами. Длина строки не более 255 символов. Количество строк заранее низвестно. Написать программу, считающую в файле количество слов, начинающихся с а

@Puporev · 02.04.2010, 09:34

Читаешь файл построчно и считаешь такие случаи

Pascal
1
if(s[i]='a')and((s[i-1]=' ')or(i=1)) then k:=k+1;

@Genny · 02.04.2010, 09:42 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
begin 
input(path);
assign(f, path);
reset(f);
k:=0;{boner zapusi v stroke}
while not eof do
begin
 
(vasha formula)
close(f);
end.

Помогите, пожалуйста, у меня совсем плохо с программированием

@Puporev · 02.04.2010, 09:54

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
uses crt;
var f:text;
    i:byte;
    name,s:string;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
  if(s[i]='a')and((s[i-1]=' ')or(i=1)) then k:=k+1;
 end;
close(f);
write('Количество слов на а=',k);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .	Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .
Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .	MVC фреймворк в PHP Jason-Webb 19.04.2025 Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .	Dictionary Comprehensions в Python py-thonny 19.04.2025 Python славится своей выразительностью и лаконичностью, что позволяет писать чистый и понятный код. Среди множества синтаксических конструкций языка особое место занимают словарные включения. . .	Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .

@Genny 0 / 0 / 0 Регистрация: 16.02.2010 Сообщений: 8

	в файле количество слов, начинающихся с а 02.04.2010, 09:32. Показов 1053. Ответов 3 Метки нет (Все метки) Имеется текстовый файл, в каждой строке которого записано произвольное количество слов, отделенных одним или несколькими пробелами. Длина строки не более 255 символов. Количество строк заранее низвестно. Написать программу, считающую в файле количество слов, начинающихся с а 0

Опции темы