Задача на вектора с использованием процедур и функций Опции

[Мультяшка]

Мой преподаватель по основам программирования преподаёт плохо в надежде на то, что бедные студенты отвалят ему деньжат на сессии!!
Я не хочу так делать и прошу вас помочь!!

Решите мне, пожалуйста, задачу в Паскале. В обычном паскале.

Оформить в виде функции и процедуры.
Заполнить случайными числами из [0;9] вектор b 1*6. Вывести его на экран. Найти произведение элементов, меньших числа С.

Сообщение отредактировано: Мультяшка - 6.06.2009 1:25

[Lapp]

М

Мультяшка, будь добр, прочти Правила этого Форума и приведи название темы в соответствие с ними.

И покажи свои наработки, плз.

[Мультяшка]

У меня нет наработок.

[sheka]

вопрос по алгоритму:

Заполнить вектор b 1*6.

что собой представляет жтот вектор?

Вывести его на экран.

вывести направленый отрезок?

Найти произведение элементов, меньших числа С.

элементом считается модуль вектора?

[Lapp]

У меня нет наработок.

А в чем проблема? Ты начни хотя бы.

Смотри.
Вот вектор:

var
  b: array[1..6]of integer;

Вот заполнение случайными числами от 0 до 9

  for i:=1 to 6 do b[i]:=Random(10);

Вот вывод на экран:

  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);

Вот нахождение произведения:

  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];

Угу?

[Мультяшка]

вопрос по алгоритму:
что собой представляет жтот вектор?
вывести направленый отрезок?
элементом считается модуль вектора?

1*6 - это 1 строка с 6-ю так скажем столбцами. Как мне объяснили.
Я не знаю, что нужно вывести. В первом посте всё, что он мне дал.

Добавлено через 1 мин.

А в чем проблема? Ты начни хотя бы.

Смотри.
Вот вектор:

var
  b: array[1..6]of integer;

Вот заполнение случайными числами от 0 до 9

  for i:=1 to 6 do b[i]:=Random(10);

Вот вывод на экран:

  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);

Вот нахождение произведения:

  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];

Угу?

Я вообще не знаю этой программы..

[sheka]

имеется ввиду, что есть 6 векторов и нам надо работать с их длинами?

Я вообще не знаю этой программы..

это ты про паскаль?
если да, то давай за 20$ мы тебе решим эту задачу. 19$ LAPPу за уже предоставленое им решение, и мне 1$ за идею.

Сообщение отредактировано: sheka - 6.06.2009 2:13

[Lapp]

Я вообще не знаю этой программы..

Какой программы?
Возьми книжку. Прочти хотя бы начало. Потом приходи..

[Мультяшка]

имеется ввиду, что есть 6 векторов и нам надо работать с их длинами?

Думаю, что нет. Это же первый курс, там проще..

Какие вы все мелочные. Чувак, читай первые 2 предложения в самом первом посте. Не нравится, не решайте. Людей много. Я попросила вас от безвыходности.

Сообщение отредактировано: Мультяшка - 6.06.2009 2:15

[sheka]

Думаю, что нет. Это же первый курс, там проще..

это был вопрос Лаппу.

2'Мультяшка'
что может быть проще 6 одномерных массивов?


Добавлено через 6 мин.

Я попросила вас от безвыходности.

var
  b: array[1..6]of integer;
  p,i,c: integer;
begin
  WriteLn('vvedi c=');
  readln(c);
  for i:=1 to 6 do b[i]:=Random(10);
  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);
  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];
  WriteLn('p= ',p);
  readln;
end.

[Мультяшка]

это был вопрос Лаппу.

2'Мультяшка'
что может быть проще 6 одномерных массивов?
Добавлено через 6 мин.

var
  b: array[1..6]of integer;
  p,i,c: integer;
begin
  WriteLn('vvedi c=');
  readln(c);
  for i:=1 to 6 do b[i]:=Random(10);
  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);
  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];
  WriteLn('p= ',p);
  readln;
end.

спасибо огромное, конечно, но мне нужно эту программу написать через процедуры и функции..

[Lapp]

Думаю, что нет. Это же первый курс, там проще..

Я тоже так думаю.

Какие вы все мелочные. Чувак, читай первые 2 предложения в самом первом посте. Не нравится, не решайте. Людей много. Я попросила вас от безвыходности.

Полагаю, sheka пошутил (да, sheka?).
Дело не в этом. Ты прости, но я не могу поверить, чтоб твой преп вот совсем ничего вам не дал.
Я дал тебе практически все, за исключением мелочей. Это был тест. Теперь я вижу, что дело не в преподавателе (или не совсем в нем). Я по-прежнему готов тебе помогать, если ты проявишь желание научиться хоть чему-то. Если нет - гудбай..

[Мультяшка]

Я тоже так думаю.

Полагаю, sheka пошутил (да, sheka?).
Дело не в этом. Ты прости, но я не могу поверить, чтоб твой преп вот совсем ничего вам не дал.
Я дал тебе практически все, за исключением мелочей. Это был тест. Теперь я вижу, что дело не в преподавателе (или не совсем в нем). Я по-прежнему готов тебе помогать, если ты проявишь желание научиться хоть чему-то. Если нет - гудбай..

Конечно хочу! Нет, у меня есть лекции, есть материал, но этим нужно уметь пользоваться, а когда тупо списано с доски, смысла не имеет..

[sheka]

 var
  b: array[1..6]of integer;
  c:integer;

procedure vvodc;
var i:integer;
begin
  WriteLn('vvedi c=');
  readln(c);
end;

procedure vvod;
var i:integer;
begin
  for i:=1 to 6 do b[i]:=Random(10);
end;

procedure vivod;
var i:integer;
begin
  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);
end;

procedure mult;
var i,p:integer;
begin
  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];
  WriteLn('p= ',p);
end;

begin
vvodc;
vvod;
vivod;
mult;
readln;
end.

теперь и мне тоже 20$

[Мультяшка]

спасибо огромное!!!
Но нужна ещё программа на функции..)

Сообщение отредактировано: Мультяшка - 6.06.2009 2:54

[Krjuger]

Ты знаеш я открою тебе секрет,почти в любом вузе на любой специальности просто дают задачу, пишут ее реализацию, и просят чуть чуть его изменить и все.Даже на таких кафедрах,как прикладная математика и информатика(больше углубленному изучению информатики я не знаю где учат).так что девушка немного непонятно,что вы делали весь семестр.

а когда тупо списано с доски, смысла не имеет..

А тупо списыват и не надо,надо хотяб иметь представление о том что ты делаеш.А вообще,когда подходиш к задаче надо :
1)Осознать цель,суть задачи и привязать ее к определенному классу задач(сортировки,списки,деревья и тд).
2)Математически продумать(составить последовательность действий,которые будут давать необходимый тебе результат)
И когда ты ВСЕ это сделаеш,только тогда начинаеш писать программу.Каджому математическому действию соответствует какое то действие в паскале и ты просто свой алгоритм "обшиваеш" лексикой языка.

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

procedure vvodc;
var i:integer;
begin
WriteLn('vvedi c=');
readln©;
end;

Чет ты как то разошелся это уже перебор..


Мультяшка,поясни,что именно надо?Какая пробрамма?Что надо?

Сообщение отредактировано: Krjuger - 6.06.2009 3:05

[Мультяшка]

Мультяшка,поясни,что именно надо?Какая пробрамма?Что надо?

нужно написать 2 программы в паскале. Одна на процедуры, другая на функции.
Задача сама написана.

[Krjuger]

function mult(var b:array of integer) :integer;
var i,p:integer;
begin
  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];
  mult:=p;
end;
begin
vvodc;
vvod;
vivod;
x:=mult(b);
writeln(x);
readln;
end.

Ну еще в самом начале обьяви,что X это integer.а остальное в функции переделывать-бред полнейший.

[sheka]

x:=mult(b);
writeln(x);

Ну еще в самом начале обьяви,что X это integer.

зачем х ?

writeln(mult(b));

[Krjuger]

Я думаю человку,задающему такие вопросы,твоя запись добавит лишних,конешно же ты прав,но теперь обьясняй ей каким образом мы выводим на экран значение нашей функции.И кстати обьясни заодно почему мы процедуру просто вызываем,а для функции работаем с ее значением.