Question

помогите пожалуйста в Pascal
Задать строку, состоящую из 3-х случайно заданных символов «р», «о», «к», выводить её до тех пор, пока не выйдут слова: «рок», «орк», «кок»

Answer 1

program rok_ork_kok;var x,y:integer;        s:string;        c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к';  x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к';   x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.

Answer 2

только вывод строки не реализовал, не заметил в ТЗ. Сейчас допишу.

Answer 3

program rok_ork_kok;
var x,y:integer;
s:string;
c1,c2,c3:char;
begin
writeln('начать выполнение? Жмите ENTER!');
readln;
repeat
randomize;
x:=random(4);
if x = 1 then c1:='р';
if x = 2 then c1:='о';
if x = 3 then c1:='к';
x:=random(4);
if x = 1 then c2:='р';
if x = 2 then c2:='о';
if x = 3 then c2:='к';
x:=random(4);
if x = 1 then c3:='р';
if x = 2 then c3:='о';
if x = 3 then c3:='к';
s:=c1+c2+c3;
writeln(s);
until (s='кок') or (s='рок') or (s='орк') ;
writeln('получили слово '+s);
end.

Answer 4

var i,k:integer;
s,st:string[3];
begin
Randomize;
st:='рок';
s:='';
repeat
 s:='';
 for i:=1 to 3 do
  begin
  k:=random(3)+1;
  s:=s+st[k];
  end;
 writeln(s);
until (s='рок')or(s='орк')or(s='кок');
end.

Пример:
ккр
оро
коо
ркр
орк