1 Востаннє редагувалося Torbins (13.04.2016 19:06:15)

Тема: Робота з масивами

Допоможіть будьласочка! Пропустила декілька уроків технологій в ліцеї, і тепер мучусь із домашньою самостійною роботою. Буду вдячна за будь-яку допомогу.
1.Обчислити добуток додатних елементів в лінійному масиві.
2.З цілочисельного лінійного масиву А[N]  створити масив В[N], в якому спочатку ідуть елементи кратні 2, потім кратні 3, а в кінці інші елементи.

2

Re: Робота з масивами

А що саме не зрозуміло? В першому завданні вам потрібо вміти:

  • створювати лінійний масив

  • перебирати елементи масиву

ну і типу все. Ви це вмієте робити?

Подякували: koala, DOP, leofun013

3

Re: Робота з масивами

Загальна логіка описана в попередній темі  Q-bart , тільки в другому варіанті потрібні не додатні елементи, а кратні 2 та 3.

Подякували: julia_handler1

4 Востаннє редагувалося raxp (13.04.2016 10:58:49)

Re: Робота з масивами

...кратність перевіряємо як:

if (N mod 2) = 0 then ...
if (N mod 3) = 0 then ...

Або:

if (N div 2)=(N/2) then ...

Або ще через trunc(), але якщо числа не цілі, то краще через round() :D

Подякували: julia_handler, leofun012

5

Re: Робота з масивами

julia_handler
Як вводяться початкові масиви? Їх треба з клавіатури вводити, самому генерувати, чи можна готові в програму вбити?

Подякували: leofun011

6

Re: Робота з масивами

Масиви треба вводити з клавіатури. Якщо кому не складно, напишіть будь-ласка задачу повністю, бо в темі було два уроки і я усі їх пропустила, і тому гадки не маю, що з усім цим добром робити.
П.с. Ну гуманітарій я, що з мене взяти?

7 Востаннє редагувалося Torbins (14.04.2016 15:18:21)

Re: Робота з масивами

julia_handler
Візьміть за основу оце: http://replace.org.ua/topic/548/ і оце: http://replace.org.ua/topic/318/ І спробуйте щось своє зробити. Ми вам підкажемо якщо у вас виникнуть проблеми. Можете іще сюди підглядати: http://pascal.org.ua/

Подякували: julia_handler, leofun012

8

Re: Робота з масивами

Короч, можна і допомогти.

1 задача

program HelloProgram;

var
  A: array [1..30] of integer ;
  i, rezult: integer;

begin
  
  rezult := 1;
  for i := 1 to 30 do
    begin 
      readln(a[i]);
      if a[i] > 0 then rezult := rezult * a[i];
    end;
  
  writeln(rezult);
end.
Подякували: leofun011

9 Востаннє редагувалося Torbins (14.04.2016 15:18:34)

Re: Робота з масивами

Величезне спасибі за допомогу!

10

Re: Робота з масивами

koala, quez
З такими порадами краще жувати.

Почистив тему від флуду.

julia_handler
Ну й щоб моє власне повідомлення не було флудом, трохи пояснень:

    program HelloProgram;
    var
      A: array [1..30] of integer ; //це масив чисел на 30 елементів
      i, rezult: integer; //i - лічильник, він потрібен для арифметичного циклу
      //rezult - тут накопичуватимемо добуток елементів масиву
    begin
      rezult := 1; //ініціалізація початковим значенням
      for i := 1 to 30 do //цикл, який спрацює 30 разів, кожного разу значення "i" збільшуватиметься на одиницю
        begin 
          readln(a[i]); //зчитуємо черговий елемент масиву з консолі
          if a[i] > 0 then //якщо він додатній, то
            rezult := rezult * a[i]; //множимо його на добуток попередніх елементів
                                     //і записуємо нове значення назад у rezult
        end;
      //цикл закінчився
      writeln(rezult); //виводимо добуток усіх додатніх елементів
    end.

Друге завдання спробуйте зробити самі. Якщо щось не вийде, то викладайте сюди свій варіант, ми підкажемо, що у ньому не правильно.

Подякували: leofun011

11

Re: Робота з масивами

СППФ?