Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

матрица-из фильма )) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ вычислние числа Пи http://www.cyberforum.ru/cpp-beginners/thread197704.html
Ребят, помогите написать программку на с++ Задание : Вычисление числа Пи с точностью до миллиарда
C++ asm вставка в C++ часть 2 есть код. за его написание отдельное спасибо Kastaneda) #include <iostream> #include <fstream> using namespace std; int slozh(int* pi1, int si1); int main() http://www.cyberforum.ru/cpp-beginners/thread197697.html
C++ матрица чисел
Задача такая,написать программу с помощью функций ввода матрицы,вывода матрицы,которая при вводе с экрана номера строки матрицы,должна реверсировать(?) строку..то есть 0 1 4 5 7 1 1 7 9 6 2 3 7 5...
максимум C++
найти квадрат максимума из введенных чисел
C++ поиск слова http://www.cyberforum.ru/cpp-beginners/thread197680.html
подскажите пожалуйста как организовать поиск слов в файле .txt Добавлено через 13 часов 25 минут ну подскажите пожалуйста... очень надо...
C++ Строки Всем добрый вечер!Возник вопрос по строкам.Если кому не трудно ы разбирается в этом,просьба не оставить без внимания... 1.Ввести с клавиатуры строку символов отсортировать слова в строке в... подробнее

Показать сообщение отдельно
Mehonchegg
27 / 9 / 3
Регистрация: 08.05.2013
Сообщений: 76
08.05.2013, 12:20
Вот на паскале
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
 
uses crt;
const
k = 35;
 my = 24;
 mx = 79;
 paus = 50;
 sym_s= 32;
 sym_e= 200;
T: string = 'Matrix screensaver by EncomService';
RT: string ='Loadin...................................';
ET: string ='Press Enter for start Matrix';
Var
 a: byte;
  procedure matrix;
const ESC=#27; UP=#72; DOWN=#80;
var
gd,gm,i,j,c,sp:integer;
 pause:longint;
 scr:array [1..25,1..80] of char;
 Ch:char;
begin
{gd:=0; gm:=0;
initgraph(gd,gm,'c\bp\bgi');}
 window (1,1,80,80);
 clrscr;
 directvideo:=true;
 textcolor (green);
 for i:=1 to 25 do for j:=1 to 80 do scr[i,j]:=#0;
 randomize;
 pause:=1000;
 repeat
  repeat
   c:=48+random(10);
   sp:=random(3);
   if sp=0 then c:=32;
   j:=2+random(79);
   for i:=24 downto 2 do begin
    scr[i,j]:=scr[i-1,j];
    gotoxy(j,i);
    write (scr[i-1,j]);
   end;
   gotoxy (j,1);
   scr[1,j]:=Chr(c);
   write (scr[1,j]);
   {settextstyle(0,0,1);}
   delay (3);
  until keypressed;
  Ch:=ReadKey;
  case Ch of
   #0: begin
    Ch:=ReadKey;
    case Ch of
     UP:    if pause<MaxLongInt-10 then Inc(pause,10);
     DOWN:  if pause>10 then Dec (pause,10);
    end;
   end;
   ESC: Exit;
  end;
 until false;
 clrscr;
 textcolor(Green);
end;
 
begin
clrscr;
 writeln (
  'MatriX! :-)'+#13+#10+
  #24+'   - slow'+#13+#10+
  #25+'   - fast'+#13+#10+
  'Esc - exit'+#13+#10+
  'Press a key');
 reset (input);
 repeat until keypressed;
Begin
 clrscr;
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(T) do
  Begin
   Write(T[a]);
   delay(paus*1);
  End;
 delay(paus*10);
 delay(paus*10);
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(T) do
  Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(paus*2);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(T[a]);
  End;
delay(paus*10);
begin
repeat
  Begin
 clrscr;
 GotoXY((mx div 2)-(length(RT) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(RT) do
  Begin
   Write(RT[a]);
   delay(paus*2);
 
  End;
 delay(paus*20);
 delay(paus*20);
 GotoXY((mx div 2)-(length(RT) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(RT) do
  Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(2);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(RT[a]);
 
  End;
 end;
 until keypressed;
 Begin
 clrscr;
 GotoXY((mx div 2)-(length(ET) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(ET) do
  Begin
   Write(ET[a]);
   delay(paus*1);
  End;
 delay(paus*10);
 delay(paus*10);
 GotoXY((mx div 2)-(length(ET) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(ET) do
 Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(0);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(ET[a]);
  End;
end;
end;
end;
 
delay(paus*10);
  delay(paus*20);
 matrix;
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru