Форум: «ЕГЭ по информатике»

На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

Форум » Обработка числовых последовательностей » C4 из последней тренировочной
	перенос

Автор

Сообщение

Бибиков

Сообщение: 5

Отправлено: 27.05.12 01:20. Заголовок: C4 из последней тренировочной

Программа, к сожалению с первого раза не заработала, поэтому есть немного мусора.
Проверьте, пожалуйста, ее правильность.

Заранее спасибо.

цитата:

const q=1;
z=26;
var s:string;
c,y:char;
p,i,x,c2:integer;
A:array[q..z] of integer;
B:array[q..z] of char;
begin
readln(s);
while s<>'*' do begin
p:=pos(' ',s);
while p<>0 do begin
if p<>1 then begin
c:=s[1];
c2:=ord(c);
c2:=c2-96;
A[c2]:=A[c2]+1;
B[c2]:=c;
end;
delete(s,1,p);
p:=pos(' ',s)
end;
c:=s[1];
if c<>' ' then begin
c2:=ord(c);
c2:=c2-96;
A[c2]:=A[c2]+1;
B[c2]:=c;
end;
readln(s);
end;
for i:=q to z do
for p:=q to z-i do
if A[p]<A[p+1] then begin
x:=A[p];
y:=B[p];
A[p]:=A[p+1];
B[p]:=B[p+1];
A[p+1]:=x;
B[p+1]:=y;
end;
for c2:=q to z do
if A[c2]<>0 then writeln(B[c2],' ',A[c2]);
end.

Ответов - 3 [только новые]

Бибиков

Сообщение: 6

Отправлено: 27.05.12 01:22. Заголовок: Суть такова: Считыва..

Суть такова:
Считываются строки до ввода *.
Затем находим пробелы до тех пор, пока их не останется вовсе.
Удаляем из строки все до пробела и находим первую букву слова,
Затем с помощью пузырька все это сортируем.

**Алгоритм немного сложнее, но суть все же такова(учтены варианты с пробелами в начале и конце строки)

BaVictor

Сообщение: 3

Отправлено: 27.05.12 01:29. Заголовок: За что мне нравится ..

Оффтоп: За что мне нравится с#, так за простоту сортировки введенных данных

Скрытый текст

Собственно соль

цитата:
while ((line = Console.ReadLine()) != "*")
{
//удаляем лишние пробелы и заносим каждое слово в массив
string[] words = line.Split(' ');
for (int n = 0; n < words.Length; n++)
{
//увеличиваем счетчик буквы, с которой начинается слово на 1
if(words[n]!="")
counts[letters.IndexOf(words[n][0])]++;
}
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace C4_mioo1805
{
class Program
{
static void Main(string[] args)
{

//Объявляем массив букв и заполняем его
List<char> letters = new List<char>(26);

for (char ch = 'a'; ch <= 'z'; ch++)
{
letters.Add(ch);
}
//массив количества слов, начинающихся с определенной буквы
List<int> counts = new List<int>(26);
for (int n = 0; n < 26; n++)
{
counts.Add(0);
}
string line;
//читаем введенную строчку до тех пор, пока не будет введена звездочка
while ((line = Console.ReadLine()) != "*")
{
//удаляем лишние пробелы и заносим каждое слово в массив
string[] words = line.Split(' ');
for (int n = 0; n < words.Length; n++)
{
//увеличиваем счетчик буквы, с которой начинается слово на 1
if(words[n]!="")
counts[letters.IndexOf(words[n][0])]++;
}
}
//находим максимальное количество слов с определенной буквы
int max = 0;
for (int n = 0; n < counts.Count; n++)
{
if (counts[n] > max)
max = counts[n];
}
//выводим по убыванию
for (int n = max; n >= 1; n--)
{
for (int i = 0; i < counts.Count; i++)
{
if (counts == n)
Console.WriteLine(letters + " " + counts);
}
}
Console.Read();
}
}
}

Спасибо: 0

oval
постоянный участник
Сообщение: 126

Отправлено: 27.05.12 09:00. Заголовок: Программа, к сожален..

цитата:

Программа, к сожалению с первого раза не заработала, поэтому есть немного мусора.
Проверьте, пожалуйста, ее правильность.

решение правильное можно немного сократить ввод, обратите внимание на жирную строчку, она заставляет цикл, обработать последнее слово

TYPE bc=record 
      b:char; 
      c:integer; 
      end; 
 var p,i,j,k:integer; 
     s, s1:string;                     
     a:array [1..26] of bc; 
     temp:bc;                          
      
 Begin 
 for i:=1 to 26 do a.c:=0; 
  
 while s<>'*' do begin 
 readln(s); 
 p:=POS(' ',s); 
   while p<>0 do begin 
         s1:=copy(s,1,p-1);           
         if s1<> '' then begin          
            k:= ord(s1[1])-ord('a')+1;     
            a[k].b:=s1[1]; 
            a[k].c:=a[k].c+1; 
         end; 
         DELETE(s,1,p); 
         p:=POS(' ',s); 
         if (s<>'') and (p = 0) then p:= length(s)+1;     
         end; 
   end; 
  
 for i:=1 to 25 do 
     for j:=1 to 26-i do 
         if a[j].c<a[j+1].c then begin 
         temp:=a[j]; 
         a[j]:=a[j+1]; 
         a[j+1]:=temp; 
         end; 
  
 for i:=1 to 26 do                                      
 if a.c <>0 then writeln(a.b,' ', a.c); 
 end.

Спасибо: 0

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

Форум » Обработка числовых последовательностей » C4 из последней тренировочной

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 2287
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия