Четверг, 10.07.2025, 19:31
Приветствую Вас гость

Сайт группы ЭПВ

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Информатика
Kpuk82Дата: Среда, 02.12.2009, 09:29 | Сообщение # 1
Always HardCore
Группа: Администраторы
Сообщений: 60
Репутация: 1
Статус: Offline
Программа по чтению массива из файла

var
strok,stolb,ch:integer;
f:text;
begin
strok:=0;
stolb:=0;
assign(f);
reset(f);
{считываем количество строк}
while not EOF(f) do
begin
read(f,ch);
inc(strok)
end;
{считываем количество столбцов}
while not EOLn(f) do
begin
read(f,ch);
inc(stolb)
end;
....
close(f)
end.

взято с http://www.cyberforum.ru/pascal/thread59706.html



 
Kpuk82Дата: Четверг, 03.12.2009, 00:28 | Сообщение # 2
Always HardCore
Группа: Администраторы
Сообщений: 60
Репутация: 1
Статус: Offline
Программa вывода на экран всех положительных элементов заданного двухмерного массива из целых чисел, размером (4х5).

uses crt;
const
str=4;{порядок матрицы}
sto=5;
var
a:array [1..str,1..sto] of integer;
i,j:integer;
begin
clrscr;
{заполняем и выыводим матрицу a}
writeln('Исходная матрица A:');
writeln('------------------');
for i:=1 to str do
begin
for j:=1 to sto do
begin
a[i,j]:=random(8)-4;
write(a[i,j],' ')
end;
writeln
end;
{выводим положительные элементы}
writeln('Полученная матрица А:');
writeln('------------------');
for i:=1 to str do
for j:=1 to sto do
if a[i,j]>0 then
write(a[i,j],' ');
writeln;
writeln('------------------')
end.

взято с http://www.cyberforum.ru/pascal/thread59685.html



 
Kpuk82Дата: Вторник, 15.12.2009, 14:28 | Сообщение # 3
Always HardCore
Группа: Администраторы
Сообщений: 60
Репутация: 1
Статус: Offline
Движущийся по траектории кораблик.

program corablik;
uses Graph, Crt;
var
grDriver: integer;
grMode: integer;
ErrCode: integer;
x,y,y0,a,b: integer;{a,b-переменные для линии моря, чтоб они не зависели от х,у}
procedure more(a,b:integer);
begin
moveto(0,y0);
setcolor(blue);
for a:=0 to 680 do{слева направо рисуем синусоиду синего чвета}
begin
b:=y0-round(sin(a*pi/180)*30);{30-коэффициент масштабирования по оси Х,
чем больше, тем волна круче}
lineto(a,b);
end;
end;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, '..\BGI');
ErrCode := GraphResult;
y0 := 250;
if ErrCode = grOk then
begin
x:=600;
while x>=0 do{лучше использовать цикл while, можно менять величину шага,
что тоже влияет на скорость и частоту смены картинки}
begin
cleardevice;
more(a,b);{рисуем волну}
setcolor(white);{устанавливаем цвет кораблика}
y:=y0-40-round(sin(x*pi/180)*30);{движемся по волне}
MoveTo(x - 40, y + 20);
LineTo(x - 20, y + 40);
LineTo(x + 20, y + 40);
LineTo(x + 40, y + 20);
LineTo(x - 40, y + 20);
MoveTo(x + 15, y + 20);
LineTo(x + 15, y - 40);
LineTo(x - 20, y + 20);
LineTo(x + 15, y + 20);
delay(100); {нормальная скорость, если модули *.TPL не глючные как у Вас,
время должно быть в миллисекундах, а не в каких-нибудь наносекундах}
x:=x-2;{шаг движения}
end;
end
else Writeln('Graphics error: ', GraphErrorMsg(ErrCode));
Settextstyle(0,0,3);{устанавливаем стиль шрифта}
cleardevice;
setcolor(red);
OuttextXY(200,240,'Rejs zavershen!');{выводим надпись(для понта)}
readln;
CloseGraph;
end.



 
Kpuk82Дата: Суббота, 19.12.2009, 00:17 | Сообщение # 4
Always HardCore
Группа: Администраторы
Сообщений: 60
Репутация: 1
Статус: Offline
http://program.rin.ru/ - все для программирования


 
  • Страница 1 из 1
  • 1
Поиск: