Samat

1.Ввести вещественные числа A и B (A B > ). На отрезке длины A размещено максимальное количество отрезков длины B без наложений. Без использования операции умножения и деления найти длину незанятой части A и количество содержащихся в нём отрезков.
Если можно то и блог схему

Евгений

var A,B,sum:Real;
n:integer;
begin
Write('A=');
Readln(A);
Write('B<A=');
Readln(B);
n:=0;
sum:=0;
repeat
if (sum+B)>A then break
else
begin
sum:=sum+B;
Inc(n);
end;
until (sum+B)>A;
Writeln('Ne zanyato=',(A-sum):0:2);
Writeln('Otrezkov B v A =',n);
Readln;
end.

Блок схемы рисовать не умею.

Samat

Спасибо большое,а вот такое не сможете помочь ?Дан массив K(N). Преобразовать его, упорядочив по убыванию все элементы, стоящие после второго нулевого. Выдать на печать исходный и упорядоченный массивы. Если преобразование невозможно, то выдать об этом сообщение

Евгений

const n=10;
var A:array[1..n] of integer;
t,e,i,j:integer;
begin
for i:=1 to n do
begin
A[i]:=Random(26)-15;
Write(A[i]:4);
end;
Writeln;
t:=0;
e:=0;
repeat
Inc(e);
if A[e]=0 then Inc(t);
if t=2 then break;
if e=n then break;
until (t=2) or (e=n);
if t<2 then Writeln('Nevozmozhno')
else
begin
for i:=e+1 to n-1 do
for j:=e+1 to n-1 do
if a[j]<A[j+1] then
begin
t:=A[j];
A[j]:=A[j+1];
A[j+1]:=t;
end;
for i:=1 to n do Write(A[i]:4);
end;
Readln;
end.

Samat

кто поможет с блог схемами
Есть программы, которые рисуют блок схемы по тексту программы. попробуйте поискать таковые самостоятельно.