Массив.Задача про банки.

@Армейский Дьявол · Регистрация: 13.05.2009

Студворк — интернет-сервис помощи студентам

У вас есть доллары, вы хотите их обменять на рубли. Есть информация купле-продажи в банках города. В городе N банка. Составить программу определяющию какой банк выгодней.

Решал 3 пары, так и не сделал

понял, что задача по типу нахождения максимума в массиве, но как эту задачу воспрлизвести, так и не понял, помогите пожалуйста

@odip · 17.09.2009, 23:32

Выгоден тот банк, где курс покупки у тебя долларов самый максимальный.

@Puporev · 17.09.2009, 23:43

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
uses crt;
const n=10;
var b:array[1..n] of real;
    i,imx:byte;
    mx:real;
begin
clrscr;
randomize;
writeln('Инфомация о стоимости покупки долларов в банках:');
writeln('Номера банков:');
for i:=1 to n do write(i:7);
writeln;
writeln('Курс покупки:');
for i:=1 to n do
 begin
  b[i]:=3*random+30;
  write(b[i]:7:2);
 end;
writeln;
mx:=b[1];imx:=1;
for i:=1 to n do
if b[i]>mx then
 begin
  mx:=b[i];
  imx:=i;
 end;
write('Выгоднее банк № ',imx);
readln
end.

@Армейский Дьявол · 03.10.2009, 12:08 **[ТС]**

Сообщение от Puporev

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
uses crt;
const n=10;
var b:array[1..n] of real;
    i,imx:byte;
    mx:real;
begin
clrscr;
randomize;
writeln('Инфомация о стоимости покупки долларов в банках:');
writeln('Номера банков:');
for i:=1 to n do write(i:7);
writeln;
writeln('Курс покупки:');
for i:=1 to n do
 begin
  b[i]:=3*random+30;
  write(b[i]:7:2);
 end;
writeln;
mx:=b[1];imx:=1;
for i:=1 to n do
if b[i]>mx then
 begin
  mx:=b[i];
  imx:=i;
 end;
write('Выгоднее банк № ',imx);
readln
end.

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

ошибки выходят

@Страдалецъ · 03.10.2009, 12:28

Замените блок:

Pascal
1
2
3
4
5
for i:=1 to n do
 begin
  b[i]:=3*random+30;
  write(b[i]:7:2);
 end;

на это:

Pascal
1
2
for i:=1 to n 
do Write('Денежка:');  ReadLn(b[i]);

ПС: Я надеюсь автор на меня не обидиться

@Армейский Дьявол · 04.10.2009, 01:55 **[ТС]**

заменил ) не работает

@lexus_ilia · 04.10.2009, 02:49

ну вообще-то следовало заменить на блок где есть begin и end, т.к. в цикле выполняется более одной строки кода:

Pascal
1
2
3
4
5
for i:=1 to n do
 begin
  Write('Денежка:');
  ReadLn(b[i])
 end;

@Армейский Дьявол · 04.10.2009, 11:28 **[ТС]**

я думаю, ещё надо убрать randomize или это особого значения не имеет?

@lexus_ilia · 04.10.2009, 11:33

Правильно, если вы не собираетесь использовать random, то следовало бы убрать.

@Армейский Дьявол · 24.10.2009, 10:41 **[ТС]**

А как всё что получилось, занести в txt файл?

@Puporev · 24.10.2009, 10:43

Армейский Дьявол, А что получилось и что занести?

@Армейский Дьявол · 24.10.2009, 10:53 **[ТС]**

У меня в задании написано, рез-ты, а также исходные данные, занести в текстовый файл. Я так понял, сначала получаешь рез-ты из программы с банками, потом создаешь в этой же программе текстовый файл и в него заносятся исходные данные и рез-ты.

Добавлено через 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
var b:array [1..10] of integer;
    i,imx:byte;
    mx:integer;
    begin
writeln ('vvodim kurs ');
for i:= 1 to 10 do
readln (b[i]);
writeln ('kursi bankov');
for i:= 1 to 10 do
write (b[i]:7);
writeln;
begin
writeln ('nomera bankov');
for i:= 1 to 10 do
write (i:7);
writeln;
end;
mx:=b[1];
imx:=1;
for i:= 1 to 10 do
if b[i]>mx then
begin
mx:=b[i];
imx:=i;
end;
write ('vigodnee bank ',imx);
readln;
end.

@Puporev · 24.10.2009, 12:23

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
var b:array [1..10] of integer;
    i,imx:byte;
    mx:integer;
    f:text;
begin
assign(f,'banki.txt');
rewrite(f);
writeln ('vvodim kurs 10 bankov ');
for i:= 1 to 10 do
readln (b[i]);
writeln ('kursi bankov');
writeln (f,'kursi bankov');
for i:= 1 to 10 do
 begin
  write (b[i]:7);
  write (f,b[i]:7);
 end;
writeln;
writeln(f,'');
begin
writeln ('nomera bankov');
writeln (f,'nomera bankov');
for i:= 1 to 10 do
 begin
  write (i:7);
  write (f,i:7);
 end;
writeln;
writeln(f,'');
end;
mx:=b[1];
imx:=1;
for i:= 1 to 10 do
if b[i]>mx then
begin
mx:=b[i];
imx:=i;
end;
write ('vigodnee bank ',imx);
write (f,'vigodnee bank ',imx);
close(f);
readln;
end.

@Армейский Дьявол · 25.10.2009, 23:07 **[ТС]**

Почему выводит ток один столбец?

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
var
mas:array [1..10,1..10] of integer;
p,k,x,j,i,max,z,n:integer;
f: text;
begin
writeln ('vvdeite x');
readln (x);
assign (f,'kolt010.txt');
rewrite(f);
for i:= 1 to x do
for j:=1 to x do
begin
write ('mas[',i,',',j,']=');
readln (mas[i,j]);
end;
writeln ('nachalni massiv');
writeln(f,'nachalni massiv');
for i:= 1 to x do
begin
for j:= 1 to x do
write (mas[i,j]:3);
write (f,mas[i,j]:3);
writeln;
writeln (f,'');
end;
max:=mas[1,1];
p:=1;
for k:= 1 to x do
if mas[k,k]>max then
begin
max:=mas[k,k];
p:=k;
end;
writeln ('vvedite nomer stroki');
readln (n);
for j:= 1 to x do
begin
z:=mas[n,j];
mas[n,j]:=mas[p,j];
mas[p,j]:=z;
end;
writeln ('konechni massiv:  ');
writeln (f,'konechni massiv');
for i:= 1 to x do
begin
for j:=  1 to x do
write (mas[i,j]:3);
write (f,mas[i,j]:3);
writeln;
writeln (f,'');
end;
if p=n then
begin
 writeln ('mas ne izmenilsya, tk  max diagonali nahoditsya v stroke n');
writeln (f,'massiv ne izmenilsya');
end;
close (f);
readln;
end.

@stasyano · 25.10.2009, 23:12

мне тоже похожую задали, аналогично не выводит весь двумерный массив(

@Puporev · 26.10.2009, 07:08

Потому что если в цикле обрабатывается более 1 оператора, их нужно брать в скобки begin...end;
Иначе будет выведено только последнее действие цикла, естественно 1 раз.

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
uses crt;
const nmax=10;
var mas:array [1..nmax,1..nmax] of integer;
    p,k,x,j,i,max,z,n:integer;
    f: text;
begin
clrscr;
repeat
writeln ('vvdeite x, ne bolee ',nmax);
readln (x);
until x in [1..nmax];
assign (f,'kolt010.txt');
rewrite(f);
for i:= 1 to x do
for j:=1 to x do
  begin
    write ('mas[',i,',',j,']=');
    readln (mas[i,j]);
  end;
writeln ('nachalni massiv');
writeln(f,'nachalni massiv');
for i:= 1 to x do
 begin
  for j:= 1 to x do
   begin
    write (mas[i,j]:3);
    write (f,mas[i,j]:3);
   end;
  writeln;
  writeln (f,'');
 end;
max:=mas[1,1];
p:=1;
for k:= 1 to x do
if mas[k,k]>max then
 begin
  max:=mas[k,k];
  p:=k;
 end;
writeln('max elem na gl. diag=',max,' v stroke ',p);
writeln(f,'max elem na gl. diag=',max,' v stroke ',p);
repeat
writeln ('vvedite nomer stroki ot 1 do ',x);
readln (n);
until n in [1..x];
if p=n then
 begin
  writeln ('mas ne izmenilsya, tk  max diagonali nahoditsya v stroke n');
  writeln (f,'massiv ne izmenilsya');
 end
else
 begin
  for j:= 1 to x do
   begin
    z:=mas[n,j];
    mas[n,j]:=mas[p,j];
    mas[p,j]:=z;
   end;
  writeln ('konechni massiv:  ');
  writeln (f,'konechni massiv');
  for i:= 1 to x do
   begin
    for j:=1 to x do
     begin
      write (mas[i,j]:3);
      write (f,mas[i,j]:3);
     end;
    writeln;
    writeln (f,'');
   end;
 end;
close (f);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

@Армейский Дьявол 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 69

	Массив.Задача про банки. 17.09.2009, 23:17. Показов 2274. Ответов 15 Метки нет (Все метки) У вас есть доллары, вы хотите их обменять на рубли. Есть информация купле-продажи в банках города. В городе N банка. Составить программу определяющию какой банк выгодней. Решал 3 пары, так и не сделалпонял, что задача по типу нахождения максимума в массиве, но как эту задачу воспрлизвести, так и не понял, помогите пожалуйста 0

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	17.09.2009, 23:32
	Выгоден тот банк, где курс покупки у тебя долларов самый максимальный. 0

@Армейский Дьявол 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 69
	04.10.2009, 01:55 [ТС]
	заменил ) не работает 0

@Армейский Дьявол 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 69
	04.10.2009, 11:28 [ТС]
	я думаю, ещё надо убрать randomize или это особого значения не имеет? 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	04.10.2009, 11:33
	Правильно, если вы не собираетесь использовать random, то следовало бы убрать. 0

@Армейский Дьявол 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 69
	24.10.2009, 10:41 [ТС]
	А как всё что получилось, занести в txt файл? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	24.10.2009, 10:43
	Армейский Дьявол, А что получилось и что занести? 0

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
	25.10.2009, 23:12
	мне тоже похожую задали, аналогично не выводит весь двумерный массив( 0