Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Массивы 
:(
    Опции темы
СМЕХ
Дата 16.12.2006, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
ПОДСКАЖИТЕ что не правильно в задаче

Вот задание
Даны сведения о массах 60 грузов  – массив А [60]
1)    определить самый легкий груз, его порядковый номер.
2)    Сформировать новый массив В [I] из грузов, имеющих массу менее  5 т.
3)    Определить их суммарную массу.
4)    Определить число грузов массива  А, имеющих массу 8 т, их порядковые номера.

Код

program z2;
uses crt;
const n=6;
var A,B:array[1..n] of integer;
nmin,i,S,S8,i5:integer;
min:real;

begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite maccy ',i,' - go gruza');
readln(A[i]);
end;

min:=A[i];
nmin:=1;
for i:=1 to n do
if A[i]<min then
begin
min:=A[i];
nmin:=i;
writeln('camii legkii gruz vecit ',min:3:2);
writeln('ego nomer ',nmin);
end;

i5:=0;
for i:=1 to n do begin
if A[i]<5 then
begin
i5:=i5+1;
B[i5]:=A[i];
for i:=1 to i5 do
write('novii massiv iz macc <5t ',B[i]);
for i:=1 to n do
writeln(i5);
end;
end;

begin
S:=0;
S:=S+B[i];
writeln('macca vsex gruzov-> ',S);
end;

begin
for i:=1 to n do
if A[i]=8 then begin
S8:=0;
S8:=S8+1;
writeln('gruzov maccoi 8t',S8);
writeln('igo nomer-> ',i);
end;
end;
end.



ВЫВОДИТ НОВЫЙ МАССИВ С ОШИБКОЙ 
PM MAIL   Вверх
Rodman
Дата 16.12.2006, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Код

i5:=0;
for i:=1 to n do begin
if A[i]<5 then
begin
 i5:=i5+1;
 B[i5]:=A[i];
end;

for i:=1 to i5 do
write('novii massiv iz macc <5t ',B[i]);



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
СМЕХ
Дата 16.12.2006, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
все равно не работает

Код

vvedite maccy 1 - go gruza
1
vvedite maccy 2 - go gruza
2
vvedite maccy 3 - go gruza
4
vvedite maccy 4 - go gruza
5
vvedite maccy 5 - go gruza
6
vvedite maccy 6 - go gruza
4
camii legkii gruz vecit 1.00
ego nomer 1
novii massiv iz macc <5t 1novii massiv iz macc <5t 1novii massiv iz macc <5t 2no
vii massiv iz macc <5t 1novii massiv iz macc <5t 2novii massiv iz macc <5t 4novi
i massiv iz macc <5t 1novii massiv iz macc <5t 2novii massiv iz macc <5t 4novii
massiv iz macc <5t 4novii massiv iz macc <5t 1novii massiv iz macc <5t 2novii ma
ssiv iz macc <5t 4novii massiv iz macc <5t 4novii massiv iz macc <5t 4novii mass
iv iz macc <5t 1novii massiv iz macc <5t 2novii massiv iz macc <5t 4novii massiv
 iz macc <5t 4novii massiv iz macc <5t 4novii massiv iz macc <5t 4macca vsex gru
zov-> 4
PM MAIL   Вверх
Kann
Дата 17.12.2006, 02:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.12.2006

Репутация: нет
Всего: нет
Код

program z2;
uses crt;
const n=6;
var A,B:array[1..n] of integer;
nmin,i,S,S8,i5:integer;
min:real;
begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite maccy ',i,' - go gruza');
readln(A[i]);
end;
min:=A[1];
nmin:=1;
for i:=2 to n do
if A[i]<min then
begin
min:=A[i];
nmin:=i;
end;
writeln('camii legkii gruz vecit ',min:3:2);
writeln('ego nomer ',nmin);
i5:=0;
for i:=1 to n do
if A[i]<5 then
begin
i5:=i5+1;
B[i5]:=A[i];
end;
writeln('novii massiv iz macc <5t ');
for i:=1 to i5 do
write(b[i],' ');
writeln;
S:=0;
for i:=1 to i5 do
S:=S+B[i];
writeln('macca vsex gruzov-> ',S);
for i:=1 to n do
if A[i]=8 then
begin
S8:=0;
S8:=S8+1;
writeln('gruzov maccoi 8t ',S8);
writeln('igo nomer-> ',i);
end;
end.
PM MAIL ICQ   Вверх
СМЕХ
Дата 17.12.2006, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
тажа фигня
Код

novii massiv iz macc <5t 000000008001130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 000000008002130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 00
000008003130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 000000008004130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 0novii massiv iz macc <5t 000000008005130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0000
0008006130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0nov
i massiv iz macc <5t 000000008007130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0nov
i massiv iz macc <5t 0novii massiv iz macc <5t 800000008008130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
vii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0nov
i massiv iz macc <5t 0novii massiv iz macc <5t 8novii massiv iz macc <5t 000000
08009130001
novii massiv iz macc <5t 0novii massiv iz macc <5t 0novii massiv iz macc <5t 0n
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1100 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.