зациклить код...

@xooxoo · Регистрация: 26.05.2011

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

Задача вот какая:
Даны номерные знаки 4 автомашин. Определить, имеются ли среди них одинаковые, вывести их или сообщение, что таких - нет.

Вот что получилось:

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
program zadanie3;
uses CRT;
var
num: array[0..3] of string[6];
check:boolean;
f:text;
i:integer;
BEGIN
ClrScr;
Assign(f,'nomera.txt');
Reset(f);
for i:=0 to 3 do readLn(f,num[i]);
if num[0]=num[1] then
begin
WriteLn(num[0]);
check:=true;
if (num[2]=num[3]) And (num[2]<>num[0]) then WriteLn(num[2]);
end
else if num[0]=num[2] then
begin
WriteLn(num[0]);
check:=true;
if (num[1]=num[3]) And (num[1]<>num[0]) then WriteLn(num[1]);
end
else if num[0]=num[3] then
begin
WriteLn(num[0]);
check:=true;
if (num[1]=num[2]) And (num[1]<>num[0]) then WriteLn(num[1]);
end
else if num[1]=num[2] then
begin
WriteLn(num[1]);
check:=true;
if (num[0]=num[3]) And (num[1]<>num[0]) then WriteLn(num[0]);
end
else if num[1]=num[3] then
begin
WriteLn(num[1]);
check:=true;
if (num[0]=num[2]) And (num[1]<>num[0]) then WriteLn(num[0]);
end
else if num[2]=num[3] then
begin
WriteLn(num[2]);
check:=true;
if (num[1]=num[0]) And (num[2]<>num[1]) then WriteLn(num[0]);
end;
textcolor (yellow);
if check=false then Write('Нет номеров одинаковых!')
else Write('Нажмите ентер');
readLn;
END.

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

@Dekio · 26.05.2011, 17:43

Pascal
1
2
3
4
5
6
7
8
9
10
bool:=false;
for i:=1 to n-1 do
for j:=i+1 to n do
if num[i]=num[j] then
begin
writeln(num[i]);
bool:=true;
end;
if not bool then
writeln('Нет одинаковых номеров');

Не по теме:

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

@xooxoo · 26.05.2011, 19:12 **[ТС]**

Dekio, я на экономическом учусь

Благодарю за помощь!

Добавлено через 25 минут
Извините за беспокойство еще раз.
После интеграции вашего кода, программа запускается, но номер с повтором не отображается.

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
program zadanie3;
uses CRT;
var
num: array[0..3] of string[6];
bool:boolean;
f:text;
i,j,n:integer;
BEGIN
ClrScr;
Assign(f,'nomera.txt');
Reset(f);
for i:=0 to 3 do readLn(f,num[i]);
bool:=false;
for i:=1 to n-1 do
for j:=i+1 to n do
if num[i]=num[j] then
begin
writeln(num[i]);
bool:=true;
end;
if not bool then
writeln('Net odinakovih nomerov')
readLn;
END.

Номера машин типа x700xx

@SuPeR XaKer · 26.05.2011, 19:14

i:=1

от 0

n

на 3 замени

@xooxoo · 26.05.2011, 19:26 **[ТС]**

SuPeR XaKer, Dekio Благодарю от всей души!
Может кому нибудь еще понадобиться код программы:

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
program zadanie3;
uses CRT;
var
num: array[0..3] of string[6];
bool:boolean;
f:text;
i,j:integer;
BEGIN
ClrScr;
Assign(f,'nomera.txt');
Reset(f);
for i:=0 to 3 do readLn(f,num[i]);
bool:=false;
for i:=0 to 3-1 do
for j:=i+1 to 3 do
if num[i]=num[j] then
begin
writeln(num[i]);
bool:=true;
end;
if not bool then
writeln('Нет одинаковых номеров')
else write ('Нажмите Enter для выхода');
readLn;
END.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем