0 / 0 / 0
Регистрация: 16.03.2015
Сообщений: 11
1

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

15.12.2015, 23:04. Показов 449. Ответов 0
Метки нет (Все метки)

Доброго времени суток.
Условие:
Есть N детей, которым купили по 3 игрушки. Каждая игрушка имеет название и цену.
Найти Название игрушки которую купили одновременно 3-м детям.
Название игрушки которую купили в единственном экземпляре.
В итоге образовался тройной Цикл: 1) на ребенка
2)название игрушки
3) сумма
В следствии своей недоученности не понимаю как найти совпадение во вложенном цикле.
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
program pr2;
uses crt;
const
names:array[1..5] of string=('Lego','Teddy','Barby','Миша','Маша'); 
var
a:array[1..100] of byte;
c:array[1..3] of byte;
d,n,i,j,k,o:byte;
begin
clrscr;
write('Количество детей =',' ');
readln(n);
randomize;
for d:= 1 to n do {Цикл вывода игрушек на каждого ребенка}
begin
writeln('Ребенок №',d);
 
for i:=1 to 3 do {Цикл Присвоения имени}
  begin
For j:=1 to 3 do {Цикл присвоения суммы}
 
c[j]:=random(100)+50;{Рандомная сумма}
writeln(names[random(5)+1],' -  ',c[j],' ', 'Рублей' );
end;
end;
{ Проверка совпадения хотя бы одной игрушки у N детей}
 
 for d:=1 to n do {
 begin
For i:= 1 to 3-1 do
For k:=i+1 to 3 do
if names[i]=names[k] then
begin
 
Writeln(names[k]);
 end;
 End;
 writeln('Совпадений нет');
 
readkey;
end.
Заранее спасибо за помощь и подсказки
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2015, 23:04
Ответы с готовыми решениями:

Не могу разобраться с таблицами и поиском в БД Поликлинника
Добрый день ! Нужна помощь в написании БД. Времени почти не осталось. С Access знаком 4 дня : ) ...

никак не могу разобраться с поиском по базе через форму php
люди плиззз. я только учусь! никак не могу разобраться с поиском по базе через форму php. пишу...

Алгоритм на вложенных циклах While
Нужно найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется...

задачи о вложенных циклах
1)Дана матрица А(m,n). Перемножить элементы с четной суммой индексов I+J. Найти максимальные...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2015, 23:04

Вывод записей из таблиц во вложенных циклах
Можно ли выводить записи из одной базы данных в цикле вывода записей из другой. те. что- то типа...

TextBox с поиском совпадений
В своих разработках часто приходится использовать одну вещь. При введении пользователем текста в...

Не могу разобраться в цикле сортировки
Объясните, пожалуйста, как данная сортировка работает. Есть массив строк listbox А вот сама...

Не могу разобраться что за \0 в цикле
for (i=0;X!='\0';i++); Цикл: i приравнивается к нулю и пока i-й элемент матрицы X не равен '\0'...


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

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

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