VPF::[Pascal]Последывательность - Форум программистов

Ane4ka

Дата 8.10.2007, 20:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Уважаемые программисты. Помогите пожалуйста решить 2 задачки. Я думаю для человека занющего паскаль не составит труда их сделать. А мне, девушке совершенно не разбирающейся с данным языком проще разобраться на примере и по шаблону решать другие задачи.

Вот условее:
1) Найти среднее арифметическое положительных элементов последовательности, оканчивающихся нечетной цифрой и количество нулевых элементов. В случае отсутствия необходимых по условию элементов сообщать об этом.

2) Найти отношение максимального элемента к минимальному среди элементов последовательности, предшествующих первому нулевому элементу. Если нулевых элементов нет, то выдать сообщение об этом.

Большое вам спасибо.

P.S. Если можно сегодня.... Просто завтра сдавать :(

volvo877

Дата 8.10.2007, 21:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Alix

Дата 8.10.2007, 21:08 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

Перенесите тему!

А вообще мне и правда делать нечего...

Код

program Project2;

const
  N = 20; // maximum number of elements

var
  sequence : array [1..N] of integer; // будет хранить последовательность символов
  high : integer;      // хранит номер следующей пустой ячейки в массиве

  s   : string;    // введенная пользователем строка
  tmp : integer;  // временная переменная для сохранения преобразованного числа 
  err : integer;  // код ошибки преобразования

  i : integer;       
  found : integer;   // количество элементов удовлетворяющих условию
  sum : real;    // сумма элементов удовлетворяющих условию
  zeroCount : integer;  // число нулевых элементов

begin
  // вводим числа
  writeln('Vvedite chisla, enter - okonchanie vvoda (no ne bolee ', N, ' chisel):');
  high := 1;

  // до тех пор пока в массиве есть место
  while high <= N do begin
    readln(s);  // читаем строку

    // если пустая, значит ввод чисел окончен
    if s = '' then
      break;

    // пытаемся прелобразовать
    Val(s, tmp, err);
    if err = 0 then begin
      // успешно
      sequence[high] := tmp;
      inc(high);
    end else
      writeln('Bad number, reenter');
  end;

  // выводим то что пользователь ввел
  writeln('Vy vveli:');
  for i := 1 to high-1 do
    write(sequence[i], ' ');
  writeln;

  // обнуляем переменные
  found := 0;
  sum := 0;
  zeroCount := 0;

  // просматриваем каждое введенное число
  for i := 1 to high-1 do
    // если оно положительное и ...
    // (остаток от деления на 10 это последняя цифра числа)
    // (остаток от деления любого числа на 2 показывает четное ли оно, 1 - если нечетное)
    if (sequence[i] > 0) and (sequence[i] mod 10 mod 2 = 1) then begin
      inc(found);  // увеличиваем счетчик найденных
      sum := sum + sequence[i];  // добавляем в сумму
    end else if (sequence[i] = 0) then  // иначе проверим, а не ноль ли это число
      inc(zeroCount); // и если ноль, то увеличим счетчик нулей

  // выводим результат
  writeln('Srednee: ', (sum/found):5:2, ' nulevyh: ', zeroCount);
  readln;
end.

Вот. А вторую попробуй все же сама. Во всяком случае весь код до "// обнуляем переменные" будет тем же самым.
Кстати, я это писал под Delphi7 для консольного приложения и в Pascal'e не компилировал, если будут ошибки, скажи.

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

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Ane4ka

Дата 8.10.2007, 22:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо тебе большое!!!! Ты настоящий друг smile

А вот со 2-м проблема... :(
Ну ничё... уже не 0 smile

Спасибки вам

Alix

Дата 8.10.2007, 22:41 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

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

Код

program Project2;

const
  N = 20; // maximum number of elements

var
  sequence : array [1..N] of integer;
  high : integer;

  s   : string;
  tmp : integer;
  err : integer;

  i : integer;
  min : integer;
  max : integer;
  zeroFound : boolean;

begin
  writeln('Vvedite chisla, enter - okonchanie vvoda (no ne bolee ', N, ' chisel):');
  high := 1;
  while high <= N do begin
    readln(s);
    if s = '' then
      if high > 1 then
        break
      else begin
        writeln('Vvedite kak minimum odno chislo');
        continue;
      end;

    Val(s, tmp, err);
    if err = 0 then begin
      sequence[high] := tmp;
      inc(high);
    end else
      writeln('Bad number, reenter');
  end;

  writeln('Vy vveli:');
  for i := 1 to high-1 do
    write(sequence[i], ' ');
  writeln;

  min := sequence[1];
  max := min;

  for i := 2 to high-1 do
    if sequence[i] = 0 then begin
      zeroFound := true;
      break;
    end else if (sequence[i] > max) then
      max := sequence[i]
    else if (sequence[i] < min) then
      min := sequence[i];

  if zeroFound then
    writeln('Min: ', min, ' Max: ', max, ' Max/min: ', (max/min):5:2)
  else
    writeln('Nulevoi element ne naiden');

  readln;
end.

И еще я тут заметил, что в первой программе не сделал этого:

Цитата

В случае отсутствия необходимых по условию элементов сообщать об этом.

Но я надеюсь ты сама это сделаешь...

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

Ane4ka

Дата 8.10.2007, 22:49 (ссылка)

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

Загрузка ...

Новичок

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

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

ААААААААААААААА Спасибки!!!!!!!!! Спасибо вам, добрый человек
smile

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