Вывести информацию об указанном банке. Программа закрывается после ввода данных

@АленаК · Регистрация: 28.05.2014

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

Общая суть: в массиве хранятся данные о банках, нужно вывести информацию об указанном банке.
Программа завершается после того как ввожу название банка в поиске

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
program BankiKrd;
uses crt;
type bank = 
  record
    number_of_bank: string[32];
    name: string[64];
    license: string[32];
    adres: string[32];
    number_of_clients: integer;
    debt: integer;
  end;
  {записи о банках}
var banki: array [1..150] of bank;
    i: integer;
    a: string;
    b: string;
    m: string;
    n: integer;
    x: integer;
    z: integer;
    
procedure OUTPUT; {вывод}
begin
 write('Название банка: '); 
 write(banki[i].name); 
 write('  Ближайшая остановка: '); 
 writeln(banki[i].adres); 
 write('  Номер лицензии: '); 
 writeln(banki[i].license);
 write('Количество клиентов: '); 
 write(banki[i].number_of_clients);
 write('  Общий размер долга по вкладам: '); 
 writeln(banki[i].debt);
 writeln;
end;
 
begin
  writeln('Введите сведения о банках, не более 150 записей:'); {ввод сведений о банках}
  i := 0;
  repeat
    inc(i);
    writeln('Количество банков в базе ', i);
    write('Наименование? '); readln(banki[i].name);
    write('Лицензия? '); readln(banki[i].license);
    write('Ближайшая остановка? '); readln(banki[i].adres);
    write('Количество клиентов? '); readln(banki[i].number_of_clients);
    write('Размер долга? '); readln(banki[i].debt);
    write('Продолжить ввод данных? '); readln(a);
    if length(a) = 0 then a := 'Д';
  until (i >= 150) or (a[1] in ['n', 'N', 'н', 'Н']);
  writeln('Создано ', i, ' записей');
  {Здесь работа с записями}
 clrscr;
write('ПОИСК. Наименование банка: '); 
readln(m); 
writeln;
for i:=1 to N do begin {вывод по имени}
  if banki[i].name = m  then OUTPUT;
 end;
end.

@ZX Spectrum-128 · 14.01.2015, 11:15

readln; перед последним end попробуйте поставить.

Добавлено через 5 минут
И еще:

Pascal
1
procedure OUTPUT(i:integer); {вывод}

Pascal
1
2
3
for i:=1 to N do begin {вывод по имени}
  if banki[i].name = m  then OUTPUT(i);
 end;

@Puporev · 14.01.2015, 11:20

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
writeln('Введите сведения о банках, не более 150 записей:'); {ввод сведений о банках}
  n := 0;
  repeat
    inc(n);
    write('Наименование? '); readln(banki[n].name);
    write('Лицензия? '); readln(banki[n].license);
    write('Ближайшая остановка? '); readln(banki[n].adres);
    write('Количество клиентов? '); readln(banki[n].number_of_clients);
    write('Размер долга? '); readln(banki[n].debt);
    writeln('Продолжить ввод данных? '); readln(a);
    if a[1] in ['n', 'N', 'н', 'Н'] then break;
  until (n = 150) or (a[1] in ['n', 'N', 'н', 'Н']);
  writeln('Создано ', n, ' записей');

@ZX Spectrum-128 · 14.01.2015, 11:22

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
program BankiKrd;
uses crt;
type bank =
  record
    number_of_bank: string[32];
    name: string[64];
    license: string[32];
    adres: string[32];
    number_of_clients: integer;
    debt: integer;
  end;
  {записи о банках}
var banki: array [1..150] of bank;
    i: integer;
    a: string;
    b: string;
    m: string;
    n: integer;
    x: integer;
    z: integer;
 
procedure OUTPUT(i:integer); {вывод}
begin
 write('Название банка: ');
 write(banki[i].name);
 write('  Ближайшая остановка: ');
 writeln(banki[i].adres);
 write('  Номер лицензии: ');
 writeln(banki[i].license);
 write('Количество клиентов: ');
 write(banki[i].number_of_clients);
 write('  Общий размер долга по вкладам: ');
 writeln(banki[i].debt);
 writeln;
end;
 
begin
  writeln('Введите сведения о банках, не более 150 записей:'); {ввод сведений о банках}
  i := 0;
  repeat
    inc(i);
    writeln('Количество банков в базе ', i);
    write('Наименование? '); readln(banki[i].name);
    write('Лицензия? '); readln(banki[i].license);
    write('Ближайшая остановка? '); readln(banki[i].adres);
    write('Количество клиентов? '); readln(banki[i].number_of_clients);
    write('Размер долга? '); readln(banki[i].debt);
    write('Продолжить ввод данных? '); readln(a);
    if length(a) = 0 then a := 'Д';
  until (i >= 150) or (a[1] in ['n', 'N', 'н', 'Н']);
  n:=i;
  writeln('Создано ', n, ' записей');
  {Здесь работа с записями}
 clrscr;
write('ПОИСК. Наименование банка: ');
readln(m);
writeln;
for i:=1 to N do begin {вывод по имени}
  if banki[i].name = m  then
  OUTPUT(i);
 end;
 readln;
end.

@АленаК · 14.01.2015, 11:26 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии 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(), которая. . .

Вывести информацию об указанном банке. Программа закрывается после ввода данных

Решение

Решение

Решение

@АленаК 0 / 0 / 1 Регистрация: 28.05.2014 Сообщений: 18
	14.01.2015, 11:26 [ТС]
	Спасибо! 0