#правильная запись формулы, вычисляющей произведение содержимого ячеек а1 и в1 в мs excel -=а1*в1; -с1=а1*в1; -=сумм(а1*в1); -а1*в1. #применить субд рекомендуется в случае, если даны: -список из четырех фамилий и адресов; -перечень дней рождения членов семьи из шести человек; -перечень клиентов крупной фармацевтической фирмы; -три ваши любимые песни.
Ответы
program t1;
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to 10 do
begin
mas[i] := random (100) - 50;
write (mas[i]);
end;
begin
for j:=1 to 9 do
for i:=1 to 9-j do
if M[i] < M[i+1] then
swap(mas[i],mas[i+1])
end;
writeln
for i := 1 to 10 do write (mas[i]);
end;
end. program z1;
uses crt;
var i, n:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write(' размер =' );readln(n);
for i:=1 to n do
begin
a[i]:=random(46))+1;
write(a[i], ' ' );
end;
for i:=n downto 1 do
write(a[i],' ');
readkey;
end.
program z2;
uses crt;
var i, n, r: integer;
a: array[1.. 10000] of integer;
begin
clrscr;
randomize;
write
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
i:=1;
while i<=n-1 do
begin
r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
inc(i,2);
end;
for i:=1 to n do
write(a[i],' ');
readkey;
end.
Задача 3.
program z3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
max:=a[i]; imax:=i;
end;
end;
readkey;
end.
program z4;
const N=10;
type Mas=fray [1..N] of integer;
var a: Mas;
i: integer;
S:integer;
begin
randomize;
for i:=l to N do
begin
a[i]:=-100+random(201);
write(a[i]:5)
end;
writeln;
S:=0;
if A[i]>0 then
S:=S+A[i];
writel
readln
end.
program z5;
uses crt;
var i,k,,r:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write(' число элемен. п=');readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i], ' ');
{Проверяем на четность и считаем количество четных элементов.}
if a[i] mod 2=0 then inc(k, 1);
end;
write('k= ',k);
readkey
end.
DIM f AS INTEGER, p AS INTEGER
CLS
FOR x = 0 TO 40
y = x * x + x + 41
IF y MOD 2 = 0 THEN f = -1 ELSE f = 0
p = 3
DO WHILE f = 0 AND p * p <= y
IF y MOD p = 0 THEN f = -1 ELSE f = 0
p = p + 2
LOOP
IF f = 0 THEN
PRINT "x="; x, "y="; y, "Is Prime"
ELSE
PRINT "x="; x, "y="; y, "Not Prime"
END IF
NEXT x
END
Обнаружился странный эффект qBASIC.
Последовательность команд:
y:=x^2+x+41 для x=40 присваивает у значение 1681.
Для p=41 значение p^2 также равно 1681, но значение выражения
p^2<=y при этом оказывается ложным, хотя p^2 в этом случае должно быть равно у.
В связи с этой странностью вместо х^2 использовано х*х, а вместо p^2 использовано р*р.
Результат выполнения программы:
x= 0 y= 41 Is Prime
x= 1 y= 43 Is Prime
x= 2 y= 47 Is Prime
x= 3 y= 53 Is Prime
x= 4 y= 61 Is Prime
x= 5 y= 71 Is Prime
x= 6 y= 83 Is Prime
x= 7 y= 97 Is Prime
x= 8 y= 113 Is Prime
x= 9 y= 131 Is Prime
x= 10 y= 151 Is Prime
x= 11 y= 173 Is Prime
x= 12 y= 197 Is Prime
x= 13 y= 223 Is Prime
x= 14 y= 251 Is Prime
x= 15 y= 281 Is Prime
x= 16 y= 313 Is Prime
x= 17 y= 347 Is Prime
x= 18 y= 383 Is Prime
x= 19 y= 421 Is Prime
x= 20 y= 461 Is Prime
x= 21 y= 503 Is Prime
x= 22 y= 547 Is Prime
x= 23 y= 593 Is Prime
x= 24 y= 641 Is Prime
x= 25 y= 691 Is Prime
x= 26 y= 743 Is Prime
x= 27 y= 797 Is Prime
x= 28 y= 853 Is Prime
x= 29 y= 911 Is Prime
x= 30 y= 971 Is Prime
x= 31 y= 1033 Is Prime
x= 32 y= 1097 Is Prime
x= 33 y= 1163 Is Prime
x= 34 y= 1231 Is Prime
x= 35 y= 1301 Is Prime
x= 36 y= 1373 Is Prime
x= 37 y= 1447 Is Prime
x= 38 y= 1523 Is Prime
x= 39 y= 1601 Is Prime
x= 40 y= 1681 Not Prime
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
2) перечень клиентов крупной фармацевтической фирмы