составить СВОЮ СОБСТВЕННУЮ программу на языке программирования Паскаль, которая бы использовала функцию RANDOM (X). Комментарии к программе ОБЯЗАТЕЛЬНЫ!

1

Ответы и объяснения

Лучший Ответ!
2013-02-14T17:00:56+04:00

Создает строку из случайных букв. Что то типа "пароля". 

var n,i,x:integer; s:string; k:char;
a: set of 'a'..'z';
begin
for i:=1 to 10 do
begin
x:=random(2); //выбор, что будет записываться, буква или цифра
n:=random(27); //выбор случайной буквы алфавита
if x=0 then
case n of //выбираем букву в зависимости от того,что сгенерировалось в n:=random(27); 
1:s:=s+'a';//записываем букву в строку
2:s:=s+'b'; //записываем букву в строку
3:s:=s+'c'; //записываем букву в строку
4:s:=s+'d'; //записываем букву в строку
5:s:=s+'e'; //записываем букву в строку
6:s:=s+'f'; //записываем букву в строку
7:s:=s+'g'; //записываем букву в строку
8:s:=s+'h'; //записываем букву в строку
9:s:=s+'i'; //записываем букву в строку
10:s:=s+'j'; //записываем букву в строку
11:s:=s+'k'; //записываем букву в строку
12:s:=s+'l'; //записываем букву в строку
13:s:=s+'m'; //записываем букву в строку
14:s:=s+'n'; //записываем букву в строку
15:s:=s+'o'; //записываем букву в строку
16:s:=s+'p'; //записываем букву в строку
17:s:=s+'q'; //записываем букву в строку
18:s:=s+'r'; //записываем букву в строку
19:s:=s+'s'; //записываем букву в строку
20:s:=s+'t'; //записываем букву в строку
21:s:=s+'u'; //записываем букву в строку
22:s:=s+'v'; //записываем букву в строку
23:s:=s+'w'; //записываем букву в строку
24:s:=s+'x'; //записываем букву в строку
25:s:=s+'y'; //записываем букву в строку
26:s:=s+'z'; //записываем букву в строку
else s:=s+inttostr(random(11));//если х=1 тогда будет записывать цифра от 0 до 10
end;
end;
writeln(s);// выводим эту строку 
end.