Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 71.

Перепишите фамилии учащихся в случайном порядке.

{Для решения этой задачи зададим массив B(N) фамилиями учащихся. Затем найдем N целых различных чисел в пределах от 1 до N и занесем их в массив А. Далее распечатаем последовательно элементы массива В(А(I)).}

program p57;
  uses crt;
  const n=3;
  var a:array[1..n] of integer;
      b:array[1..n] of string;
      i,k,x:integer;
  label 50;
begin
  clrscr;
  randomize;
  for i:=1 to n do
    begin
      write(i, ' ');readln(b[i]);
    end;
  writeln;
  a[1]:=trunc(random(n)) +1;k:=1;
  50: x:=trunc(random(n)) +1;
  for i:=1 to k do
  if x=a[i] then goto 50;
  k:=k+1;a[k]:=x;
  if k < n then goto 50;
  for i:= 1 to n do
  writeln(i,' ',b[a[i]]);
  readkey;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru