Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Mirinda
0 / 0 / 0
Регистрация: 19.06.2013
Сообщений: 3
1

Составить программу, которая заполняет данные о жильцах и по фамилии определяет номер, где проживает жилец

19.06.2013, 15:14. Просмотров 952. Ответов 3
Метки нет (Все метки)

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

В гостинице имеется 15 номеров, из них 5 одноместных и 10 двухместных. Составить программу, которая заполняет данные о жильцах и по фамилии определяет номер, где проживает жилец.
Составить программу, которая:
Заполняет базу;
Вывод всей базы;
Программа запрашивает фамилию жильца:
Если жильца с такой фамилией нет, об этом выдается сообщение
Если жилец с такой фамилией в гостинице единственный, программа выдает фамилию жильца и номер проживания.
Если в гостинице проживает два и более жильцов с такой фамилией, программа дополнительно запрашивает инициалы.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2013, 15:14
Ответы с готовыми решениями:

Составить программу, которая заполняет массив случайными целыми числами
Составить программу, которая заполняет массив случайными целыми числами ...

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

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

Составить программу, которая определяет количество инверсий в массиве
Дан линейный неупорядоченный массив А, состоящий из 20 целых чисел. Составить...

Составить программу, которая определяет количество инверсий в массиве
Дан линейный неупорядоченный массив А, состоящий из 20 целых чисел. Составить...

3
Kordn
156 / 135 / 106
Регистрация: 18.05.2013
Сообщений: 289
20.06.2013, 01:12 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
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
uses
  crt;
 
const
  n = 4;
 
type
  
  guest = record 
    fam: string;
    inic: string[2];
    room: integer;
    mest: 1..2;
  end;
 
var
  gu: array[1..n] of guest;
 
function supersearch(name: string): boolean;
var
  ini: string[2];
begin
  result := false;
  writeln(#13#10'Жильцов с такой фамилией несколько.');
  write('Введите инициалы: ');
  read(ini);
  for var i := 1 to n do
    if (name = gu[i].fam) and (ini = gu[i].inic) then
      result := true;
end;
 
procedure search;
var
  found := false;
  num := 0;
  name: string;
begin
  Writeln(#13#10'Поиск жильца.');
  write('Введите фамилию: ');
  readln(name);
  for var i := 1 to n do 
    if (name = gu[i].fam) then 
      if found then begin found := supersearch(name); if found then num := i; break; end
      else begin found := true; num := i; end;
  writeln;
  if not found then writeln('Жилец не найден.')
  else with gu[num] do
      writelnformat('Жилец {0} {1} проживает в {2}-местном номере № {3}', fam, inic, mest, room);
end;
 
begin
  for var i := 1 to n do 
    with gu[i] do
    begin
      writeln('Ведите данные  ', i, '   жильца');
      write('Фамилия и инициалы (фамилия, пробел, инициалы без точек): ');
      var c: char;
      repeat
        read(c);
        if c <> ' ' then fam += c;
      until c = ' ';
      read(inic);
      write('Номер комнаты: ');
      readln(room);
      write('Мест: ');
      readln(mest);
    end;
  search; 
end.
1
Mirinda
0 / 0 / 0
Регистрация: 19.06.2013
Сообщений: 3
20.06.2013, 01:59  [ТС] 3
Kordn,
Спасибо огромнейшее, выручили
0
Kordn
156 / 135 / 106
Регистрация: 18.05.2013
Сообщений: 289
20.06.2013, 12:06 4
Mirinda, был рад помочь
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2013, 12:06

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

Написать программу, которая по заданной фамилии студента находит и печатает его телефонный номер
2 задача. Написать программу, которая по заданной фамилии студента находит и...

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


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

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

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