В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
лина28051
лина28051
02.11.2022 08:57 •  Информатика

Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на 1 м, а сторона b — неизменная. Определить площадь 15 прямоугольников.

Составляли програму по похожей задачке на вычисление площади круга, но не получается. Во первых, какие цифры писать в строке writeln ('S=',S:?:?) (для круга надо S:4:2). Второе: не пропускает строку a:=a+1; в окне вывода: нельзя изменять значение переменной цикла. А как тогда задать, что сторона меняется.
Исправьте ошибки и объясните здесь не знаю, какие цифры писать
a:=a+1; - "в окне вывода: нельзя изменять значение переменной цикла"
end;
readln;
end.

Показать ответ
Ответ:
Katya17507
Katya17507
18.11.2022 22:59

Правило получения числа из функции 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.

0,0(0 оценок)
Ответ:
llggvvjvhh
llggvvjvhh
01.04.2020 01:29

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: не забудь пометить как лучшее решение

 

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота