VPF::Помогите плиз. Полный завал! - Форум программистов

mr.Anderson

Дата 3.11.2008, 19:26 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Аааа, слишком здоровый массив Check, значит. Попробуй уменьшить его (32700 например).

--------------------

darkart

Дата 3.11.2008, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Цитата(Suriv @ 2.11.2008, 22:52

)

2.Дано 50 вещественных чисел. Определить, сколько из них больше предыдущего и последующего чисел.

Код


program Sequence50;
const
  MAX_NUMBERS = 10;{максимальное количество элементов в массиве}
type
  TArray = array[ 1..MAX_NUMBERS ] of real;{определение типа - массив}
procedure InputArray( var Arr : TArray );
{процедура ввода массива Arr}
var
  i : integer;{счетчик}
begin
  for i := 1 to MAX_NUMBERS do{для каждого элемента массива}
    read( Arr[ i ] );{читаем очередной элемент}
  readln;{ждем entera}
end;

procedure PrintArray( var Arr : TArray );
{процедура печати массива}
var
  i : integer;{счетчик}
begin
  for i := 1 to MAX_NUMBERS - 1 do{для каждого элемента, кроме последнего}
    write( Arr[ i ]:5:2, ' ' );{печатаем очередной элемент и пробел}
  writeln( Arr[ MAX_NUMBERS ]:5:2 );{печатаем последний элемент с переводом курсора на новую строку}
end;

procedure GenerateArray( var Arr : TArray; fMinValue, fMaxvalue : real );
{процедура генерации массива Arr значениями от fMinValue до fMaxvalue}
var
  i : integer;{счетчик}
  fTemp : real;{вспомогательная переменная}
begin
  if( fMinValue > fMaxValue ) then{если меньшее значение оказалось больше, то обмен}
  begin
    fTemp := fMinValue;
    fMinValue := fMaxValue;
    fMaxValue := fTemp;
  end;

  fTemp := fMaxValue - fMinValue;{вычисляем длину между fMinValue и fMaxValue}

  {заполняем массив случайными значениями}
  for i := 1 to MAX_NUMBERS do
    Arr[ i ] := fMinValue + fTemp * random;
end;

function GetTaskNumbersCount( var Arr : TArray ) : integer;
{функция возвращает количество "локальных максимумов" массива}
var
  i, iRes : integer;
begin
  iRes := 0;{инициализация результата}
  i := 1;{инициализация счетчика}
  {считаю что условия для первого элемента слева, а для последнего справа - выполнены}
  while( i < MAX_NUMBERS ) do{}
  begin
    {идем вверх}
    while( ( i < MAX_NUMBERS ) and ( Arr[ i ] < Arr[ i + 1 ] ) ) do
      inc( i );

    inc( iRes );

    {идем вниз - пропускаем. не наши элементы}
    while( ( i < MAX_NUMBERS ) and ( Arr[ i ] >= Arr[ i + 1 ] ) ) do
      inc( i );
  end;

  GetTaskNumbersCount := iRes;{возвращаем результат}
end;

var
  Arr : TArray;{исходный массив}

begin
  randomize;{инициализация генератора случайных чисел}
  writeln( 'Generating array...'  );
  GenerateArray( Arr, 0, 10 );{генерация случайного массива}
  writeln( 'Source array:' );
  PrintArray( Arr );{печать исходного массива}
  writeln( 'Maxes = ', GetTaskNumbersCount( Arr ) );{печать результата}
  readln;{ждем ввода}
end.

Suriv

Дата 3.11.2008, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

Млин как я вам благодарен!!! все в той же программе в 3ьей не хочет никак работать я там все поубирал на что он ругался потом поменял размер а вот теперь он ругается где к f присваевается 0. Пишит type mismatch

mr.Anderson

Дата 3.11.2008, 19:56 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Suriv, ага, 0 на false, 1 на true замени... привычка из си.

--------------------

Suriv

Дата 3.11.2008, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

Вотя заменил где ноль на фольс а где 1 опять не работает пишит ту же ошибку я меняю на тру он тогда выдает ошибку data segment too large. Вроде же тру он как бы заложен в стандарте языка там v;tn как то по другому? а то он ни тру не 1 не хочет)) Я вас наверно замучил уже))

mr.Anderson

Дата 3.11.2008, 20:09 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

--------------------

darkart

Дата 3.11.2008, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Цитата(Suriv @ 2.11.2008, 22:52

)

5.Дана последовательность слов русского языка, между словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке: все согласные буквы, которые не входят ни в одно слово.

Грязный хак, но условиями задачи не запрещен - просто ищем согласные, которых нет в строке.

Код


program StringAndLetters;
const
  RusSoglStr = 'бвгджзйклмнпрстфхцчшщъь';{строка упорядоченных русских согласных}
  RusSoglSet = [ 'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь' ];{}
var
  i : integer;{счетчик}
  str : string;{строка}
  sLetters : set of char;
begin
  sLetters := RusSoglSet;{инициализация множества}
  writeln( 'Please enter string:' );
  readln(str);{читаем строку}
  i := 1;{инициализация счетчика}
  while( ( i <= Length( str ) ) and ( str[ i ] <> '.' ) ) do
  begin
    sLetters := sLetters - [ str[ i ] ];{вычитаем символ из множества}
    inc( i );{увеличение счетчика}
  end;

  {печать результата}
  writeln( 'Result:' );

  for i := 1 to Length( RusSoglStr ) do
    if( RusSoglStr[ i ] in sLetters ) then{печатаем символы оставшиеся в множестве}
      write( RusSoglStr[ i ] );
  writeln;

  readln;{ожидание ввода}
end.

Suriv

Дата 3.11.2008, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

А вот в 4 он читает строк ну поче муто не меняет вроде все так написанно как надо. Он просто считывает и все .

mr.Anderson

Дата 3.11.2008, 20:37 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Угу поправил.

Код


var
  S: String;
  I: Integer;
  Word: String;
  
begin
  readln(S);

  Word := '';
  for I := 1 to Length(S) do
    if S[I] <> ' ' then
      Word := Word + S[I]
    else
    begin
      if Copy(Word, Length(Word)-2, 3) = 'ing' then
      begin
        Word := Copy(Word, 1, Length(Word)-3) + 'ed';
        writeln(Word);
      end;
   
     Word := '';
    end;
  if Word <> '' then
    if (Copy(Word, Length(Word)-2, 3) = 'ing') then
    begin
      Word := Copy(Word, 1, Length(Word)-3) + 'ed';
      writeln(Word);
    end;
end.

Это сообщение отредактировал(а) mr.Anderson - 3.11.2008, 21:36

--------------------

Suriv

Дата 3.11.2008, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

Хорошо что есть такие люди как вы! Как выходные будут надо самому паскаль выучить нормально.

Suriv

Дата 3.11.2008, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

А можно еще попросить подкоректировать 5 прогу. Если с английскими буквами, а то что то ругается. У нас на учебе русский не поддерживает.

mr.Anderson

Дата 3.11.2008, 21:37 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Чуть скорректировал 4-ю в предыдущем моем посте, одну лишнюю строчку забыл убрать

Добавлено через 1 минуту и 26 секунд
Suriv, по коду 5-я и не будет работать с английскими, массивы-то заданы русскоязычные. Просто набор букв измени и все.

--------------------

Suriv

Дата 3.11.2008, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

5 у меня даже и с русскими что то не хочет работать странно в одном паскале он выводит просто все буквы согласные независимо есть они в предложении или нету а в другой версии паскале выдает ошибку.

volvo877

Дата 4.11.2008, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Suriv, в следующий раз приводил бы ошибку, а то гадать не очень хочется...

Кстати, в приведенной выше программе (для задания №5) много лишнего... Все проще гораздо:

Код


program StringAndLetters;
const
  SoglSet: set of char =
    ['b','c','d','f','g','h','j','k','l','m','n',
     'p','q','r','s','t','v','w','x','y','z'];
var
  i: integer;
  str : string;
  ch: char;
begin
  writeln( 'Please enter string:' );
  readln(str); { Ввод строки }
  for i := 1 to length(str) do
    SoglSet := SoglSet - [ str[i] ]; { просто удаляем символ из сета... }

  { Печать результата }
  writeln( 'Result:' );
  for ch := 'a' to 'z' do
    if ch in SoglSet then write(ch);
  readln;{печатаем строку}
end.

(... если символ - согласная, то его в любом случае надо удалить если в множестве он еще присутствует, потому что он уже встречается в слове. Если он уже был удален ранее, или это гласная буква, которой во множестве и не было никогда - ничего страшного, множество просто останется неизменным...)

Это сообщение отредактировал(а) volvo877 - 4.11.2008, 15:05

Rodman

Дата 5.11.2008, 16:01 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman

Модератор: Пожалуйста, один топик - один вопрос.
Модератор: Название темы должно отражать ее суть!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »