Подсчитать количество латинских букв, входящих в строку

@ololowa · Регистрация: 06.11.2012

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

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

Pascal

program string; 
uses crt; 
var LineS: string; 
    CounterI, Number:byte; 
begin
 
 clrscr; 
 writeln('Введите строку символов'); 
 readln(LineS); 
  
 Number := 0; 
for CounterI := 1 to length(LineS) do 
  if ((LineS[CounterI]>='a') and (LineS[CounterI] <= 'z')) or ((LineS[CounterI]>='A') and (LineS[CounterI] <= 'Z')) then 
   inc(Number); 
    
  writeln('Общее количество латинских букв в строке равно ',Number); 
  readln; 
end.

@Reveng · 12.11.2012, 22:21

Сообщение от ololowa

program string;

Так программу лучше не называть, всё таки string это зарезервированное слово

Pascal

uses crt; 
var 
    LineS : string; 
    CounterI, Number:byte; 
    f : text;
begin
 clrscr;
 number := 0; 
 assign(f, '1.txt');
 reset(f);
 while not Eof(f) do 
  begin
  readln(f, LineS);
  for CounterI := 1 to length(LineS) do 
   if ((LineS[CounterI]>='a') and (LineS[CounterI] <= 'z')) or ((LineS[CounterI]>='A') and (LineS[CounterI] <= 'Z')) then 
   inc(Number);
 end;
 close(f);
 append(f);
 writeln(f, 'Общее количество латинских букв в строке равно ',Number); 
 close(f);
 writeln('Общее количество латинских букв в строке равно ',Number);
 readln;
end.

@ololowa · 12.11.2012, 23:23 **[ТС]**

Reveng, я вот сидел и сам по моему сделал, все работает

Pascal

program lab10;
uses crt;
var lines:string;
    counterl,number:byte;
    f:text;
 
begin
clrscr;
assign (f,'d:\1.txt');
reset (f);
readln (f,lines);
writeln (lines);
number:=0;
 for counterl:=1 to length(lines) do
  if ((lines[counterl]>='a') and (lines[counterl]<='z')) or ((lines[counterl]>='A') and (lines[counterl]<='Z')) then
  inc(Number);
  writeln('_________________________________________________________________');
  writeln ('KoJIu4ecTBo JIaTuHckux 6ykB paBHa= ',' ',Number);
  readln;
  append (f);
  write (f,'                                                                ');
  writeln (f,'KoJIu4ecTBo JIaTuHckux 6ykB paBHa= ',number);
  close (f);
  end.

по моему правельно)))

Добавлено через 2 минуты
Reveng, большое спасибо

	12.11.2012, 23:23

Опции темы