Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на 1 м, а сторона b — неизменная. Определить площадь 15 прямоугольников.
Составляли програму по похожей задачке на вычисление площади круга, но не получается. Во первых, какие цифры писать в строке writeln ('S=',S:?:?) (для круга надо S:4:2). Второе: не пропускает строку a:=a+1; в окне вывода: нельзя изменять значение переменной цикла. А как тогда задать, что сторона меняется.
Исправьте ошибки и объясните здесь не знаю, какие цифры писать
a:=a+1; - "в окне вывода: нельзя изменять значение переменной цикла"
end;
readln;
end.
Правило получения числа из функции Random(X):
0 <= RandomNum < X
1)
От 1 до 10 – Random(10)+1
От -10 до 10 – Random(21)-10
От 50 до 100 – Random(51)+50
2)
Y:=10+Random(5)
Random(5):
Левая граница = 0
Правая граница = 4
Отсюда, Y ∈ [10; 14].
3)
// PascalABC.NET
// Версия 3.4.2, сборка 1956 (01/30/19)
var
arr: array[0..99] of integer;
p, n: integer;
begin
(p, n) := (0, 0);
for var i := 0 to 99 do
begin
arr[i] := Random(41) - 20;
if (arr[i] > 0) then inc(p)
else if (arr[i] < 0) then inc(n);
end;
Println('Positive:', p);
Println('Negative:', n);
end.
Program zadacha;
Var x,y,z,ans:Int64;
Begin
ReadLn(x,y,z);
If (x>0) and (y>0) and (z>0) then Inc(ans);
If (ans=0) then WriteLn('Такой треугольник построить нельзя') else begin
Write('Такой треугольник можно построить');
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным') else
If(x=y) and (x=z) and (z=y) then Write(', он будет равносторонним')else
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным');
If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then
write(', он будет прямоугольным.') else
If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(', он будет остроугольным.')
else write(', он будет тупоугольгым.');
end;
End.
ps: не забудь пометить как лучшее решение