Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 26
1

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

16.09.2014, 04:48. Показов 1040. Ответов 3
Метки нет (Все метки)

Record.(Pascal)
Pascal
1
2
3
type строка = array [1..20] of char;
житель = record фамилия, город : строка; адрес: record  улица: строка; дом, квартира: 1..99; end;
список = array[1..15] of житель;
Описать процедуру ИронияСудьбы(С), которая печатает фамилии двух (любых) жителей из списка С, живущих в разных городах по одинаковому адресу.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2014, 04:48
Ответы с готовыми решениями:

Напечатать фамилии двух (любых) жителей из списка S, живущих в разных городах по одинаковому адресу
Доброе время суток у меня трабл с прогой :wall: вот задание type stroka=packed array of...

Записи: Описать процедуру Печ(Гр, Бук), которая печатает все фамилии людей из группы Гр, начинающиеся с буквы Бук, и даты рождения этих людей
Помогите из этого задания исправить на такой: type строка = packed array of char; дата =...

Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой строках
3.Даны 2 строки. Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой...

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

3
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
18.09.2014, 11:02 2
(с) 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;
...
1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
18.09.2014, 11:05 3
Со string проще, а вот поиск и сравнение с символьными массивами сложнее...
1
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
18.09.2014, 11:15 4
Ой, я и не увидел, что массив символов. Ну пусть тс доделает. Ему и так большая часть задачи решена.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2014, 11:15

Описать процедуру, которая печатает все буквы, входящие в строку менее К раз
Описать процедуру, которая печатает все буквы, входящие в строку менее К раз, с указанием...

Описать процедуру, которая печатает все слова, заканчивающаяся и начинающаяся на заданную букву
2. Описать процедуру, которая печатает все слова, заканчивающаяся и начинающаяся на заданную букву.

Описать процедуру, которая печатает все буквы, входящие в строку менее K раз
Описать процедуру, которая печатает все буквы, входящие в строку менее K раз, с указанием...

Описать процедуру, которая печатает в виде 4-значного беззнакового 16-ричного числа значение заданного слова
Дано описание X DD ? описать близкую процедуру OUTW16 которая печатает в виде 4-значного...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru