Форум программистов, компьютерный форум CyberForum.ru

Определить номер той строки, в которой больше всего согласных букв - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ найти точку, принадлежащую http://www.cyberforum.ru/cpp-beginners/thread426562.html
дано множество отрезков на прямой. найти точку, которая принадлежит наибольшему количеству отрезков, определить это количество
C++ найти первые N целых чисел найти первые N целых чисел, у которых младший байт является зеркальным отражением следующего байта http://www.cyberforum.ru/cpp-beginners/thread426561.html
C++ массивы сортировка
простая сортировка обменами. напишите плиз..
Определить, можно ли в заданной матрице найти столбец, удовлетворяющий условию C++
Задача :Определить можно ли в двумерном массиве найти такой столбец, который разбивает массив на два так, что сумма элементов в первом больше, чем сумма элементов во втором. Сам столбец в разбиваемые части не входит. Подскажите примерно как сделать эту задачку и с чего начать
C++ Ошибки в Code Blocks http://www.cyberforum.ru/cpp-beginners/thread426538.html
Есть такая проблемка #include <iostream> using namespace std; int main() { int 1; int 2; int 4;
C++ Помогите исправить программу запись в файл Нужно записат в файл массив чисел от 100 до 300 заполнить случайным образом. В файл записываются одни символы. помогите исправить программу #include <iostream> #include <time.h> #include <stdio.h> using namespace std; const int n=100; int d; char p; int k; size_t file; подробнее

Показать сообщение отдельно
oleska
1 / 1 / 0
Регистрация: 11.01.2012
Сообщений: 32
11.01.2012, 23:19     Определить номер той строки, в которой больше всего согласных букв
Переведите, пожалуйста:
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Uses
 CRT;
Var
 f,f2:text;
 s,s2:string;
 i,l,n1,n2,n,max,ind,c:integer;
begin
Assign(f,'D:\1.txt');
Assign(f2,'D:\2.txt');
reset(f);
rewrite(f2);
repeat
 write('ввод номеров строк: ');
 readln(n1,n2);
 if n1>n2 then
  write('Повторите ');
until n1<n2;
n:=0;
max:=-1;
ind:=0;
c:=0;
repeat
 readln(f,s);
 inc(n);
 if ((n1<=n) and (n2>=n)) and (s[1]='А') then  //убрать = если именно не включая эти строки
 begin
  writeln(f2,s);
  l:=0;
  for i:=1 to length(s) do
  if UpCase(s[i]) in ['Б','В','Г','Д','Ж','З','Й','К'..'Н','П'..'Т','Ф'..'Щ'] then
   inc(l);
  writeln(s);
  inc(c);
  if l>max then
  begin
   max:=l;
   s2:=s;
   ind:=c;
  end;
 end;
until eof(f);
Close(f);
Close(f2);
writeln;
write('Строка " ',s2,' " с номером:=',ind);
readkey
end.
Добавлено через 17 минут
Забыла написать задание .Оно выглядит так
1) Скопировать из файла F1 в файл F2 все строки, начинающиеся на букву «А» и расположенные между строками с номерами N1 и N2.
2) Определить номер той строки, в которой больше всего согласных букв, файла F2.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 21:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru