Как найти площадь ромба паскаль

Узнай цену своей работы

Формулировка задачи:

Составьте программу нахождения площади ромба по его стороной и острым углом ( угол предварительно переведите в
радианы ) . S = a2 Sinf , где a – сторона , f – угол .

Код к задаче: «Составить программу нахождения площади ромба»

textual

Листинг программы

var a, f, s: real;
begin
  write('Enter angle, in degree: ');
  readln(f);
  f := f / 180 * pi;
  write('Enter length of the party of a rhombus: ');
  readln(a);
  s := a * a * sin(f);
  write('S = ', s);
  readln
end.

Составить программу нахождения площади ромба в Паскале.

Вы открыли страницу вопроса Составить программу нахождения площади ромба в Паскале?. Он относится к категории
Информатика. Уровень сложности вопроса – для учащихся 5 – 9 классов.
Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие
ответы по интересующей теме. Чтобы получить наиболее развернутый ответ,
можно просмотреть другие, похожие вопросы в категории Информатика,
воспользовавшись поисковой системой, или ознакомиться с ответами других
пользователей. Для расширения границ поиска создайте новый вопрос, используя
ключевые слова. Введите его в строку, нажав кнопку вверху.

0 / 0 / 0

Регистрация: 16.03.2015

Сообщений: 4

1

Составить программу нахождения площади ромба

16.03.2015, 14:45. Показов 12172. Ответов 1


Студворк — интернет-сервис помощи студентам

Составьте программу нахождения площади ромба по его стороной и острым углом ( угол предварительно переведите в
радианы ) . S = a2 Sinf , где a – сторона , f – угол .



0



Cyborg Drone

Модератор

9580 / 4902 / 3242

Регистрация: 17.08.2012

Сообщений: 15,307

16.03.2015, 16:08

2

Лучший ответ Сообщение было отмечено торерро как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, f, s: real;
begin
  write('Enter angle, in degree: ');
  readln(f);
  f := f / 180 * pi;
  write('Enter length of the party of a rhombus: ');
  readln(a);
  s := a * a * sin(f);
  write('S = ', s);
  readln
end.



0



В режиме High Color используется глубина цвета 16 бит. Следовательно объем видеопамяти равен:
1024*768*16= 125822912 бит = 1572864 байт = 1536 Кбайт = 1.5 Мбайт

Ответ: 1.5 Мбайт

Такой элемент, как в вопросе, называется Линейка.

Shutdown s- t- s это секунды t кол-во секунд до выключения

begin

 var (n, s) := (1, 12000.0);

 while s < 42195 do

   (n, s) := (n + 1, s * 1.1);

 Println(n * 7 / 30)

end.

В ответе будет 3.5 – это если если считать, что в месяце 30 дней.

Рисовать долго, по этому объясню кратко (вы там проходите сейчас, должен знать КАК рисуются схемы, так что сам осилишь оформить), значит алгоритм следующий:

 Я буду использовать переменную С с начальным значение 0. Прибавляя единицу в случае положительности переменной к концу алгоритма можно будет по её значению определить количество положительных переменных

1. Проверить число а на положительность.
( a > 0) (Да, нет)
Если да, то нарисуешь как на рисунке
2. Проверить число b на положительность.
( b > 0) (Да, нет)
3. Проверить число с на положительность.
( с > 0) (Да, нет)
4. Вывести значение С (Это ответ на вопрос)
5. Конец алгоритма (блок-схемы)

nstyonkeysl250

nstyonkeysl250

Вопрос по информатике:

Помогите ~ Очень нужно

1. Составить программу нахождения площади ромба, если известны стороны и диагонали. (Паскаль. Если не трудно, то можно объяснить, как сделать программу)

2. 16x^4-√x (Паскаль)
16sqr(sqr(x))-(sqrt(x))

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок – бесплатно!

Ответы и объяснения 1

jubiloingse

jubiloingse

1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.

var d1, d2, S: real;
begin
write(‘Введите диагонали d1 и d2’);
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln(‘Площадь равна: ‘, S)
end
else
writeln(‘Условия неверны!’)
end.

Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке – напиши.

2. 16*sqr(sqr(x))-(sqrt(x))

Знаете ответ? Поделитесь им!

Гость

Гость ?

Как написать хороший ответ?

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

  • Отвечать достоверно на те вопросы, на которые знаете
    правильный ответ;
  • Писать подробно, чтобы ответ был исчерпывающий и не
    побуждал на дополнительные вопросы к нему;
  • Писать без грамматических, орфографических и
    пунктуационных ошибок.

Этого делать не стоит:

  • Копировать ответы со сторонних ресурсов. Хорошо ценятся
    уникальные и личные объяснения;
  • Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
    знаю» и так далее;
  • Использовать мат – это неуважительно по отношению к
    пользователям;
  • Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи –
смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Добавить комментарий