Суббота, 04 Апреля 2020, 05:43

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Turbo Pascal. Массивы (Помогите решить задачку)
Turbo Pascal. Массивы
ReSeRДата: Среда, 17 Октября 2012, 19:00 | Сообщение # 1
постоянный участник
Сейчас нет на сайте
В универе задали задачку. Помогите решить biggrin


FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
LunarPixelДата: Среда, 17 Октября 2012, 19:18 | Сообщение # 2
старожил
Сейчас нет на сайте
for i:=1 to 16 do begin
if (i mod 2)=0 then begin
P:=P*Z[i];
S:=S+Z[i];
end;
end;

for i:=1 to 16 do begin
K[i]:=Z[i]*(exp((i*S)*ln(1/3));
end;

Ну как-то так.. smile


ReSeRДата: Среда, 17 Октября 2012, 19:21 | Сообщение # 3
постоянный участник
Сейчас нет на сайте
LunarPixel, спасибо щас попробую, в паскале ввести

FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
МистерИксДата: Среда, 17 Октября 2012, 19:23 | Сообщение # 4
Текстовик
Сейчас нет на сайте
Quote (LunarPixel)
if (Z[i] mod 2)=0

Нечетные места же. Значит, просто if (i mod 2)=0
Quote (LunarPixel)
for i=0 to 16 do begin

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



Три Пути - текстовый квест
Not Quite Heroes - пародийная jRPG в разработке
LunarPixelДата: Среда, 17 Октября 2012, 19:26 | Сообщение # 5
старожил
Сейчас нет на сайте
МистерИкс, верно говоришь, поправил. Не в состояние думать сейчас. happy

ReSeRДата: Среда, 17 Октября 2012, 19:28 | Сообщение # 6
постоянный участник
Сейчас нет на сайте
Помогите ещё одну задачку, кому не трудно))) biggrin

Даны сведения о возрасте студентов группы V[20].
1) Определить самого молодого и самого старшего из студентов, их порядковые номера.
2) Определить средний возраст студентов группы.
3) Определить сколько студентов имеют возраст более 18.
4) Сформировать из них новый массив V1

P.S всей общагой решаем)))


FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)


Сообщение отредактировал ReSeR - Среда, 17 Октября 2012, 19:30
RumataДата: Среда, 17 Октября 2012, 19:37 | Сообщение # 7
почетный гость
Сейчас нет на сайте
Ты, конечно, почти наверняка начнёшь сейчас агриться, мол, ты просто спросил, кому не трудно, все дела, но я всё равно спрошу: чему ты так научишься? Это простые задачи, если ты их не можешь решить, что будет дальше?

Quote (LunarPixel)
for i:=0 to 16 do begin

Таким макаром 17 элементов выходит, а не 16, как в условии, разве нет?



МистерИксДата: Среда, 17 Октября 2012, 19:37 | Сообщение # 8
Текстовик
Сейчас нет на сайте
Quote (ReSeR)
Определить самого молодого и самого старшего из студентов, их порядковые номера.

for i:=1 to 20 do
begin
if V[i] < molod or molod = 0 then molod:=V[i];
if V[i] > star then star:=V[i];
end;

Quote (ReSeR)
2) Определить средний возраст студентов группы.

for i:=1 to 20 do
begin
sred:=sred+V[i];
end;
sred:=sred/20;

Quote (ReSeR)
3) Определить сколько студентов имеют возраст более 18.

for i:=1 to 20 do
begin
if V[i]>18 then kol:=kol+1;
end;



Три Пути - текстовый квест
Not Quite Heroes - пародийная jRPG в разработке
LunarPixelДата: Среда, 17 Октября 2012, 19:46 | Сообщение # 9
старожил
Сейчас нет на сайте
Rumata, тсс.. пускай хоть это сам сделает. Ну а так, ты прав. smile

ReSeRДата: Среда, 17 Октября 2012, 20:11 | Сообщение # 10
постоянный участник
Сейчас нет на сайте
помогите последнюю задачу:


FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)


Сообщение отредактировал ReSeR - Среда, 17 Октября 2012, 20:13
anton-garДата: Среда, 17 Октября 2012, 20:19 | Сообщение # 11
WEBmaster
Сейчас нет на сайте
Они же однотипные. На каком вы курсе учитесь?

ReSeRДата: Среда, 17 Октября 2012, 20:20 | Сообщение # 12
постоянный участник
Сейчас нет на сайте
anton-gar, 1 курс) Мы тут все тугие по этой теме biggrin

FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
anton-garДата: Среда, 17 Октября 2012, 20:23 | Сообщение # 13
WEBmaster
Сейчас нет на сайте
А сто за факультет?

ReSeRДата: Среда, 17 Октября 2012, 20:36 | Сообщение # 14
постоянный участник
Сейчас нет на сайте
anton-gar, МИИТ. Эксплуатация железнодорожного транспорта)) поможете решать задачку? xD

FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
MR_BorgДата: Четверг, 18 Октября 2012, 18:14 | Сообщение # 15
участник
Сейчас нет на сайте
Вроде так, давно не писал на Паскале biggrin
или
скачать



Изучаю C++ попутно пишу игру.

Сообщение отредактировал MR_Borg - Четверг, 18 Октября 2012, 18:15
DinarosДата: Четверг, 18 Октября 2012, 18:26 | Сообщение # 16
почти ветеран
Сейчас нет на сайте
МистерИкс, это же какие переменные должны быть? molod, star: integer;
МистерИксДата: Четверг, 18 Октября 2012, 18:48 | Сообщение # 17
Текстовик
Сейчас нет на сайте
Dinaros, думаешь, он сам не догадается объявить переменные?
пика-пикабу-у-у



Три Пути - текстовый квест
Not Quite Heroes - пародийная jRPG в разработке
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Turbo Pascal. Массивы (Помогите решить задачку)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2020 Рейтинг