Определить количество повторяющихся слов в строке.

@Steag · Регистрация: 10.01.2010

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

Дана строка символов, определить количество повторяющихся слов, разделители - пробоел и знаки препинания.
Вводится текст в переменную типа String. Конец ввода - Ф6. Определить количество слов, в которых встречается не более 3-х различных букв. Конец слова - пробел или знак препинания. Использовать тип множества.
Еще на массивы:
Дан массив 10х10. Определить максимальный элемент лежащий ниже главной диагонали. Поменять местами строки в порядке возрастания первых элементов..
Дан массив 10х10. Для каждой строки определить максимальный элемент. Заменить все элементы нулями, если если максимальный лежит на главной диагонали.
Задачи на массив решить с помощью файлов. Исходный массив после создания сохранить в типизированном файле. После каждого преобразования разместить результат в текстовом файле. Использовать для дописывания Append, а текстовый файл закрывать после каждого дописывания.

Помогите. Завтра уже сдавать, а у меня ниче не выходит

@кот Бегемот · 10.01.2010, 16:24

А что ты 2 месяца делал? Только не говори, что вчера задали

@Steag · 10.01.2010, 16:31 **[ТС]**

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

А что ты 2 месяца делал? Только не говори, что вчера задали

Два месяца я занимался физикой, сопроматом и подобной ерундой и о АиП совершенно не думал.

@Puporev · 10.01.2010, 17:37

На матрицы.
1.

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    f:file of integer;
    g:text;
    i,j,imx,l:byte;
    b,mx:integer;
begin
clrscr;
randomize;
assign(f,'input.dat');
rewrite(f);
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=random(50)+10;
  write(f,a[i,j]);
 end;
reset(f);
assign(g,'output.txt');
rewrite(g);
writeln(g,'Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,b);
    write(g,b:5);
   end;
  writeln(g,'');
 end;
close(f);
close(g);
append(g);
imx:=1;
for i:=1 to n do
 begin
  mx:=a[i,1];
  for j:=1 to n do
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=j;
   end;
  writeln(g,'Max element v stroke ',i,'=',mx,' ego nomer=',imx);
  if imx=i then
  for l:=1 to n do
  a[i,l]:=0;
 end;
close(g);
append(g);
writeln(g,'Preobrazovannaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(g,a[i,j]:5);
  writeln(g,'');
 end;
close(g);
write('Программа завершена! Просмотрите файл output');
readln
end.

2.

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    f:file of integer;
    g:text;
    i,j,l:byte;
    b,mx,x:integer;
begin
clrscr;
randomize;
assign(f,'input.dat');
rewrite(f);
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=random(50)+10;
  write(f,a[i,j]);
 end;
reset(f);
assign(g,'output.txt');
rewrite(g);
writeln(g,'Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,b);
    write(g,b:5);
   end;
  writeln(g,'');
 end;
close(f);
close(g);
mx:=a[2,1];
for i:=2 to n do
for j:=1 to i-1 do
if a[i,j]>mx then mx:=a[i,j];
append(g);
writeln(g,'Max element nizhe glavnoj diagonali=',mx);
close(g);
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,1]>a[l,1] then
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=x;
 end;
append(g);
writeln(g,'Perestanovka strok po vozrastaniyu pervogo elementa:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(g,a[i,j]:5);
  writeln(g,'');
 end;
close(g);
write('Программа завершена! Просмотрите файл output');
readln
end.

@Steag · 10.01.2010, 18:04 **[ТС]**

Puporev, огромное тебе спасибо!

@Steag 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 6
		1
	Определить количество повторяющихся слов в строке. 10.01.2010, 16:22. Показов 1340. Ответов 4 Метки нет (Все метки) Дана строка символов, определить количество повторяющихся слов, разделители - пробоел и знаки препинания. Вводится текст в переменную типа String. Конец ввода - Ф6. Определить количество слов, в которых встречается не более 3-х различных букв. Конец слова - пробел или знак препинания. Использовать тип множества. Еще на массивы: Дан массив 10х10. Определить максимальный элемент лежащий ниже главной диагонали. Поменять местами строки в порядке возрастания первых элементов.. Дан массив 10х10. Для каждой строки определить максимальный элемент. Заменить все элементы нулями, если если максимальный лежит на главной диагонали. Задачи на массив решить с помощью файлов. Исходный массив после создания сохранить в типизированном файле. После каждого преобразования разместить результат в текстовом файле. Использовать для дописывания Append, а текстовый файл закрывать после каждого дописывания. Помогите. Завтра уже сдавать, а у меня ниче не выходит 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	10.01.2010, 16:24	2
	А что ты 2 месяца делал? Только не говори, что вчера задали 0

@Steag 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 6
	10.01.2010, 16:31 [ТС]	3
	Сообщение от alexevt А что ты 2 месяца делал? Только не говори, что вчера задали Два месяца я занимался физикой, сопроматом и подобной ерундой и о АиП совершенно не думал. 0

@Steag 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 6
	10.01.2010, 18:04 [ТС]	5
	Puporev, огромное тебе спасибо! 0