Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
NaniDesKa
0 / 0 / 0
Регистрация: 12.03.2010
Сообщений: 4
#1

Записи. Поиск. - Pascal

15.05.2010, 03:15. Просмотров 678. Ответов 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
type mount = record
name: string [15];
hgt: integer;
pl: string [10];
end;
var 
massiv: array [1..100] of mount;
k, l, n: char;
m: string;
o, p, r: integer;
label hhh;
 
begin
 clrscr;
 
Write ('Enter the number of records:  ');
Readln (p);
For r:=1 to p do
begin 
write ('Enter a blank name and location of a mountain peak:  ');
with massiv[r] do begin
read (name, pl);
write ('Enter the height of a mountain peak:  ');
readln (hgt);
end; 
end;
(*ввод названия, континента и высоты*)
    hhh:
 writeln ('Do you want to search the mountain peaks on the continent? Y / N');
    (*поиск по континенту*)
     readln (k);
 
    case k of
     'Y': begin
     write ('Searching on the continent. Enter locations:  ');
      readln (m);
     If massiv[r].pl=m then
     with massiv[r] do writeln (name:15, hgt:5, pl:15);
     end;
Плохо понимаю как осуществить поиск среди слов в массиве, если не сложно, исправьте или дайте ссылку на что-либо похожее...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 03:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Записи. Поиск. (Pascal):

Добавление и удаление записи, поиск записи с максимальной зарплатой, сортировка по алфавиту - Pascal
Помогите, пожалуйста!:help: Очень нужно сделать до 26!(а если не сложно, то еще и с комментариями :-Добавлено через 27 минут если вы...

Поиск записи в типизированном файле - Pascal
Вводятся фамилии и баллы студентов. Все записывается в файл. Нужно найти фамилию, которую пользователь ищет. Помогите пожалуйста. Смысла...

Поиск записи по двум любым полям, определенным в программе - Pascal
Запрограммировать следующие процедуры и функции: а) поиск записи по двум любым полям, определенным в программе, б) вывод записи, в)...

Записи. Поиск записей с одинаковым значением по двум полям - Pascal
нужно сделать процедурку которая будет искать записи с одинаковым значением по двум полям. примерно как это будет выглядеть?

Удаление записи из массива записи или файла - Pascal
Доброго времени суток... Задача стоит такая. Есть массив записей, прочитали из файла или так создали, неважно... Каждая запись имеет...

Дан файл записей. Одно из полей записи ФИО. Вывести все записи в виде таблицы в алфавитном порядке ФИО - Pascal
Я сделал ввод файла, а вот как сделать такой вывод не знаю. Помогите пожалуйста. Каждая запись содержит поля: • ФИО; • пол; ...

1
Puporev
Модератор
54019 / 41652 / 14730
Регистрация: 18.05.2008
Сообщений: 97,916
15.05.2010, 08:07 #2
Не могу осуществить поиск по континенту
Вот принцип поиска по любому полю в массиве записей.
Pascal
1
2
3
4
5
6
7
8
9
10
writeln('Введите название континента ');
readln(naz);
k:=0;
for i:=1 to n do
if massiv.pl=naz then
  begin
   writeln(massiv.name,'  ',massiv.hgt);
   k:=1;
  end;
if k=0 then writeln(На этом континенте нет вершин из списка, либо неверно введено его название');
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 08:07
Привет! Вот еще темы с ответами:

Поиск символа в строке. Как осуществить поиск в обратном направлении - Pascal
Всем доброго времени суток. Вопрос такой: как осуществить поиск в обратном направлении, т.е. я в строке (a(bc)) нахожу первую закрытую...

Поиск максимальных компонент в виде подрограмм, поиск значения функции - Pascal
Очень нужна помощь, срочно. Хотя бы просто помогите с алгоритмом, код написать мб сам справлюсь. Задачи 2 и 3. Предельно благодарен.

Поиск подмассива в массиве. Поиск значения - Pascal
Помогите исправить программу. вот условие и текст Даны два целочисленных массива X(n) и Y(m) .(m<=n). Определить, является ли массив Y...

Записи.Упорядочивание записи. - Pascal
При решении списка задач который мне был выдан столкнулся с трудностью в последнем. Просьба по возможности решить хотя бы половину...


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

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

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