Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.05.2008, 16:10   #1
SweetOpium
Пользователь
 
Аватар для SweetOpium
 
Регистрация: 08.05.2008
Сообщений: 42
По умолчанию

В институт нужно решить 5 задачек по паскалю, кому не сложно, решите - буду очень благодарен

1. Найти сумму элементов А(7) с 5-го по 7-ой.
2. Найти сумму отрицательных элементов В(7)
3. Найти количество отрицательных элементов В(6)
4. Найти количество положительных элементов С(8)
8. Найти отдельно сумму и произведение всех элементов А(9




а можно это все по подробнее расписать? а то я совсем в этом не понимаю =) И еще массив должен рандомно заполняться

Последний раз редактировалось AlDelta; 08.05.2008 в 20:37.
SweetOpium вне форума
Старый 08.05.2008, 16:48   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Мда......

1. summa := mas[5] + mas[6] + mas[7];

2.
For i := 1 To 7 Do
if mas[i] < 0 Then summa := Summa + mass[i];

3.
For i := 1 To 6 Do
if mas[i] < 0 Then k := k + 1;

4.
For i := 1 To 8 Do
if mas[i] > 0 Then k := k + 1;

5.
For i := 1 To 9 Do
Begin
summa = summa + ms[i];
proizv := proizv * mass[i];
End;
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума
Старый 08.05.2008, 18:39   #3
Kostia
Участник клуба
 
Аватар для Kostia
 
Регистрация: 21.11.2007
Сообщений: 1,691
По умолчанию

Мммдааа

1.
Код:
var
  i: integer;
  a:array[1..7]of integer;
  summ: integer;
begin
  summ:=0;
  for i:=1 to 7 do 
    a[i]:=-100+random(201);//случайное число от -100 до 100
  summ:=a[5]+a[6]+a[7]
end;
2.
Код:
var
  i: integer;
  b:array[1..7]of integer;
  summ: integer;
begin
  summ:=0;//0 это нейтральное число для сложения(1 для умножения)
  for i:=1 to 7 do 
  begin
    b[i]:=-100+random(201);//случайное число от -100 до 100
    if b[i]<0 then summ:=summ+b[i]//если i элемент массива b меньше 0 то суммируем его
  end;
end;
3.
Код:
var
  i: integer;
  b:array[1..6]of integer;
  e: integer;
begin
  e:=0;
  for i:=1 to 6 do 
  begin
    b[i]:=-100+random(201);//случайное число от -100 до 100
    if b[i]<0 then inc(e)
  end;
end;
4.
Код:
var
  i: integer;
  c:array[1..8]of integer;
  e: integer;
begin
  e:=0;
  for i:=1 to 8 do 
  begin
    c[i]:=-100+random(201);//случайное число от -100 до 100
    if c[i]>0 then inc(e)
  end;
end;
5.
Код:
var
  i: integer;
  a:array[1..9]of integer;
  s,p: integer;
begin
  s:=0;//сумма
  p:=1;//произведение
  for i:=1 to 9 do 
  begin
    a[i]:=-100+random(201);//случайное число от -100 до 100
    s:=s+a[i];
    p:=p*a[i];
  end;
end;
Уффф! Писал в on-line могут быть ошибки!
Kostia вне форума
Старый 08.05.2008, 19:39   #4
SweetOpium
Пользователь
 
Аватар для SweetOpium
 
Регистрация: 08.05.2008
Сообщений: 42
По умолчанию

выводится всегда одно и то же значение ((
Ктонить может рещить эти задачи по примеру вот этой:

Найти произведение положительных элементов А(6):
Код:
program pr5;

const
  S = 6;

var
  A: array[1..S] of integer;
  i, P: integer;

begin
  Randomize;
  write('A: ');
  P := 1;
  for i:=1 to S do begin
    A[i] := Random(10)-5;
    write(A[i], ' ');
    if A[i] > 0 then P := P * A[i];
  end;
  writeln;
  write('P = ',P);
  readln;
end.
SweetOpium вне форума
Старый 08.05.2008, 19:42   #5
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Код:
begin  
  Randomize; \\Допиши в каждую прогу эту строку.  
  write('A: ');
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума
Старый 08.05.2008, 19:44   #6
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Цитата:
выводится всегда одно и то же значение ((
Ктонить может рещить эти задачи по примеру вот этой:
Использую Randomize, в начале программы надо ещё включить uses crt
eoln вне форума
Старый 08.05.2008, 20:04   #7
SweetOpium
Пользователь
 
Аватар для SweetOpium
 
Регистрация: 08.05.2008
Сообщений: 42
По умолчанию

а как еще сделать так чтоб он всетки выводил те числа которые он сгенерировал в массив, а то фиг проверишь правильно ли он считает, к примеру количество отр. чисел в массиве
SweetOpium вне форума
Старый 08.05.2008, 20:08   #8
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

После такой строчки
Код:
b[i]:=-100+random(201);
такую поставь
Код:
write(b[i],'  ');
eoln вне форума
Старый 08.05.2008, 20:28   #9
SweetOpium
Пользователь
 
Аватар для SweetOpium
 
Регистрация: 08.05.2008
Сообщений: 42
По умолчанию

Все вроде правельно, кроме 2й задачки
Код:
var  
  i: integer;   
  b:array[1..7]of integer;   
  summ: integer;   
begin  
  summ:=0;//0 это нейтральное число для сложения(1 для умножения)   
  for i:=1 to 7 do    
  begin  
    b[i]:=-100+random(201);//случайное число от -100 до 100   
    if b[i]<0 then summ:=summ+b[i]//если i элемент массива b меньше 0 то суммируем его   
  end;   
end;
почему то делает вместо 1го раза целых 5. т.е при нажатии клавиши он создает новый массивы там считает, и так 5 раз. А мне надо чтоб 1 и после нажатия клавиши окно закрывалось
SweetOpium вне форума
Старый 08.05.2008, 20:40   #10
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Думаю автор получил больше даже чем нужно...
Такие задачки лучше решать самостоятельно, чтобы потом небыло стыдно за потраченное время.
Закрыто.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи на массивы. Nadi Помощь студентам 4 25.04.2011 16:58
Pascal/Массивы ромка) Паскаль, Turbo Pascal, PascalABC.NET 6 14.06.2008 18:29
Массивы в Pascal Alex XXX Помощь студентам 4 21.04.2008 02:16
Pascal. Массивы Danilyuk Помощь студентам 1 22.01.2008 19:56