Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
1)PROGRAM TABL_V_FAIL ;
USES GRAPHABC, CRT;
VAR X,Y:BYTE;
M: array[0..10, 0..10] OF BYTE;
F: file OF BYTE ;
BEGIN
assign(F,'D:\DOC\REZULT.DAT');
rewrite(F);
for x:=1 to 10 do
for y:=1 to 10 do
BEGIN
M[x,y]:=x*y;
GOTOXY(X*3,Y); WRITE(M[X, Y]);
WRITE (f, 47+M[X, Y])
END ;
close(F);
END.
2) PROGRAM SINUSOIDA;
USES GRAPHABC, CRT;
VAR X,Y:BYTE;
F:file OF BYTE;
BEGIN
assign(F,'D:\DOC\REZULT.DAT');
rewrite(F);
for X:=0 to 128 do
BEGIN
Y:=80-ROUND(20*sin(x/10));
write(F,Y);
SETPIXEL(X,Y,CLGREEN)
END;
close(F);
END.
3) PROGRAM GAUS;
USES GRAPHABC;
VAR X,Y: BYTE;
F: file OF BYTE;
BEGIN
assign(f,'D:\DOC\REZULT.DAT'); rewrite(F);
for x:=0 to 200 do
BEGIN
Y:=120-ROUND(75*exp(-sqr(x-100)/(2*sqr(15))));
setpixel(X,Y,clred);
write(F,Y);
END;
CLOSE(F);
END.
4) VAR N, N_MAX, k: BYTE;
M:ARRAY[1..250] OF BYTE;
F:FILE OF BYTE;
BEGIN
CLRSCR;
ASSIGN(F, 'D:\DOC\DATA.DAT');
reset(F);
N:=0;
while not eof(F) do
BEGIN
N:=N+1;
read(f, M[N]);
SETPIXEL(N,M[N],CLRED);
END;
CLOSE(F);
ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);
k:=N;
FOR N:=1 TO k DO
BEGIN
write(f,M[N]-20);
SETPIXEL(N,M[N]+10,CLGREEN)
END;
CLOSE(F);
END.
5) PROGRAM LOAD;
USES GRAPHABC, CRT;
VAR X, Y1, Y2, Y3 : BYTE;
F1, F2, F3: FILE OF BYTE;
BEGIN
ASSIGN(F1,'D:\DOC\DATA1.DAT'); RESET(F1);
ASSIGN (F2,'D:\DOC\DATA2.DAT'); RESET(F2);
ASSIGN (F3,'D:\DOC\REZULT.DAT'); REWRITE(F3);
X:=1;
while NOT EOF (F1) AND NOT EOF(F2) DO
BEGIN
X:=X+1;
READ(F1,Y1); READ(F2,Y2); Y3:=Y1+Y2-250;
SETPIXEL(X,Y1,CLRED);
SETPIXEL(X,Y2,CLGREEN);
SETPIXEL(X,Y3,CLBLUE);
WRITE(F3,Y3)
END;
CLOSE(F1);
CLOSE(F2);
CLOSE(F3)
END.
6) PROGRAM CHITAT;
USES GRAPHABC, CRT;
VAR N, N_MAX: BYTE;
M:ARRAY[1..250] OF BYTE;
F:FILE OF BYTE;
BEGIN
CLRSCR;
ASSIGN(F, 'D:\DOC\DATA.DAT');
RESET(F);
SEEK(f, 40);
N:=0;
WHILE NOT EOF(F) DO
BEGIN
N:=N+1;
READ(F, M[N]);
SETPIXEL(N,M[N],CLRED);
END;
CLOSE(F);
N_MAX:=N;
ASSIGN(F, 'D:\DOC\REZULT.DAT'); RESET(F);
SEEK(f, FILESIZE(F));
FOR N:=1 TO N_MAX DO
BEGIN
WRITE(F,M[N]);
8) PROGRAM LOAD_FILE;
USES GRAPHABC,CRT;
VAR
N, N_MIN, K: BYTE;
M: ARRAY [0..400] OF BYTE;
F: FILE OF BYTE;
BEGIN
ASSIGN(F, 'D:\DOC\DATA.DAT'); RESET(F);
N:=0;
WHILE NOT EOF(F) DO
BEGIN
N:=N+1;
READ (F, M[N]);
SETPIXEL(N,M[N],CLGREEN)
END ;
CLOSE(F); K:=N;
ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);
for N:=K DOWNTO 1 do
BEGIN
WRITE(F, M[N]);
SETPIXEL(K-N,M[n],CLRED)
END ;
CLOSE(F)
END.
9) RESET(F);
N:=0;
WHILE NOT EOF(F) DO
BEGIN
N:=N+1;
READ (F, M[N]);
SETPIXEL(N,M[N],CLRED);
END;
CLOSE(F);
K:=N;
FOR J:=1 TO K DO
BEGIN
FOR N:=2 TO K DO
IF M[N]<M[N-1] THEN
BEGIN
BUF:=M[N];M[N]:=M[N-1]; M[N-1]:=BUF
END ;
ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);
FOR N:=1 TO K DO
BEGIN
WRITE(F,M[N]);
SETPIXEL(N,M[N]+2,CLGREEN)
END;
CLOSE(F)
10) ASSIGN(F, 'D:\DOC\DATA.DAT');
reset(F);
N:=0;
WHILE NOT eof(F) DO
BEGIN
N:=N+1;
read(F, M[N]);
SETPIXEL(N,M[N],CLRED);
…………………………
N_MAX:=N;
for j:=N TO k DO
IF M[J]>M[n_max]
THEN N_MAX:=J;
buf:=M[N];
M[N]:=M[n_max];
M[n_max]:=buf;
END;
ASSIGN(F, 'D:\DOC\REZULT.DAT'); rewrite(F);
………
write(F,M[N]);
SETPIXEL(N,M[N]+2,CLGREEN)
END;
close(F)
7) N:=0;
WHILE NOT Eof(F) DO
BEGIN
N:=N+1;
READ(F, M[N]);
WRITE(M[N], ' ');
END ;
CLOSE(F); k:=n;
ASSIGN(F, 'd:\doc\rezult.dat'); REWRITE(F);
N_min:=1;
for N:=1 to k do
if M[N_min]> M[N] then
N_min:=n;
WRITE(F,M[N_min],N_min);
CLOSE(F)
END.