Turbo Pascal

Jodu · 26.03.08

Ответ: Turbo Pascal

Как сделать, чтобы вопросы рандомились из присвоенных по одному разу каждый вопрос?

Процедуру присвоения посмотрите.(рандом поправьте пожалуйста)

Код:

 {®ЇЁб вҐ«м п з бвм}
program     biletu;
uses dos, crt;
const
     kolvo= 6;
          N=18;
type
    INFO    =record     {Ёд®а¬ жЁп ® ўбҐе ЎЁ«Ґв е}
    CODE    :string;   {ў®Їа®б ЎЁ«Ґв  }
    code1:string;
    code2:string;
    code3:string;
    code4:string;
end;
var
     NOMER   :real;
     A       :array [1..kolvo] of INFO;
     b,w,r,o,m     :array [1..N]           of string;
     C: array [1..n] of integer;
     i,j,max :integer;
               {PROCEDURE ЏаЁбў®ҐЁҐ}
PROCEDURE PRUCBOENUE (var B,W,R,O,M: array of string);
begin
B[1]:=' Bonpoc1   Is he speaking to the teacher?';
B[2]:=' Bonpoc2   Were the visitors shown the new pictures? ';
B[3]:=' Bonpoc3   Will you be writing letters to us? ';
B[4]:=' Bonpoc4   Do they live in Moscow?   ';
B[5]:=' Bonpoc5   Will there be a party?   ';
B[6]:=' Bonpoc6   Must you not go there tonight? ';
B[7]:=' Bonpoc7   Won’t this key open the lock?';
B[8]:=' Bonpoc8   Do you not speak English?';
B[9]:=' Bonpoc9   Are they not at school? ';
B[10]:=' Bonpoc10  Hasn’t he come yet?';
B[11]:=' Bonpoc11   do you live in zylebino?';
B[12]:=' Bonpoc12   yesssss? ';
B[13]:=' Bonpoc13   ohh///noooo ';
B[14]:=' Bonpoc14   you noobbbb  ';
B[15]:=' Bonpoc15   loooool   ';
B[16]:=' Bonpoc16   i want this car ';
B[17]:=' Bonpoc17   do you know that ...';
B[18]:=' Bonpoc18   Yes.maybe no...';
W[1]:=' Bonpoc1 ЋЇҐа жЁ® п бЁбвҐ¬  Є®¬ЇмовҐа ( § зҐЁҐ,б®бв ў,§ Јаг§Є  ';
W[2]:=' Bonpoc2 WINDOWS  ';
W[3]:=' Bonpoc3 WINDOWS  ';
W[4]:=' Bonpoc4 WINDOWS  ';
W[5]:=' Bonpoc5  WINDOWS ';
W[6]:=' Bonpoc6  WINDOWS ';
W[7]:=' Bonpoc7  WINDOWS ';
W[8]:=' Bonpoc8  WINDOWS ';
W[9]:=' Bonpoc9  WINDOWS  ';
W[10]:=' Bonpoc10 WINDOWS ';
W[11]:=' Bonpoc11 WINDOWS ';
W[12]:=' Bonpoc12 WINDOWS  ';
W[13]:=' Bonpoc13 WINDOWS  ';
W[14]:=' Bonpoc14 WINDOWS  ';
W[15]:=' Bonpoc15  WINDOWS ';
W[16]:=' Bonpoc16  WINDOWS ';
W[17]:=' Bonpoc17  WINDOWS ';
W[18]:=' Bonpoc18  WINDOWS ';
R[1]:=' Bonpoc1  CUCTEMU ';
R[2]:=' Bonpoc2  CUCTEMU ';
R[3]:=' Bonpoc3  CUCTEMU ';
R[4]:=' Bonpoc4  CUCTEMU ';
R[5]:=' Bonpoc5  CUCTEMU  ';
R[6]:=' Bonpoc6  CUCTEMU  ';
R[7]:=' Bonpoc7  CUCTEMU ';
R[8]:=' Bonpoc8  CUCTEMU ';
R[9]:=' Bonpoc9  CUCTEMU ';
R[10]:=' Bonpoc10 CUCTEMU';
R[11]:=' Bonpoc11  CUCTEMU ';
R[12]:=' Bonpoc12  CUCTEMU ';
R[13]:=' Bonpoc13  CUCTEMU ';
R[14]:=' Bonpoc14  CUCTEMU ';
R[15]:=' Bonpoc15  CUCTEMU  ';
R[16]:=' Bonpoc16  CUCTEMU  ';
R[17]:=' Bonpoc17  CUCTEMU ';
R[18]:=' Bonpoc18  CUCTEMU ';
O[1]:=' Bonpoc1 Љ®¬ЇмовҐалҐ ўЁагбл:бЇ®б®Ўл а бЇа®бва ҐЁп,§ йЁв ' ;
O[2]:=' Bonpoc2 ЋЇЁб вм гЈа®§л ЎҐ§®Ї б®бвЁ б®ўаҐ¬Ґле бҐвҐўле Ёда бвагЄвга';
O[3]:=' Bonpoc3  VIRYSU ';
O[4]:=' Bonpoc4  VIRYSU ';
O[5]:=' Bonpoc5  VIRYSU ';
O[6]:=' Bonpoc6  VIRYSU ';
O[7]:=' Bonpoc7  VIRYSU ';
O[8]:=' Bonpoc8  VIRYSU ';
O[9]:=' Bonpoc9  VIRYSU ';
O[10]:=' Bonpoc10 VIRYSU';
O[11]:=' Bonpoc11 VIRYSU' ;
O[12]:=' Bonpoc12 VIRYSU';
O[13]:=' Bonpoc13  VIRYSU ';
O[14]:=' Bonpoc14  VIRYSU ';
O[15]:=' Bonpoc15  VIRYSU ';
O[16]:=' Bonpoc16  VIRYSU ';
O[17]:=' Bonpoc17  VIRYSU ';
O[18]:=' Bonpoc18  VIRYSU ';
M[1]:=' Bonpoc1  BONPOCU OCTALBNUE';
M[2]:=' Bonpoc2  BONPOCU OCTALBNUE';
M[3]:=' Bonpoc3  BONPOCU OCTALBNUE';
M[4]:=' Bonpoc4  BONPOCU OCTALBNUE';
M[5]:=' Bonpoc5  BONPOCU OCTALBNUE';
M[6]:=' Bonpoc6  BONPOCU OCTALBNUE';
M[7]:=' Bonpoc7  BONPOCU OCTALBNUE';
M[8]:=' Bonpoc8  BONPOCU OCTALBNUE';
M[9]:=' Bonpoc9  BONPOCU OCTALBNUE';
M[10]:=' Bonpoc10 BONPOCU OCTALBNUE';
M[11]:=' Bonpoc11  BONPOCU OCTALBNUE';
M[12]:=' Bonpoc12  BONPOCU OCTALBNUE';
M[13]:=' Bonpoc13  BONPOCU OCTALBNUE';
M[14]:=' Bonpoc14  BONPOCU OCTALBNUE';
M[15]:=' Bonpoc15  BONPOCU OCTALBNUE';
M[16]:=' Bonpoc16  BONPOCU OCTALBNUE';
M[17]:=' Bonpoc17  BONPOCU OCTALBNUE';
M[18]:=' Bonpoc18  BONPOCU OCTALBNUE';

end;
            {PROCEDURE ZAPOLNENUE TABLUCU C INFOPMACUEU O buletax  }
PROCEDURE ZAPOLNENUE  (var A: array of INFO);
var
i,k,str:integer ;
begin
PRUCBOENUE(B,w,R,O,M);
randomize;
writeln('bulet!Bonpoc!    Codepzanue Bonpoca    !  ');
k:=0;  str:=0; k:=k+1;
For i:=1 to kolvo do  begin
if str div 1=1 then k:=k; write ('',k);k:=k+1;
   A[I].CODE      :=B [RANDOM (N)+2];
     writeln (' ',A[i].code:14);  str:=str+1;
    A[I].CODE1      :=w [RANDOM (N)+2];
     writeln (' ',A[i].code1:14);  str:=str+1;
     A[I].CODE2      :=R [RANDOM (N)+2];
      writeln (' ',A[i].code2:14);   str:=str+1;     
writeln ('____________________________________________________________');
 write ('',k);k:=k+1;
 A[I].CODE3      :=O [RANDOM (N)+2];
      writeln (' ',A[i].code3:14);  str:=str+1;
        A[I].CODE4      :=M [RANDOM (N)+2];
        writeln (' ',A[i].code4:14);   str:=str+1;
     A[I].CODE      :=B [RANDOM (N)+2];
     writeln (' ',A[i].code:14);  str:=str+1;   
  writeln ('____________________________________________________________');
   write ('',k);k:=k+1;
  A[I].CODE1      :=w [RANDOM (N)+2];
     writeln (' ',A[i].code1:14);  str:=str+1;
     A[I].CODE2      :=R [RANDOM (N)+2];
      writeln (' ',A[i].code2:14);   str:=str+1;
       A[I].CODE3      :=O [RANDOM (N)+2];
           writeln (' ',A[i].code3:14);  str:=str+1;         
        writeln ('____________________________________________________________');
         write ('',k);k:=k+1;
        A[I].CODE4      :=M [RANDOM (N)+2];
        writeln (' ',A[i].code4:14);  str:=str+1;
         A[I].CODE      :=B [RANDOM (N)+2];
     writeln (' ',A[i].code:14);  str:=str+1;
        A[I].CODE1      :=w [RANDOM (N)+2];
     writeln (' ',A[i].code1:14);  str:=str+1;
      writeln ('____________________________________________________________');
       write ('',k);k:=k+1;
        A[I].CODE2      :=R [RANDOM (N)+2];
      writeln (' ',A[i].code2:14);   str:=str+1;
       A[I].CODE3      :=O [RANDOM (N)+2];
           writeln (' ',A[i].code3:14);  str:=str+1;
            A[I].CODE4      :=M [RANDOM (N)+2];
       writeln (' ',A[i].code4:14);   str:=str+1;
       writeln ('____________________________________________________________');    
        end;
       { for I:=1 to kolvo do begin  k:=k+1;
     write (' ',k:1) ;
     writeln;
end;}
end;
                 {OCNOBNAIA CHACTb PROGPAMMU}

begin
clrscr;
ZAPOLNENUE (A);
readln;
END.
яя

Тарас · 27.03.08

Ответ: Turbo Pascal

что это за ошибка (граф режим)?

KoLoB · 27.03.08

Ответ: Turbo Pascal

Тарас сказав(ла):
что это за ошибка (граф режим)?

Скопируй файл BGAVGA.CGI в папку с запускаемой программой или в тексте программы правильно пропишу путь к драйверу.

Тарас · 27.03.08

Ответ: Turbo Pascal

де этот файл взять?

Код:

var GraphDriver,GraphMode:integer;
    GraphPath:string;
    ErrorCOde:integer;
begin
[B]GraphDriver:=detect;[/B]
graphmode:=vgahi;
[B]initgraph(graphdriver,graphmode,'C:\TP70\BIN');[/B]
errorcode:=graphresult;
if errorcode<> grok then
begin
write ('owibka inicializacii:',grapherrormsg(errorCode));
write ('Rabota programmu zaverwena');
halt(1);
end;

zett · 01.04.08

Вопрос: Turbo Pascal

Извините пожалуйста, помогите мне! Мне до послезавтра нужно программу, программный код от Program...... до ......End
до послезавтра задали 4 программы! помогите пожалуйста!

1) Компьютер находит сумму всех чётных, сумму всех нечётных, сумму делящихся на 3.
2) Компьютер рисует затухающую синусоиду. Скорость затухания задаёт пользователь.
3) Компьютер находит количество счастливых билетов (6-значных чисел, в которых сумма первых 3-х цифр равна сумме 3-х последних цифр).
4) Пользователь задаёт два числа. Компьютер находит их наименьший общий делитель.

zett · 01.04.08

Вопрос: Turbo Pascal

парни! ну помогите сделать! уже сдавать через день!

Пух · 01.04.08

Ответ: Вопрос: Turbo Pascal

zett сказав(ла):
парни! ну помогите сделать! уже сдавать через день!

You must be registered for see links

это почти ответ к 1-й задаче.

quant · 02.04.08

Відповідь: Вопрос: Turbo Pascal

zett сказав(ла):
3) Компьютер находит количество счастливых билетов (6-значных чисел, в которых сумма первых 3-х цифр равна сумме 3-х последних цифр).
4) Пользователь задаёт два числа. Компьютер находит их наименьший общий делитель.

код от program до end я не напишу, но подсказки дать могу - дальше думать не долго
3 - изменяй переменную от 0 до миллиона и каждый раз выделяй цифры (поможет mod и div), проверяй условие и считай
4 - наименьший общий делитель a и b получишь поделив a * b на их наибольшее общее кратное
а для нахождения наибольшего общего кратного достаточно знать, что если числа a и b кратны c то и a - b кратно c

Taurus · 03.04.08

Ответ: Turbo Pascal

Люди добрые помогите! Ваще не шпарю в этом дали два задания я знаю что они лёгкие но всё равно не могу сделать(((
1.Компьютер создаёт массив из 20 случайных чисел.выводит на экран. массив сортируется классическим способом и выводится на экран для сравнения.
2.Компьютер строит график функции y=a*cos(x)+b. a,b - задаёт пользователь.
помогите плиз оч срочно надо

Пух · 07.04.08

Ответ: Turbo Pascal

Taurus сказав(ла):
Люди добрые помогите! Ваще не шпарю в этом дали два задания я знаю что они лёгкие но всё равно не могу сделать(((
1.Компьютер создаёт массив из 20 случайных чисел.выводит на экран. массив сортируется классическим способом и выводится на экран для сравнения.
2.Компьютер строит график функции y=a*cos(x)+b. a,b - задаёт пользователь.
помогите плиз оч срочно надо

1-ю ищи тут, про массивы уже много раз тут писали(ввод,вывод,сортировку)

Turbo Pascal

Jodu

New Member

Тарас

Member

Вкладення

KoLoB

KoLoB.cz

Тарас

Member

zett

New Member

zett

New Member

Пух

كنت بلهاء

quant

yeah

Taurus

New Member

Пух

كنت بلهاء