Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Love_Love_Love
0 / 0 / 0
Регистрация: 21.01.2010
Сообщений: 4
1

Опоздал ли пассажир на поезд?

21.01.2010, 13:20. Просмотров 719. Ответов 9
Метки нет (Все метки)

Помогите, пожалуйста, с экзаменом!!! ((((((((((((((((

16. Поезд прибывает на станцию в a часов и b минут, убывает в c часов и d минут. Пассажир пришел на вокзал в x часов и y минут. Опоздал ли он на поезд? ( 0 ≤ a,c,x ≤ 23, 0 ≤ b,d,y ≤ 59)
17. В заданном целочисленном векторе Vn определить, сколько раз повторяется в его элементах заданная цифра k.
18. Отыскать центр тяжести заданного вектора Vn – такой его элемент, для которого сумма элементов слева и справа от него одинакова или наиболее близка к одинаковой (n нечетно).
19. В заданном векторе Vn найти расстояние (разность индексов) между минимальным и максимальным его элементами.
20. В заданном векторе Vn , состоящем из нулей и единиц, поменять местами нули и единицы, стоящие рядом.
21. Удалить из заданного целочисленного вектора Vn все повторяющиеся элементы, заменив их нулями и оставив только их первые вхождения.
22. В заданном целочисленном векторе Vn имеются только два одинаковых элемента. Найти их.
23. В заданном целочисленном векторе Vn переписать сначала все нули, затем все положительные элементы, затем все отрицательные элементы в порядке их следования.
24. В заданном целочисленном массиве Anm обнулить строки и столбцы, в которых находятся максимальный и минимальный элементы массива.
25. В заданном целочисленном массиве Anm сдвинуть все столбцы на один шаг вправо (последний столбец – на первое место).
26. В заданном целочисленном массиве Anm сдвинуть все строки на одну вверх (первая строка - на последнее место).
27. В заданном целочисленном массиве Anm поменять местами k-ю и i-ю строки.
28. В заданном целочисленном массиве Anm поменять местами k-й и i-й столбцы.
29. В заданном целочисленном векторе Vn определить количество перемен знаков элементов.
30. В заданном целочисленном векторе Vn определить сумму нечетных элементов, стоящих на четных местах, и произведение четных элементов, стоящих на нечетных местах.
31. Массив Ann состоит только из нулей и единиц. Найти в нем массив Bmm максимального размера, состоящий только из единиц.
32. В заданном целочисленном массиве Anm поменять местами строки и столбцы, содержащие минимальный и максимальный элементы (строку со строкой и столбец со столбцом).
33. Задана целочисленная матрица Rnn с расстояниями между n городами. Определить номера городов с минимальным и максимальным расстояниями между ними.
34. В заданном целочисленном массиве Ann переставить местами строки и столбцы так, чтобы элементы главной диагонали шли по возрастанию. Если такое невозможно – вывести сообщение об этом.
35. В заданном целочисленном массиве Ann поменять местами k-ю строку и m-й столбец.
36. В заданном целочисленном массиве Ann поменять местам главную и побочную диагонали.
37. Заполнить вектор Vn по следующему алгоритму: vi = i! (i = 1…n), используя только один цикл.
38. В заданном целочисленном массиве Ann перевернуть главную и побочную диагонали (поплавок).
39. В заданном целочисленном массиве Ann найти минимальный и максимальный элементы побочной диагонали и поменять их местами.
40. Заполнить вектор Vn по следующему алгоритму: очередной элемент вектора равен сумме элементов соответствующей строки заданного целочисленного массива Ann , образующих “песочные часы”, включая элементы главной и побочной диагоналей.
41. Повернуть заданный целочисленный массив Ann на 900 по часовой стрелке:
1 2 3 7 4 1
4 5 6 → 8 5 2
7 8 9 9 6 3
42. Заданы два целочисленных массива: Anm и Bmn , причем n<m (m, n – четные). Сложить их крест-накрест, поместив результат в массив Cnn:

1 2
1 2 3 4 + 3 4 = 5 7
5 6 7 8 5 6 11 13
7 8
43. Заданы два целочисленных массива: Ann и Bmm , причем n<m (m, n –
четные). Вставить первый массив внутрь второго по центру, заменив элементы последнего суммами соответствующих элементов исходных массивов.
44. Заполнить переднюю грань кубического массива Annn числами от 1 до n2 и вывести ее на экран.
45. Поменять местами соответствующие элементы передней и правой граней заданного целочисленного кубического массива Annn. Вывести на экран эти грани до и после обмена.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 13:20
Ответы с готовыми решениями:

Поезд отправляется в h1:m1, время в пути h2:m2. Во сколько прибывает поезд?
Есть код, решение простой задачки Поезд отправляется в h1:m1, время в пути h2:m2. Во сколько...

Задача про поезд: будет ли поезд на платформе?
помогите с задачей: поезд прибывает на станцию в а часов b минут и отправляется в с часов d минут....

Вывести "Пассажирский поезд" или "Грузовой поезд"
Как сделать, чтобы при &quot;passenger.Time&quot; выводилось &quot;Пассажирский поезд...&quot;, а при &quot;freight.Time&quot;...

Счастливый пассажир
Пассажир считается счастливым, если его текущий и предыдущий билеты на поездку в транспорте...

Структура: Пассажир
Не могу разобраться в структурах . Помогите сделать программу. Нужно создать структуру...

9
Drongo
Админю немножко :)
125 / 114 / 25
Регистрация: 05.01.2009
Сообщений: 889
21.01.2010, 13:48 2
Не, ну это уже слишком))
Врятли кто будет столько решать... попробуй написать во фрилансе
1
antoine_vix
4 / 4 / 0
Регистрация: 31.05.2009
Сообщений: 69
21.01.2010, 15:07 3
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
это на 27-такой же смысл на 28 задачи
Program perestanovka ;
uses wincrt;
const b=5;
  var n,m:integer;
       a:array[1..b,1..b] of integer;
       i,j:integer;
Procedure Zamena;
   var j,temp:integer;
   begin
    for j:=1 to b do
     begin
  temp:=a[n,j];
  a[n,j]:=a[m,j];
  a[m,j]:=temp;
 end;
for i:=1 to b do
 begin
 writeln;
 for j:=1 to b do
   write(a[i,j],' ');
  end;
end;
 
  begin
  writeln('ââåäèòå Г*îìåðГ* ñòðîê, êîòîðûå õîòèòå ïîìåГ*ГїГІГј');
  readln(n);
  readln(m);
    randomize;
 for i:=1 to b do
 begin
 writeln;
  for j:=1 to b do
  begin
   a[i,j]:=random(10);
   write(a[i,j],' ');
           end;
          end;
           writeln;
         Zamena;
          end.
1
Жолдас
LegenD
45 / 44 / 15
Регистрация: 10.12.2009
Сообщений: 109
21.01.2010, 15:11 4
Цитата Сообщение от Love_Love_Love Посмотреть сообщение
30. В заданном целочисленном векторе Vn определить сумму нечетных элементов, стоящих на четных местах, и произведение четных элементов, стоящих на нечетных местах.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Zadanie;
Uses crt;
Type t=array [1..10] of integer;
Var a:t; i,sum,p:integer;
Begin
Write('vvedite massvi');
for i:=1 to 10 do read(a[i]);
Begin
sum:=0;p:=1;
for i:=1 to 10 do
If (a[i] mod 2=1) and (i mod 2=0) then sum:=sum+a[i];
If (a[i] mod 2=0) and (i mod 2=1) then p:=p*a[i];
end;
Writeln('Summa: ',sum);
Write('Proizvedenie: ',p);
end.
2
21.01.2010, 15:11
vad2211
118 / 118 / 41
Регистрация: 21.12.2009
Сообщений: 194
21.01.2010, 15:22 5
17.
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
program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   k,i,n,b:integer;
begin
 clrscr;
 randomize;
 repeat
  write('ГђГ*çìåðГ*îñòü: ');
  readln(n);
 until n in [1..100];
 writeln('ГЊГ*Г±Г±ГЁГў');
 for i:=1 to n do
  begin
   a[i]:=random(21)-10;
   write(a[i]:4);
  end;
 writeln;
 write('k=');
 readln(k);
 b:=0;
 for i:=1 to n do
  if a[i]=k then inc(b);
 writeln('Г–ГЁГґГ°Г* ',k,' âñòðå÷Г*ГҐГІГ±Гї ',b,' Г°Г*Г§(a)');
 readln;
end.
Добавлено через 6 минут
19.
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
program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   i,n,max,min:integer;
begin
 clrscr;
 randomize;
 repeat
  write('ГђГ*çìåðГ*îñòü: ');
  readln(n);
 until n in [1..100];
 writeln('Âåêòîð Vn');
 for i:=1 to n do
  begin
   a[i]:=random(21)-10;
   write(a[i]:4);
  end;
 writeln;
 max:=1; min:=1;
 for i:=1 to n do
  begin
   if a[i]>a[max] then max:=i;
   if a[i]<a[min] then min:=i;
  end;
 writeln('min=',a[min],' [',min,']');
 writeln('max=',a[max],' [',max,']');
 if max>min then writeln('ГђГ*ññòîÿГ*ГЁГҐ - ',max-min)
  else
 if min>max then writeln('ГђГ*ññòîÿГ*ГЁГҐ - ',min-max)
  else
 if min=max then writeln('ГђГ*ññòîÿГ*ГЁГҐ - 0');
 readln;
end.
2
antoine_vix
4 / 4 / 0
Регистрация: 31.05.2009
Сообщений: 69
21.01.2010, 15:36 6
все работает ))) спасибо )
0
Иосифф
0 / 0 / 0
Регистрация: 21.01.2010
Сообщений: 8
21.01.2010, 16:21 7
Какой то тут поиск "хороший", помогите найти решения с 30_ой задачи и далее,плиз...
0
vad2211
118 / 118 / 41
Регистрация: 21.12.2009
Сообщений: 194
21.01.2010, 17:27 8
30.
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
program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   i,n,s,p,proverka:integer;
begin
  clrscr;
  randomize;
  write('ГђГ*çìåðГ*îñòü âåêòîðГ*: ');
  readln(n);
  writeln('ÔîðìèðîâГ*Г*ГЁГҐ âåêòîðГ*...');
  for i:=1 to n do
   begin
    a[i]:=random(20)-9;
    write(a[i]:4);
   end;
  s:=0; p:=1; proverka:=0;
  for i:=1 to n do
   if (a[i] mod 2<>0) and (i mod 2=0) then s:=s+a[i];
  for i:=1 to n do
   if (a[i] mod 2=0) and (i mod 2<>0) then
    begin
     p:=p*a[i];
     proverka:=1;
    end;
  if proverka=0 then p:=0;
  writeln;
  writeln('ÏðîèçâåäåГ*ГЁГҐ Г·ГҐГІГ*ûõ ýëåìåГ*òîâ Г*Г* Г*ГҐГ·ГҐГІГ*ûõ ìåñòГ*Гµ: ',p);
  writeln('ÑóììГ* Г*ГҐГ·ГҐГІГ*ûõ ýëåìåГ*òîâ Г*Г* Г·ГҐГІГ*ûõ ìåñòГ*Гµ: ',s);
  readln;
end.
1
antoine_vix
4 / 4 / 0
Регистрация: 31.05.2009
Сообщений: 69
22.01.2010, 11:47 9
блин, надо ещё...
0
Saplex
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 3
02.03.2010, 17:14 10
24. В заданном целочисленном массиве Anm обнулить строки и столбцы, в которых находятся максимальный и минимальный элементы массива.


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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
uses wincrt;
const
n=5;m=8;a_min=1;a_max=9;
type
matrix=array [1..n,1..m]  of integer;
var
a:matrix;
imin,imax,jmin,jmax:word;
procedure form_matr(n,m,min,max:integer;var mat:matrix);
var i,j:word;
begin
for i:=1 to n do
    for j:=1 to m do
    begin
      mat[i,j]:=random(max-min)+min;
    end;
end;
procedure print_matr(n,m:integer;mat:matrix);
var i,j:word;
begin
for i:=1 to n do
begin
  for j:=1 to m do
    write(mat[i,j]:2);
  writeln;
end;
end;
function i_min(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
min:integer;
begin
k:=1;
min:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]<min then
      begin
        min:=mat[i,j];
        k:=i;
      end;
i_min:=k;
end;
function j_min(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
min:integer;
begin
k:=1;
min:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]<min then
      begin
        min:=mat[i,j];
        k:=j;
      end;
j_min:=k;
end;
function i_max(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
max:integer;
begin
k:=1;
max:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]>max then
      begin
        max:=mat[i,j];
        k:=i;
      end;
i_max:=k;
end;
function j_max(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
max:integer;
begin
k:=1;
max:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]>max then
      begin
        max:=mat[i,j];
        k:=j;
      end;
j_max:=k;
end;
procedure zero(n,m:integer;imn,jmn,imx,jmx:word;var mat:matrix);
var i,j:word;
begin
  for i:=1 to n do
    for j:=1 to m do
      if (imn=i)or(imx=i)or(jmn=j)or(jmx=j) then
        mat[i,j]:=0;
end;
begin
randomize;
writeln('Matrix A:');
form_matr(n,m,a_min,a_max,a);
print_matr(n,m,a);
writeln;
imin:=i_min(n,m,a);
imax:=i_max(n,m,a);
jmin:=j_min(n,m,a);
jmax:=j_max(n,m,a);
writeln('min=a(',imin,',',jmin,')  max=a(',imax,',',jmax,')');
writeln;
zero(n,m,imin,jmin,imax,jmax,a);
print_matr(n,m,a);
end.
0
02.03.2010, 17:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2010, 17:14

Счастливый пассажир
Пассажир считается счастливым, если его текущий и предыдущий билеты на поездку в транспорте...

поезд
Поезд прибывает на станцую в a часов b минут и отправляется в c часов d минут. Пассажир прибыл на...

Пассажирский поезд
Пассажирский поезд перегоняет товарный состав, а через некоторое время движется обратно, при этом...


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

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

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