end; repeat until keypressed;

End.

Семакин стр. 253 N 129}

{Дано 12345678910111213, вывести К цифру}

Program N129;

Uses crt;

Var

k:integer;

i,j:byte;

c:array[1..10] of longint;

n,n1,n2,a,b,t:longint;

Begin

clrscr; n1:=123456789; n2:=10111213; b:=10;

writeln('Введите К цифру'); readln(k); writeln(n1,n2);

if k<=9 then writeln(k,' цифра ',k); if k>9 then

Begin

j:=8; a:=n2;

for i:=1 to 8 do

Begin

t:=a div b; a:=a mod b; c[j]:=a; a:=t; j:=j-1;

End;

writeln(k,' цифра ',c[k-9]);

End; repeat until keypressed;

End.

Семакин стр. 253 N 131, вариант 3}

{перевести число из десятичной системы счисления в двоичную}

Program N131;

Uses crt;

Var

i,j,k:byte;

c,b:array[1..10] of longint;

n:longint;

begin clrscr; writeln('Введите число в 10 с/c '); readln(n);

i:=1;k:=1; write('двоичный код ');

while n>=1 do

Begin

c[i]:=n-2*(n div 2);

n:=n div 2;

i:=i+1;

End;

for j:=i-1 downto 1 do

Begin

b[k]:=c[j]; write(b[k]); k:=k+1

End;

Repeat until keypressed;

End.

{Семакин стр. 253 N 131, вариант 3}

{перевести число из десятичной системы счисления в двоичную}

Program N131;

Uses crt;

Var

i,j,k:byte;

c,b:array[1..10] of longint;

n:longint;

begin clrscr; writeln('Введите число в 10 с/c '); readln(n);

i:=1;k:=1; write('двоичный код ');

while n>=1 do

Begin

c[i]:=n-2*(n div 2);

n:=n div 2;

i:=i+1;

End;

for j:=i-1 downto 1 do

Begin

b[k]:=c[j]; write(b[k]); k:=k+1

End;

Repeat until keypressed;

End.

Program Ro_1;

{Работа с файлами

Вводится файл, представляющий собой набор чисел, вывести его в

обратном порядке}

Uses crt;

Var

f:text; s:string; i,h,g,k:integer;

a:array[1..100] of string; b:array[1..100] of string;

Begin

clrscr; i:=1;

assign(f,'pas.in');reset(f);

While not eof(f) do

Begin

readln(f,s); a[i]:=s; write(a[i],' '); i:=i+1;

end; writeln; g:=i-1; h:=5;

for k:=1 to g do

Begin

b[k]:=a[g]; write(b[k],' '); g:=g-1;

End;

Repeat until keypressed;

End.

Program Rozdest_Zenya_2;

{Вводится файл iz.in, в начале которого, записано количество координат

Садоводческих участков. Требуется определить координаты изгороди, которая

оградит все участки садоводства, и вывести их в файл iz.out}

Uses crt;

Var i,j,i1,j1,min,max,min1,max1:integer;

mas:array[1..100,1..100] of integer;

mas1:array[1..100] of integer;

mas2:array[1..100] of integer;

file_text:text;

Begin clrscr; i:=1;

j:=1;

assign(file_text,'iz.in');

Reset(file_text);

Readln(file_text);

While not seekeof(file_text) do

Begin

While not seekeoln(file_text) do

Begin

read(file_text,mas[i,j]);

write(mas[i,j],' ');

j:=j+1; end;

Writeln;

Readln(file_text);

i:=i+1; j:=1;

End;

Close(file_text);

Writeln; writeln;

min:=1000; max:=-1; min1:=10000; max1:=-2; i:=i-1;

for i1:=1 to i do

Begin

if mas[i1,1]<min then min:=mas[i1,1];

if mas[i1,1]>max then max:=mas[i1,1];

if mas[i1,2]<min1 then min1:=mas[i1,2];

if mas[i1,2]>max1 then max1:=mas[i1,2];

End;

writeln('координаты изгороди:');

writeln(min,' ',min1);

writeln(min,' ',max1);

writeln(max,' ',max1); writeln(max,' ',min1); writeln(i);

for i1:=1 to i do begin

mas1[i1]:=mas[i1,1];

mas2[i1]:=mas[i1,2];

write(mas1[i1],' '); end; writeln;

for i1:=1 to i do

begin write(mas2[i1],' ');

End;

Repeat until keypressed;

End.

Дата добавления: 2015-11-04