Перевести число из 10 системы счисления в двоичную.
uses crt;
var a, i: integer; s, v: string;
clrscr;
readln(a);
s:=’’;
repeat
begin
i:= a mod 2;
str(i, v);
s:=v+s;
a:=a div 2;
end;
until a<1;
write(s);
repeat until keypressed;
end.
- Третий положительный элемент массива заменить максимальным.
procedure TForm1.btn1Click(Sender: TObject);
var a: array[1..10] of Integer; i, k, m: Integer;
begin
Randomize;
for i:= 1 to 10 do
begin
a[i]:=random(19)-9;
lbl1.Caption:=lbl1.Caption+inttostr(a[i])+' ';
end;
m:=a[1];
for i:= 2 to 10 do
if a[i]>m then m:=a[i];
k:=0;
for i:= 1 to 10 do
begin
if a[i]>0 then k:=k+1;
if k=3 then begin a[i]:=m; k:=4;
end;
end;
for i:= 1 to 10 do
lbl2.Caption:=lbl2.Caption+inttostr(a[i])+' ';
end;
1. Вывести на экран список «счастливых билетов». Найти вероятность того, что в общественном транспорте попадется «счастливый билет». «Счастливым билетом» считать билет, сумма первых трех цифр которого равна сумме последних трех.
Uses crt;
Var I,j,a,b,c,d:integer; e:real; k,l:longint;
Begin
Clrscr;
K:=0, l:=0;
For i:=0 to 9 do
For j:=0 to 9 do
For a:=0 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
Begin
L:=l+1;
If i+j+a=b+c+d then
Begin
Write (I,j,a,b,c,d,’ ‘);
K:=k+1;
End;
End;
Writeln;
E:=k/l*100;
Write(e);
Readln;
End.
- Дана матрица NxM. Переставляя ее строки и столбцы, переместить наибольший элемент в верхний левый угол. Определить можно ли таким же образом поместить минимальный элемент в нижний правый угол.
procedure TForm1.Button1Click(Sender: TObject);
var i, j, tmp, maxi, maxj, mini, minj: integer;
a: array [1..5, 1..5] of integer;
begin
randomize;
for i:= 1 to 5 do
for j:= 1 to 5 do begin
a[i][j]:= random(100);
stringgrid1.Cells[j - 1, i - 1]:= inttostr(a[i][j]);
end;
maxi:= 1;
maxj:= 1;
mini:= 1;
minj:= 1;
for i:= 1 to 5 do
for j:= 1 to 5 do begin
if a[i][j] > a[maxi][maxj] then begin
maxi:= i;
maxj:= j;
end;
if a[i][j] < a[mini][minj] then begin
|
|
|
mini:= i;
minj:= j;
end;
end;
for i:= 1 to 5 do begin
tmp:= a[i][maxj];
a[i][maxj]:= a[i][1];
a[i][1]:= tmp;
end;
for j:= 1 to 5 do begin
tmp:= a[maxi][j];
a[maxi][j]:= a[1][j];
a[1][j]:= tmp;
end;
for i:= 1 to 5 do begin
for j:= 1 to 5 do
stringgrid2.cells[j - 1, i - 1]:= inttostr(a[i][j]);
end;
if (mini <> maxi) and (minj <> maxj) then
label1.caption:= 'Possible'
else
label1.caption:= 'Impossible';
end;
end.
Дата добавления: 2015-12-17; просмотров: 20; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!