2 задача совсем простая.
Sub Devochki
Dim Year1 As Integer, Year2 As Integer
Input "Vvedite 1 god roghdeniya", Year1
Input "Vvedite 2 god roghdeniya", Year2
If Year2 = Year1 Then
_ _ _Print "Vozrast devochek odinakoviy"
ElseIf Year1 > Year2 Then
_ _ _Print "2 devochka starshe 1"
Else
_ _ _Print "1 devochka starshe 2"
End If
End Sub
1) Намного сложнее. Нужно посчитать радиусы R1 и R2 > R1, зная ширину кольца R2 - R1 = A и отношение радиусов B.
Если B = 1, но A не = 0; или A = 0, но B не = 1, то такого не может быть.
Это противоречие.
Иначе. Если B = 1 и A = 0, то R1 = R2, тогда площадь кольца S = 0.
Если B < 1, то R1/R2 = B.
Получаем: R1=R2-A=R2*B, отсюда R2=A/(1-B); R1=R2*B=A*B/(1-B)
Если B > 1, то R2/R1 = B
Получаем R1=R2-A=R2/B, отсюда R2=A/(1-1/B)=A*B/(B-1); R1=R2/B=A/(B-1)
В обоих случаях площадь S = pi*R2^2 - pi*R1^2 = pi*(R2^2 - R1^2)
Sub Kolco
Dim A As Double, B As Double
Dim R1 As Double, R2 As Double, S As Double
Const Pi = 3,141592653589
Input "Vvedite A", A
Input "Vvedite B", B
If ((B = 1) And (A <> 0)) Or ((B <> 1) And (A = 0)) Then
_ _ _Print "Protivorechie"
Else
_ _ _If (B = 1) Or (A = 0) Then
_ _
_ _ _S = 0
_ _ _ElseIf (B < 1) Then
_ _
_ _ _R1 = A*B/(1 - B): R2 = A/(1 - B)
_ _
_ _ _S = Pi*(R2*R2 - R1*R1)
_ _ _Else
_ _
_ _ _R1 = A/(B - 1): R2 = A*B/(B - 1)
_ _
_ _ _S = Pi*(R2*R2 - R1*R1)
_ _ _End If
_ _ _Print "S = " & S
End If
End Sub
Документ <span>«Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».</span>
В Паскале чтобы вывести вместо переменной текст, или чтобы присвоить строковой переменной значение используется не двойная, а одинарная кавычка - '
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
B:array[1..M,1..N] of integer;
i,j:integer;
Begin
WriteLn('А: ');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('Б: ');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
B[i,j]:=A[j,i];
Write(B[i,j]:3,' ')
End;
WriteLn
End;
End.
1) var i,d,q:integer;
begin
d:=1;
for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же}
d:=d+q;
writeln(q,' ',d);
end.
2) var i,d,q:integer;
begin
d:=1;
for q:=4 downto 1 do
d:=d+q;
writeln(q,' ',d);
<span>end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)
var i,d,q:integer;
begin
d:=1;
q:=1;
d:=d+q;
writeln(q,' ',d);
<span>end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)
А так как нет изменений то и переработать нельзя в цикл for</span></span>