20.01.2020, 12:15 [+3 UTC]
в нашей команде: 4 154 чел. | участники онлайн: 3 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.80 (15.01.2020)
JS-v.1.35 | CSS-v.3.36

Общие новости:
06.01.2020, 22:45

Форум:
13.01.2020, 16:40

Последний вопрос:
19.01.2020, 21:17
Всего: 151440

Последний ответ:
19.01.2020, 15:59
Всего: 259653

Последняя рассылка:
19.01.2020, 14:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
22.10.2009, 21:21 »
Imperator
Спасибо, действительно проще не бывает! [вопрос № 173577, ответ № 255728]
30.03.2010, 11:40 »
Спиридонов Данил Сергеевич
Спасибо за грамотный ответ. [вопрос № 177486, ответ № 260465]
03.01.2011, 21:33 »
Roots
Спасибо за столь быстрый ответ! [вопрос № 181714, ответ № 265223]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Gluck
Статус: Студент
Рейтинг: 498
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 270
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 109

Перейти к консультации №:
 

Консультация онлайн # 144798
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Evela
Отправлена: 23.09.2008, 20:12
Поступило ответов: 2

Здраствуйте,уважаемые эксперты помогите решить задачки на одномерные массивы!Буду очень благодарна!:)
№1 Известны данные о количестве осадков,выпавших за каждый день февраля.Верно ли,что по четным числам выпало больше осадков,чем по нечетным?
№2 Известно число жителей,проживающих в каждом доме улицы.Нумерация домов проведена подряд.Дома с четными номерами расположены на одной стороне улицы,с нечетными на другой.На какой стороне улицы проживает больше жителей?
Если можно,напишите их с объяснениями,а то я их толком не пониманию.

Состояние: Консультация закрыта

Здравствуйте, Evela!

Задачи почти одинаковые, поэтому привожу только первую.
Попробуйте сделать вторую по аналогии.
Если не получится, обращайтесь в мини-форум.
Удачи!

Приложение:


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 23.09.2008, 20:31

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 230063 от Абельхарисов Руслан/Marked One

Здравствуйте, Evela!
№1

const
  {Кол-во дней в месяце}
  N=28;

Var
  {Данные об осадках}
  A: array [1..N] of integer;
  {SumC-сумма осадков по четным числам, SumN-нечетные, i- для цикла}
  SumC, SumN, i: integer;

begin
  {Обнуляем суммы}
  sumC:=0;
  SumN:=0;
  {Включаем генератор случайных чисел}
  randomize;
  {Заполняем весь массив случайными числами от 1 до 99}
  for i:=1 to N do
    begin
      A[i]:=random(100);
      Write(A[i], ' ');
      {Если число четное, то прибавляем к SumC иначе к SumN}
      if Odd(i) then
        SumN:=SumN + a[i]
      else
        SumC:=SumC + a[i];
    end;
  {Проверяем условие}
  if SumC > SumN then
    WriteLn('Верно')
  else
    WriteLn('Неверно');
  readln;
end.


Работать с массивами очень просто. Чтобы создать массив в разделе Var добавьте следующие строчки:
var
  Arr: array [1..100] of integer;

Здесь мы объявили массив Arr длиной 100 элементов. Элементы в нашем массиве нумеруются с 1 до 100, их тип Integer. Почти так же можно создать массив строк:
var
  StrArr: array [1..5] of string;

Здесь мы создали массив из 5 строк. Можно создать массив в котором элементы нумеруются с -100 до 52:
var
  Arr: array [-100..52] of integer;

Массивы можно создавать любых типов, тип указывается после ключевого слова of.
Обращаться к элементам массива тоже очень просто:
var
  //Создали массив типа integer
  Arr: array [-10..10] of integer;
begin
  //Элементу с индексом -10 присвоили 100
  Arr[-10]:=100;
  //Вывели -10 элемент
  WriteLn(Arr[-10]);
  //5 элементу присвоили разность 400 и -10 элемента массива
  Arr[5]:=400 - Arr[-10];
end.


Вернемся к нашей задачи. Сначала мы создаем массив из 28 элементов с типом integer. Объявляем переменные для хранения сумм осадков. Потом заполняем массив случайными числами с помощью функции random. Четность проверяем с помощью функции Odd. Она возвращает true если число нечетное, иначе false.

Удачи!!!


Консультировал: Абельхарисов Руслан/Marked One
Дата отправки: 23.09.2008, 20:52

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 144798
Ualife

# 1

= общий = | 23.09.2008, 20:39

Фактически это одна задача.

program e1;
const
n=29; {кол-во домов (кол-во дней в месяце)}
var a: array [1..n] of integer; { задаем одномерный масив }
i,s1,s2: integer; { i - счетчик, s1 и s2 - сумма кол-ва жильцов (осадков)} живущих на улице с нечетными номерами домов и на улицах с четными}
begin
randomize; {это используется для задания кол-ва жильцов в каждом доме}
for i:=1 to n do 
begin
a[i]:=random(10); {записываем в массив значение функции random}
if (i mod 2)>0 then {если значение счетчика нечетно, то }
s1:=s1+a[i] {увеличиваем s1 на значение записанного в массивe}
else  {иначе}
s2:=s2+a[i] {увеличиваем s2 на значение записанного в массивe}
end;
writeln(s2,' ',s1,' ', s2>s1); {Выводим значение s2, s1 и слово TRUE, если S2>S1 или слово FALSE, если S2<s1. Можно использовать оператор IF:
if s2>s1 then
writlen ('На улице с четными номерами домов живет больше людей')
else
writlen ('На улице с нечетными номерами домов живет больше людей')
}
readln;
end.

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 3.07802 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.80 от 15.01.2020
Версия JS: 1.35 | Версия CSS: 3.36