Строки. Нужно сделать так, чтобы при выводе на экран не было совпадений имён.

28.01.2013, 17:16. **Показов** 924. **Ответов** 1

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

Pascal

Ребят, помогите срочно с прогой, в строках не очень разбираюсь, давно дело было.
Нужно сделать так, чтобы при выводе на экран не было совпадений имен. Например Вика - Вике
uses crt;
const a: array [0..2] of string=('Вика','Оля','Женя');
         b: array [0..2] of string=('Вике','Оле','Жене');
var v: char;
begin
randomize;
repeat
clrscr;
writeln(a[random(3)],' ',b[random(3)]);
writeln;
write('генерировать еще? y/n '); readln(v);
until v='n';
end.

Комментарий модератора

Создана новая тема. Добавлены теги кода. Для оформления кода Pascal следует применять теги: [PASCAL] - [/PASCAL].

@Yurek · 29.01.2013, 16:02

Сообщение от Zetsubou_Sensei

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

Pascal

1	writeln(a[random(3)],' ',b[random(3)]);

Ищи ошибку в этой строке.
В частности, стоит задаться вопросом, что происходит при каждом вызове random(3).

Опции темы