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

Определить номера вагонов, в которых есть свободные места и найти количество свободных мест

09.12.2011, 14:26. Просмотров 1080. Ответов 5
Метки нет (Все метки)

В поезде 18 вагонов в каждом из которых 36 мест. Информация о проданных билетах хранится в двумерном массиве номера строк которых соответствуют номерам вагонов, а номера столбцов- номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае -0. Определить номера вагонов в которых есть свободные места и найти количество свободных мест.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2011, 14:26
Ответы с готовыми решениями:

Определить номера вагонов, в которых есть свободные места
Здравствуйте!!!Помогите пожалуйста решить программу...очень нужно... В поезде 18 вагонов, в каждом...

Определить количество и номера рядов, в каждом из которых есть четыре три подряд идущих свободных места
В зрительном зале 25 рядов, в каждом из которых 40 мест. Информация о проданных билетах хранится в...

По заданному номеру вагона распечатать номера свободных мест
В поезде 18 вагонов по 30 мест в каждом. Информация о проданных на поезд билетах хранится в...

Определить число свободных мест в любом из вагонов поезда
вотЪ: Заранее спасибки!Задание выкладывайте текстом.

5
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
09.12.2011, 15:00 2
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
Uses crt;
 
var a:array [1..50,1..50] of integer;
i,j,v,m,x:integer;
 
 
begin
   Write('Кол-во вагонов: ');readln(v);
   Write('Кол-во мест: ');readln(m);
   For i:=1 to v do
   begin
     for j:=1 to m do
     begin
     randomize;
     a[i,j]:=random(2);
     Write(a[i,j]:2);
     end;
   writeln;
   end;
   
   For i:=1 to v do
   begin
   x:=0;
     for j:=1 to m do
     if a[i,j]=0 then inc(x);
   if x>0 then writeln('В ',i,'-м вагоне ',x,' свободных мест.');
   end;
end.
1
0 / 0 / 0
Регистрация: 18.11.2011
Сообщений: 59
09.12.2011, 16:05  [ТС] 3
Спасибо большое
А не через random можно?
0
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
09.12.2011, 16:40 4
Цитата Сообщение от Анечка11 Посмотреть сообщение
А не через random можно?
Можно , только устанете вводить числа
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
Uses crt;
 
var a:array [1..50,1..50] of integer;
i,j,v,m,x:integer;
 
 
begin
   Write('Кол-во вагонов: ');readln(v);
   Write('Кол-во мест: ');readln(m);
   Writeln('1-занято, 0-свободно.');
 
   For i:=1 to v do
     for j:=1 to m do
     begin
     repeat
     Write(j,'-е место, ',i,'-го вагона: ');readln(a[i,j]);
     until (a[i,j]=1) or (a[i,j]=0);
     end;
   For i:=1 to v do
     begin
     for j:=1 to m do
     write(a[i,j]:2);
     writeln;
     end;
 
   For i:=1 to v do
   begin
   x:=0;
     for j:=1 to m do
     if a[i,j]=0 then inc(x);
   if x>0 then writeln('В ',i,'-м вагоне ',x,' свободных мест.');
   end;
end.
1
0 / 0 / 0
Регистрация: 18.11.2011
Сообщений: 59
09.12.2011, 18:10  [ТС] 5
WebMax 2.0,
спасибо огромное)))
0
17 / 16 / 4
Регистрация: 22.03.2018
Сообщений: 701
19.01.2019, 15:59 6
А как сделать так что бы если я хочу вести Введите номер вагона и он мне выбивал номер вагона 1 свободных билетов 10 к примеру ?
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
Uses crt;{В поезде 18 вагонов, в каждом из которых 36 мест. 
Информация о проданных на поезд билетах хранится в двумерном массиве, 
номера строк которых соответствуют номерам вагонов, а номера столбцов—номерам мест.
Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, 
в противном случае—0. Составить программу, определяющую число свободных мест в любом из вагонов поезда.}
const 
v = 18;
m = 36;
 
var
  a: array [1..50, 1..50] of integer;//Информация о проданных на поезд билетах хранится в двумерном массиве
  i, j, x: integer;  
  begin
    Writeln('Матрица из вагонов');
  for i := 1 to v do
  begin
    for j := 1 to m do
    begin
      randomize;
      a[i, j] := random(2);
      Write(a[i, j]:2);
    end;
    writeln;
  end;
  for i := 1 to v do
  begin
    x := 0;
    for j := 1 to m do
      if a[i, j] = 0 then inc(x);
    if x > 0 
    then 
     Writeln('Введите номер вагона');
     ReadLn(i);
    writeln('Вагон ', i, ' - Свободных мест в вагоне.', x);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2019, 15:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить число свободных мест в любом из вагонов поезда
В поезде 18 вагонов,в каждом из которых 36 мест. Информация о проданных на поезд билетах хранится в...

По информации о проданных билетах (матрица) определить число свободных мест в любом из вагонов
В поезде 18 вагонов в каждом из которых 36 мест. Информация о проданных на поезд билетах хоронится...

Информация о проданных билетах храниться в матрице. Определить количество свободных мест
Домашнее задание: двумерные массивы. 1. В поезде 12 вагонов, в каждом из которых 36 мест. Написать...

В поезде 18 вагонов в каждом из которых 36 мест
Решите очень нужно. В поезде 18 вагонов в каждом из которых 36 мест. Информация о проданных на...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.