Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
ANX™nemz
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 2
#1

запоминает только последнюю запись, надо сделать чтобы все записи запоминала - Pascal

19.01.2012, 18:30. Просмотров 317. Ответов 0
Метки нет (Все метки)

почему массив запоминает только последнее число, и проводит поиск по последнему.. НУжно чтобы по всем своим номерам он проводил поиск и выдавал, выйграй или проиграл. ПОмогите пожалуйста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Program Fio_Pupil;
uses crt;
const n=4;
var a:array[1..n,1..2] of string[20];
x,cod:byte;
i: integer;
f,e,b,k:string[20];
begin
     clrscr;
     writeln;
     writeln('Г‡Г*Г¤Г*Г·Г* 1');
     writeln(' Г’Г*áëèöГ* ñîäåðæèò 10 Г*îìåðîâ âûèãðûøГ*ûõ áèëåòîâ');
     writeln('Ïðîâåðüòå, ÿâëÿåòñÿ ëè áèëåò Г± Г*îìåðîì ГЂ âûèãðûøГ*ûì');
     writeln('Æì¸ì ENTER...');
     Readln;
     Clrscr;
     For i:=1 to n do
     begin
     write('Ââåäèòå Г*îìåð  ');
     Readln(a[i,1]);
     write('Ââåäèòå âûéãûøГ*ûå Г*îìåð  ');
     Readln(a[i,2]);
     end;
     begin
     writeln('vvedite svoi nomer');
     readln(f);
     writeln;
     writeln('Æì¸ì Enter...');
     Readln;
     Clrscr;
     writeln('Ñïèñîê ГўГ±ГҐГµ ГЁГЈГ°Г*ГѕГ№ГЁГµ');
     writeln('---------------------------');
     writeln('   porydkoviy NOMER  |   Seriyniy nomer  ');
     writeln('---------------------------');
     For i:=1 to n do
     writeln( a[i,1]:10,'  |   ':5,a[i,2]:7);
      writeln('-------------------------------------');
     writeln;
     writeln('Æì¸ì Enter...');
     Readln;
      K:=A[i,2];
      end;
     if f<>k then writeln(' ГЌГҐГІ âûéãðГ*ГёГ*îãî áèëåòГ*')
     else
     begin
     writeln('ÂûéãðûøГ*ûå Г*îìåð : ',f);
      readln(f);
   
     Readln;
     end;
     end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2012, 18:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос запоминает только последнюю запись, надо сделать чтобы все записи запоминала (Pascal):

Сделать две очереди, так, чтобы в одной остались только символы, в другой — только числа
Помогите,пожалуйста,решить задачку. Даны 2 очереди, заполненные символами...

Прога готовая(код Цезаря),надо сделать только чтоб шаг спрашивался только один раз).
program Caesar; function code(toCode:string):string; var x,y,n:integer;...

как сделать , чтобы программа запоминала что было раньше
Я делаю домино на QBasic и там я сделал перемещение фишки по &quot;столу&quot; таким...

VBA в MS Excel надо чтобы все введённые значения появлялись на листе только после закрытия последней
Делал психологический тест в Excel, каждый вопрос появляется в своей UserForm,...

Надо в выбранном наборе последовательно пронумеровать все записи. Как это сделать ?
MSSQL7.0. Мне надо выбрать по Select записи. И уже в выбранном наборе...

Как в отчёте Access сделать так, чтобы итоги появлялись только в конце, а не после каждой записи?
Как в отчёте Access сделать так, чтобы итоги появлялись только в конце, а не...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2012, 18:30
Привет! Вот еще темы с решениями:

Как сделать чтобы не была видна рубрика и все ее записи
Допустим создал я рубрику,сделал в ней записи и как сделать так чтобы ее не...

Редактировать только последнюю запись
Посоветуйте, пожалуйста,как в ленточной форме разрешить редактирование только...

UPDATE изменяет только последнюю запись
Сюда выводятся сообщения из БД по порядку и под каждым отдельная кнопка...

Подскажите, почему выводит только последнюю запись
$query = mysql_query(&quot;SELECT * FROM `kategorii`&quot;); while ($line =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru