Дана непустая строка символов

[Гарри]

Дана непустая строка символов. Построить и напечатать множество, элементами которого являются встречающиеся в последовательности знаки препинания.

[Stilet]

Покажи как строку вводишь )

[Krasiosoft]

Выводит кол-во встречающихся символов, которые заданы в PunctuationMarks. Должно помочь.

var PunctuationMarks:string ='.,-?!';
    PunctuationMarksCount:array of integer;
    InputStr:string;
    i,j:integer;

begin

  Writeln('Input string:');
  Readln(InputStr);

  SetLength(PunctuationMarksCount, Length(PunctuationMarks));
  for i:=1 to Length(PunctuationMarksCount) do
    PunctuationMarksCount[i]:=0;

  for i:=1 to Length(InputStr) do
  begin
    for j:=1 to Length(PunctuationMarks) do
    begin
      If InputStr[i]=PunctuationMarks[j] then
      begin
        PunctuationMarksCount[j]:= PunctuationMarksCount[j] + 1;
        break;
      end;
    end;
  end;

  for i:=1 to Length(PunctuationMarks) do
  begin
    Writeln(PunctuationMarks[i],' ',PunctuationMarksCount[i]);
  end;

  Readln;
end.

[Алексей_2012]

Извиняюсь, но где:
1) строится множество
2) где освобождение памяти, которую занял динамический массив?
3) почему индекс динамического массива с 1, а не с 0?

[Krasiosoft]

Сообщение от Алексей_2012

Извиняюсь, но где:
1) строится множество
2) где освобождение памяти, которую занял динамический массив?
3) почему индекс динамического массива с 1, а не с 0?

Спасибо за замечания. Сам пока только изучаю Паскаль.

Пункт 3 исправил, насчет пункта 2 так и не могу понять, нужно чистить память или все же нет. Нашел это сообщение: http://www.programmersforum.ru/showp...32&postcount=7. И насчет строк, за ними память удалять нужно?

Задачу построить множество перед собой не ставил, думаю, автор темы на основе этого сможет это сделать сам.

var PunctuationMarks:string ='.,-?!';
    PunctuationMarksCount:array of integer;
    InputStr:string;
    i,j:integer;

begin

  Writeln('Input string:');
  Readln(InputStr);

  SetLength(PunctuationMarksCount, Length(PunctuationMarks));
  for i:=0 to Length(PunctuationMarksCount)-1 do
    PunctuationMarksCount[i]:=0;

  for i:=1 to Length(InputStr) do
  begin
    for j:=1 to Length(PunctuationMarks) do
    begin
      If InputStr[i]=PunctuationMarks[j] then
      begin
        PunctuationMarksCount[j-1]:= PunctuationMarksCount[j-1] + 1;
        break;
      end;
    end;
  end;

  for i:=1 to Length(PunctuationMarks) do
  begin
    Writeln(PunctuationMarks[i],' ',PunctuationMarksCount[i-1]);
  end;



  Readln;
end.

[min@y™]

Я чот не вкурю: это задача на множества или по работе с принтером?

[Arigato]

Напечатать можно и на экране монитора. Уже же этот вопрос с вами обсуждали.
Хотя я обычно в задачах формулирую "вывести на экран".

[min@y™]

я обычно в задачах формулирую "вывести на экран".

я, обычно, тоже. а акцентируя на слове "напечатать", я просто пытаюсь сделать этот мир чуточку проще...

Ну, ведь, не во вред же? согласись.

[Krasiosoft]

Проверил, можно не освобождать память за array и string, т.к. после окончания процедуры или функции память освобождаться автоматически. Но при необходимости можно освободить память и во время выполнения процедуры или функции. Кусок кода, чтоб это можно было проверить:

procedure MyProc1;
var TempArray:array of byte;
    TempString:string;
begin
//  выделяем 100 МБ под массив
  SetLength(TempArray,$6400000);
//  выделяем 100 МБ под строку
  SetLength(TempString,$6400000);

//  если нужно освободить память до выхода из процедуры/функции, это можно сделать так:
//  освобождаем память для массива
  SetLength(TempArray,0);
//  освобождаем память для строки
  SetLength(TempString,0);
end;

procedure MyProc2;
var TempArray:array of byte;
    TempString:string;
begin
//  выделяем 100 МБ под массив
  SetLength(TempArray,$6400000);
//  выделяем 100 МБ под строку
  SetLength(TempString,$6400000);
//  если нужно освободить память до выхода из процедуры/функции, это можно сделать так:
//  освобождаем память для массива
  TempArray:=nil;
//  освобождаем память для строки
  TempString:='';
end;

procedure MyProc3;
var TempArray:array of byte;
    TempString:string;
begin
//  выделяем 100 МБ под массив
  SetLength(TempArray,$6400000);
//  выделяем 100 МБ под строку
  SetLength(TempString,$6400000);
end;

procedure MyProc4;
var TempArray:array of byte;
    TempString:string;
begin
//  выделяем 100 МБ под массив
  SetLength(TempArray,$6400000);
//  выделяем 100 МБ под строку
  SetLength(TempString,$6400000);
end;



begin
  MyProc1;
  MyProc2;
  MyProc3;
  MyProc4;

  Readln;
end.

Все описанные выше процедуры освобождают за собой память, что можно проверить через диспетчер задач.

[min@y™]

Проверил, можно не освобождать память за array и string

Это было проверено ещё до твоего рождения, ибо создателями компайлера эта фича была задумана изначально и называется "финализируемые типы данных".

однако, мы отвлеклись... что у тебя не получается там с множествами-то?