М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anitabmw
anitabmw
03.07.2020 17:18 •  Информатика

Составить программу на языке паскаль, нахождение периметра и площади по трем сторонам( информатик сказал что нужно чтобы можно было выбирать или площадь или периметр) составить программу на языке паскаль по нахождение элементов одномерного массива заданное от 0 до 100 100

👇
Ответ:
husanov18p06h9l
husanov18p06h9l
03.07.2020
Var
a,b,c,p,s:real;
m:integer;
begin
 repeat
   writeln('a,b,c &'); 
   readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг}
 until (a<b+c)and(b<a+c)and(c<a+b);
   writeln('площадь - введите 1 или периметр -2 ?');
{выбираем что считать, если площадь, то вводим 1, периметр - 2}
readln(m); 
   case m of   
     1:
        begin
            p:=(a+b+c)/2;
            writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади}
        end;
      2:writeln(a+b+c); {вывод периметра}
     end;
end.
     программа 2 Нахождение суммы элементов одномерного массива
const
n=10;
Var
a:array[1..n]of integer;
i,s:integer;
begin
   for i:=1 to n do
         begin
              a[i]:=random(100); {заполнение массива случайными числами [0.100)}
              write(a[i]:4); {выводим на экран массив}
              s:=s+a[i];   {считаем сумму}
         end;
writeln;
writeln('S= ',s); {выводим сумму}
end.
4,8(71 оценок)
Открыть все ответы
Ответ:
dimaandreevich
dimaandreevich
03.07.2020

Программа:

Python:

import turtle

# большой круг (нижний):

turtle.color("black") # устанавливаем цвет  

turtle.penup() # поднимаем курсор

turtle.goto(0, -100) # переходим по координатам

turtle.pendown() # опускаем курсор

turtle.circle(90) # рисуем круг с радиусом 90

# средний круг(посредине):

turtle.color("black")  

turtle.penup()  

turtle.goto(0, 80)  

turtle.pendown()  

turtle.circle(60)

# маленький круг (верхний):

turtle.color("black")

turtle.penup()

turtle.goto(0, 200)  

turtle.pendown()

turtle.circle(35)

 

turtle.done()

4,8(60 оценок)
Ответ:
kolo120706
kolo120706
03.07.2020

Программа:

Python:

№1)

arr = []

n, j = int(input()), 0

while n != 0:

   arr.append(n)

   n = int(input())

for i in arr:

   if i > (sum(arr)/len(arr)):

       j += 1

print(f'{arr}\n{j}')

№2)

from random import randint

arr = [randint(-100, 100) for i in range(10)]

print(arr)

summ = 0

for i in range(10):

   n = int(input())

   arr.append(n)

   summ += n

print(arr)

for i in arr:

   if i > summ: print(i, end=' ')

№3)

from random import randint

N = int(input('N = '))

arr = [randint(-100, 100) for i in range(N)]

print(arr)

for i in range(N):

   j = int(input())

   arr.append(j)

print(arr)

razn, summ = max(arr) - min(arr), 0  

for i in arr:

   if i > razn:

       summ += i

print(summ)

4,5(78 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ