Напечатать число строк, длина которых больше заданной и число строк, которые содержат цифры.

@FlyBe · Регистрация: 07.11.2013

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

Помогите,пожалуйста,написать программу.

Разработать программу которая для своего исходного текста выполняет печать текста и его обработку указанную Вашим вариантом. Печать файла и его обработка должны быть описаны в виде процедур или функций.
Вот мои оба варианта:
1) Напечатать число строк, длина которых больше заданной.
2) Напечатать число строк, которые содержат цифры.

@Cyborg Drone · 26.12.2013, 19:12

Не по теме:

FlyBe, "помогите" это когда Вы выкладываете то, что уже сделали. А это называется "сделайте за меня".

Pascal

program FlyBe;
 
var n, i, j, k: integer;
    s: string;
    f: text;
 
begin
  write('Min length = ');
  readln(n);
  assign(f, 'c:\file.txt');
  reset(f);
  j := 0; //длинных строк пока 0
  k := 0; //строк с цифрами пока 0
  while not(eof(f)) do
    begin
      readln(f, s);
      if length(s) > n then inc(j);
      for i := 1 to length(s) do if s[i] in ['0'..'9'] then
        begin
          inc(k);
          break
        end
    end;
  close(f);
  writeln('Strings more longly ', n, ': ', j);
  writeln('Strings with numbers: ', k);
  readln
end.

@FlyBe · 22.04.2014, 09:59 **[ТС]**

Сори,я давно не заходил,и уже сам написал,но все ровно Спасибо

@FlyBe 0 / 0 / 0 Регистрация: 07.11.2013 Сообщений: 14
		1
	Напечатать число строк, длина которых больше заданной и число строк, которые содержат цифры. 25.12.2013, 18:15. Показов 1195. Ответов 2 Метки нет (Все метки) Помогите,пожалуйста,написать программу. Разработать программу которая для своего исходного текста выполняет печать текста и его обработку указанную Вашим вариантом. Печать файла и его обработка должны быть описаны в виде процедур или функций. Вот мои оба варианта: 1) Напечатать число строк, длина которых больше заданной. 2) Напечатать число строк, которые содержат цифры. 0

@FlyBe 0 / 0 / 0 Регистрация: 07.11.2013 Сообщений: 14
	22.04.2014, 09:59 [ТС]	3
	Сори,я давно не заходил,и уже сам написал,но все ровно Спасибо 0

Опции темы

Напечатать число строк, длина которых больше заданной и число строк, которые содержат цифры.

Решение