Turbo Pascal
- Автор теми NebsteR
- Дата створення
Ответ: Turbo Pascal
2.
p.s. если б учили процедуры, писать в 2-3 раза меньше пришлось бы.
1.
Код:
program kyky;
uses crt;
CONST M=10;
var x:array[1..M] of integer;
j,i,t,n:integer;
begin
clrscr; randomize;
for i:=1 to M do
begin
t:=random(20);
x[i]:=t;
write(x[i],' ');
end;
write('na skoka sdvigat`? ');
read(n);
for j:=1 to n do
begin
t:=x[M];
for i:=M downto 2 do
x[i]:=x[i-1];
x[1]:=t;
end;
gotoxy(25,0);
for i:=1 to M do
write(x[i],' ');
readln; readln;
end.2.
Код:
program mde;
uses crt;
CONST M=5; N=5;
VAR a,b:array[1..M,1..N] of integer;
cas,z,q,i,x,j,y:integer;
begin
clrscr; randomize;
for i:=1 to M do
for j:=1 to N do
begin
x:=random(20);
a[i,j]:=x;
end;
y:=8;
for i:=1 to M do
begin
for j:=1 to N do
begin
case j of
1:x:=15;
2:x:=18;
3:x:=21;
4:x:=24;
5:x:=27;
end;
Gotoxy(x,y);
write(a[i,j]);
end;
inc(y,2);
end;
gotoxy(10,2);
writeln('Wo ti xo4ew menyat`? Elsi stolbiki, piwu 1, esli stroki-2');
read(cas);
if cas=1 then
begin
writeln('Kakie menyat` stolbiki');
read(z,q);
for i:=1 to N do
begin
b[i,z]:=a[i,z];
a[i,z]:=a[i,q];
a[i,q]:=b[i,z];
end; end;
if cas=2 then
begin
writeln('Kakie menyat` stroki`');
read(z,q);
for i:=1 to M do
begin
b[z,i]:=a[z,i];
a[z,i]:=a[q,i];
a[q,i]:=b[z,i];
end; end;
y:=8;
for i:=1 to M do
begin
for j:=1 to N do
begin
case j of
1:x:=35;
2:x:=38;
3:x:=41;
4:x:=44;
5:x:=47;
end;
Gotoxy(x,y);
write(a[i,j]);
end;
inc(y,2);
end;
readln;
end.
Останнє редагування:
Ответ: Turbo Pascal
Если автор не изменял путь, предлагаемый по умолчанию при сохранении программы, то этот путь необходимо прописывать. Хотя, у него была другая проблема. :roll:
Ответ: Turbo Pascal
есть программа, которая использует модули CRT, Graph. Как сделать EXE файл, чтобы можно было его открыть на любом компьютере? А то, я делаю ЕХЕ файл, но если я иницилизирую графику(Gd:=detect; InitGraph(Gd,Gm,''); ), то:
1)если он остается в папке с паскалем, то всё нормально работает
2)если его скопировать в другую папку, то при запуске этого ЕХЕ файла появляется на доли секунды окно ДОС и так же быстро пропадает(естественно ничего не работает).
Если я при иницилизации графику немного по-другому( Gd:=detect, InitGraph(Gd,Gm,'указываю путь к паскалю'), то ЕХЕ файл нормально запускается только на моем компе, с любой папки. Если поменять название папки с паскалем, то ничего уже не работает.
Так как сделать ЕХЕ файл, чтобы он работал на любых компах?
есть программа, которая использует модули CRT, Graph. Как сделать EXE файл, чтобы можно было его открыть на любом компьютере? А то, я делаю ЕХЕ файл, но если я иницилизирую графику(Gd:=detect; InitGraph(Gd,Gm,''); ), то:
1)если он остается в папке с паскалем, то всё нормально работает
2)если его скопировать в другую папку, то при запуске этого ЕХЕ файла появляется на доли секунды окно ДОС и так же быстро пропадает(естественно ничего не работает).
Если я при иницилизации графику немного по-другому( Gd:=detect, InitGraph(Gd,Gm,'указываю путь к паскалю'), то ЕХЕ файл нормально запускается только на моем компе, с любой папки. Если поменять название папки с паскалем, то ничего уже не работает.
Так как сделать ЕХЕ файл, чтобы он работал на любых компах?
![[Spider]](/data/avatars/m/11/11262.jpg?1391470329){kind=avatar}
dreamer
Member
Ответ: Turbo Pascal
Или просто распространять его вместе с программой и указывать относительный путь к драйверу.
Djmon
New Member
Ответ: Turbo Pascal
Ребята!
1. Как можно с типизированного файла, заполненого записями, в которых, допустим, есть имя и возраст, выбрать людей, возраст которых ниже заданного при поиске.
2. Как можно организовать рабочее меню выбора операций с подпунктами с защитой "от дурака"?
3. Существует ли более оптимальный переход нежели Label?
Ребята!
1. Как можно с типизированного файла, заполненого записями, в которых, допустим, есть имя и возраст, выбрать людей, возраст которых ниже заданного при поиске.
2. Как можно организовать рабочее меню выбора операций с подпунктами с защитой "от дурака"?
3. Существует ли более оптимальный переход нежели Label?
dreamer
Member
Ответ: Turbo Pascal
1. Как можно с типизированного файла, заполненого записями, в которых, допустим, есть имя и возраст, выбрать людей, возраст которых ниже заданного при поиске.
--- Читаем по одной записи из файла, проверяем необходимое условие, если выполняется то обработать запись (вывести на экран или занести куда-то)
2. Как можно организовать рабочее меню выбора операций с подпунктами с защитой "от дурака"?
--- например выводить варианты выбора пронумерованные и просить нажать номер, плюс отвести один пункт (например 0) на опцию "Вернуться на уровень выше"
3. Существует ли более оптимальный переход нежели Label?
--- конечно существует, нет практически ни одного алгоритма где не обойтись без него. Все сложные случаи реализуются через repeat + case:
1. Как можно с типизированного файла, заполненого записями, в которых, допустим, есть имя и возраст, выбрать людей, возраст которых ниже заданного при поиске.
--- Читаем по одной записи из файла, проверяем необходимое условие, если выполняется то обработать запись (вывести на экран или занести куда-то)
2. Как можно организовать рабочее меню выбора операций с подпунктами с защитой "от дурака"?
--- например выводить варианты выбора пронумерованные и просить нажать номер, плюс отвести один пункт (например 0) на опцию "Вернуться на уровень выше"
3. Существует ли более оптимальный переход нежели Label?
--- конечно существует, нет практически ни одного алгоритма где не обойтись без него. Все сложные случаи реализуются через repeat + case:
Код:
state := START;
repeat
case state of
OPT1:
do_some_thing;
state := OPT2;
OPT_EXIT:
state := EXIT;
end;
until state = EXIT;
