<em>Microsoft QBasic 1.0</em>
DIM x AS DOUBLE, a AS DOUBLE, b AS DOUBLE, h AS DOUBLE
CLS
INPUT "a=", a
INPUT "b=", b
INPUT "h=", h
FOR x = a TO b + h / 2 STEP h
IF ABS(x) <= 1 THEN
y = 1 / x * x + 1
ELSE
y = x ^ 3 - 5
END IF
PRINT x, y
NEXT x
<u>Пример</u>
a=0.5
b=6
h=0.25
.5 2
.75 2
1 2
1.25 -3.046875
1.5 -1.625
1.75 .359375
2 3
2.25 6.390625
2.5 10.625
2.75 15.79688
3 22
3.25 29.32813
3.5 37.875
3.75 47.73438
4 59
4.25 71.76563
4.5 86.125
4.75 102.1719
5 120
5.25 139.7031
5.5 161.375
5.75 185.1094
6 211
Время передачи файла размером 512Кб через некоторое соединение 2секунды. Найдите объем файла передающегося через это же соединение за 8 секунд. (ответ 2Мб)
var i,n,b:integer;
a:array [1..100] of integer;
begin
Randomize;
write('Сколько элементов в массиве: ');
readln(n);
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
b:=b+a[i];
end;
writeln(' ');
write('Сумма всех элементов массива: ',b);
end.
N/2
при нечетном н результат округлится вниз и центральный элемент никуда не переместится, но ответ будет верным
var num1,num2,i:integer;
nums:array [1..10] of integer;
begin
i:=1;
while (i <= 10) begin
writeln('Vvedite ',i,' paru!');
write('num 1: ');readln(num1);
write('num 2: ');readln(num2);
if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2;
i:=i+1;
end;
i:=1;
while(i<=10)begin
write(nums[i],' ');
i:=i+1;
end;
end.