Описать процедуру ИронияСудьбы (С), которая печатает фамилии двух (любых) жителей из списка С

@pivovar94 · Регистрация: 28.11.2013

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

Record.(Pascal)

Pascal
1
2
3
type строка = array [1..20] of char;
житель = record фамилия, город : строка; адрес: record  улица: строка; дом, квартира: 1..99; end;
список = array[1..15] of житель;

Описать процедуру ИронияСудьбы(С), которая печатает фамилии двух (любых) жителей из списка С, живущих в разных городах по одинаковому адресу.

@ZX Spectrum-128 · 18.09.2014, 11:02

(с) volvo

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
type 
  jitel=record
  city:string[25];
  street:string[25];
  dom:integer;
  kvartira:integer;
  familia:string[25];
end;
 
var
  spisok:array[1..25] of jitel;
  i,n:integer;
...
 
procedure IRONIA_SUDBY;
var i,j,k:integer;
b:boolean;
begin
  for i:=1 to n - 1 do 
    for j:=i+1 to n do begin
      if (spisok[i].dom=spisok[j].dom) and (spisok[i].kvartira=spisok[j].kvartira) and
         (spisok[i].street = spisok[j].street) and (spisok[i].city <> spisok[j].city) then
        writeln(spisok[i].familia, ' из ', spisok[i].city, ' и ', spisok[j].familia, ' из ', spisok[j].city,
                   ' живут по адресу: ул. ', spisok[i].street, ', ', spisok[i].dom, ' / ', spisok[i].kvartira);
    end;
end;
 
{ вызывать так: }
...
IRONIA_SUDBY;
...

@Puporev · 18.09.2014, 11:05

Со string проще, а вот поиск и сравнение с символьными массивами сложнее...

@ZX Spectrum-128 · 18.09.2014, 11:15

Ой, я и не увидел, что массив символов. Ну пусть тс доделает. Ему и так большая часть задачи решена.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.09.2014, 11:05
	Со string проще, а вот поиск и сравнение с символьными массивами сложнее... 1

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	18.09.2014, 11:15
	Ой, я и не увидел, что массив символов. Ну пусть тс доделает. Ему и так большая часть задачи решена. 0