1 Билет
Дано действительное число х, натуральное число n. Вычислить:
;
2, 3 – 0.716666
uses crt; 5,6 – 0.238
var x,n,i,m:integer;s1,s:real; 3,4-0,4365
begin
readln(x,n);
m:=x;
s1:=1/m;
s:=s1;
for i:=1 to n do
begin
m:=m*(x+i);
s1:=1/m;
s:=s+s1;
end;
write(s:12:9);
readln;
end.
Вычислить произведение элементов первых двух строк.
var a:array[1..3,1..4] of integer;i,j,p:integer;
begin
p:=1;
for i:=1 to 4 do
for j:=1 to 3 do
if Length(StringGrid1.Cells[i-1, j-1]) <>0 then a[j,i] := StrToInt(StringGrid1.Cells[i-1,j-1])
else a[j,i] := 0;
for i:=1 to 2 do
for j:=1 to 4 do
p:=p*a[i,j];
label1.Caption:=inttostr(p);
end;
2 Билет
Дано действительное число х, натуральное число n. Вычислить:
;
uses crt;
var x,n,k,i,b:integer; p:real; 3,4-15,375
begin 5,6-112,118
readln(x,n);
k:=1;
b:=1;
p:=0;
for i:=1 to n do
begin
k:=k*i;
b:=b*x;
p:=p+b/k;
end;
write(p);
end.
Вывести номера второго, четвертого и пятого положительных элементов.
var a:array[1..10]of Integer; i,k:Integer;
f:TextFile;
begin
AssignFile(f,'1.txt');
Rewrite(f);
k:=0;
for i:=1 to 10 do
begin
a[i]:=Random(9)-1;
lbl1.Caption:=lbl1.Caption+inttostr(a[i])+' ';
if a[i]>0 then
begin
k:=k+1;
if (k=2) or (k=4)or(k=5)then write(f,i,' ');
end;
end;
CloseFile(f);
end;
3 Билет
Дано натуральное n. Вычиcлить:
n=3
p=16,25 s=4,16666 n=5 p=66,630 s=4,425
var n,m,i:integer; p,s,l:Real;f:TextFile;
begin
AssignFile(f,'1.txt');
Rewrite(f);
n:=StrToInt(edt1.Text);
m:=1;
s:=2+1/m;
p:=s;
l:=(1+1)/m;
for i:=2 to n do
begin
m:=m*i;
s:=2+1/m;
p:=p*s;
l:=l+(1+i)/m;
end;
write(f,p,' ',l);
CloseFile(f);
end;
Вычислить произведение элементов над главной диагональю матрицы и определить их количество.
uses crt;
var a:array[1..4,1..4]of integer;i,j,p,k:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(3)+1;
write(a[i,j],' ');
end;
writeln;
end;
p:=1;
writeln;
for i:=1 to 3 do
for j:=i+1 to 4 do
p:=p*a[i,j];
write(p);
end.
4 Билет
Написать программу для вычисления подоходного налога для исходного значения оклада D. Подоходный налог с этой суммы вычисляется следующим образом: Если D<=8000, тогда налог 5%; Если 8000<D<=15000, тогда налог 10%; Если 15000<D<=25000, тогда налог 15%; Если 25000<D<=45000, тогда налог 20%; Если 45000<D<=80000, тогда налог 30%; В остальных случаях - налог 40%. Предусмотреть: ввод числа в переменную D, вычисление и вывод значения подоходного налога, вывод значение оклада с учетом подоходного налога.
uses crt;
var d,p:real;f:text;
begin
clrscr;
read(d);
assign(f,'1.txt');
rewrite(f);
if d<=8000 then begin p:=0.05*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
if (d>8000) and (d<=15000) then begin p:=0.1*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
if (d>15000) and (d<=25000) then begin p:=0.15*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
if (d>25000) and (d<=45000) then begin p:=0.2*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
if (d>45000) and (d<=80000) then begin p:=0.3*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
if d>=80000 then begin p:=0.4*d; d:=d-p; write(f,'nalog=',p,' oklad=',d);end;
close(f);
readln;
end.
Определить сумму номеров 2 и 3 отрицательного элементов. Вывести эти номера.
var a,b:array[1..10]of Integer; i,k,m:Integer;
begin
k:=0; m:=0;
for i:=1 to 10 do
begin
a[i]:=Random(5)-3;
write(a[i],' ');
if a[i]<0 then
begin
k:=k+1;
b[k]:=i;
end;
end;
writeln;
m:=b[2]+b[3];
writeln(b[2],' ',b[3],' ',m);
end.