Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.10.2012
Сообщений: 14

Определить самый лёгкий вагон в составе В1, его номер

15.10.2012, 19:38. Показов 1270. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
даны сведения о массивах 15 вагонов состава-массив А[10](10..80 т)
1)определите есть ли в А[10] вагоны с массой >=Q (заданной),вывести их число N и порядковые номера
2)сформировать из них новый состав-массив B[N],определить его общую массу,вывести список
3)сформировать массив В1 из вагонов с массой <Q,вывести его список и общую массу
4)определить самый лёгкий вагон в составе В1,его номер.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.10.2012, 19:38
Ответы с готовыми решениями:

Определить самый тяжёлый вагон состава, его порядковый номер
Я 0 в паскале а в универе задали вот такую задачу срочно нужно сделать! знающие люди помогите пожалуйста! ЗАДАЧА: Даны сведения о...

Определить самый лёгкий груз, его порядковый номер
Даны сведения о массах 60 грузов-Массив А. 1) Определить самый лёгкий груз, его порядковый номер. 2)Сформулировать новый массив В из...

Определить самый лёгкий вагон в составе
данны сведение о массах 15 вагонов - массив А (от 10 до 80 тонн): 1. Определить есть ли в А вагоны с массой &gt;=Q(заданной), вывести их...

4
Дзæуджыхъæу
 Аватар для domovou2.0
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.10.2012, 20:03
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
type
    mas=array [1..100] of integer;
var
   a,b,b1:mas;
   i,s,d,i1,i2,s2,leg:integer;
begin
writeln('Введите заданную массу');
readln(d);
i1:=0;
s:=0;
s2:=0;
for i:=1 to 10 do
    begin
    a[i]:=random(71)+10;
    if a[i]>=d then
              begin
              inc(i1);
              writeln('Вагон больше заднной массы ',a[i],'  ',i);
              b[i1]:=a[i];
              s:=s+b[i1];
              end
    else
             begin
              inc(i2);
              b1[i2]:=a[i];
              s2:=s2+b1[i2];
              end
    end;
writeln('B:');
for i:=1 to i1 do
    write(b[i]:3);
leg:=b[1];
writeln(#13,'B1:');;
for i:=1 to i2 do
    begin
    write(b1[i]:3);
    if b1[i]<leg then
       leg:=b1[i];
    end;
writeln(#13,'Самый легкий вагон в составе В1 ',leg);
end.
1
0 / 0 / 0
Регистрация: 15.10.2012
Сообщений: 14
17.10.2012, 00:13  [ТС]
Спасибо,а можно ещё блок-схему изобразить ,если сможете?
0
Дзæуджыхъæу
 Аватар для domovou2.0
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
17.10.2012, 10:43
Как то так:
Вложения
Тип файла: doc 0101.doc (40.5 Кб, 27 просмотров)
2
0 / 0 / 0
Регистрация: 07.10.2016
Сообщений: 4
10.10.2016, 19:45
domovou2.0, Подскажите, пожалуйста, как написать программу и составить блок схему :
Даны сведения о массах 15 вагонов состава - массив А [15].
1) Определить число вагонов N1 c массой>60 т и их суммарную массу, число N2 вагонов с массой <=60 т и их суммарную массу.
2) Сформировать соответственно массивы B1 [N1] и B2 [N2].
3) Определить самый тяжёлый вагон в массиве B1 и его порядковый номер.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.10.2016, 19:45
Помогаю со студенческими работами здесь

Определить самый тяжелый вагон состава, его порядковый номер
Даны сведения о массах вагонов состава - массив А . 1) определить самый тяжелый вагон состава, его порядковый номер, самый легкий вагон,...

Определить самый лёгкий груз, его порядковый номер
Даны сведения о массах 60 грузов - массив а. Определить самый лёгкий груз, его порядковый номер. Сформулировать новый массив b из...

Определить самый лёгкий груз в массиве В1, его номер
Даны сведения о массах 16 грузов - массив А . 1) Сформировать массив В из грузов с массой &gt;4 т. Общая масса грузов В не должна...

Определить вагон с максимальной массой и его порядковый номер
Даны сведения о массах 60 вагонов - массив А 1) Определить вагон с максимальной массой и его порядковый номер. 2) Определить общую...

Определить вагон с минимальной массой, его порядковый номер
Дан массив масс вагонов до 80 т А 1) определить вагон с минимальной массой , его порядковый номер 2) определить число вагонов N1,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru