Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вопрос?? как сделать чтоб вот это var i,j,k,count:integer; s:string; fl:boolean; begin count:=1; writeln('Найденные числа:'); for i:=100 to 999 do begin https://www.cyberforum.ru/ turbo-pascal/ thread144296.html	Выражение на Паскале Turbo Pascal Помогите Пожалуйста написать уравнение) очень надо, запарилась) пишу с моба, не судите 1)\|а+в\|/ 7,5 +3а^2в и всё это в -3 степени 2) корень в 4 степени, а под корнем cos^2*3x
Turbo Pascal Указатели. Динамическая память. помогите пожалуйста я и так ужастный програмист а с динамической памятью у меня воообще крыша поехала .Кто нибудь хоть чтотот здесь понимает .Если да то помогите бедной девушке не сойти сумма. :cry: 1) Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. Пример. N = 1 020 000. Количество нулей равно четырем. 2)Даны натуральные... https://www.cyberforum.ru/ turbo-pascal/ thread144248.html	Turbo Pascal Создать матрицу по условию https://www.cyberforum.ru/ turbo-pascal/ thread144233.html дано натуральное число n. получить дествительную матрицу \|A i,j=1,...n для которой Ai,j=1/i+j
Вычислить таблицу значений функции Turbo Pascal Вычислить таблицу значенйи функции y=ax^2+bx^2+cx+D для значений Xo<X<Xk с шагом, изменяющимся по закону dXi+1=adXi, i=0,1,2,..., где dXo=D<Xk	Turbo Pascal Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами. https://www.cyberforum.ru/ turbo-pascal/ thread144178.html
Turbo Pascal Составить программу удаления из десятичной записи числа N единиц, сохранив порядок следования оставшихся цифр. Составить программу удаления из десятичной записи числа N единиц, сохранив порядок следования оставшихся цифр. Сформировать и напечатать полученное число. https://www.cyberforum.ru/ turbo-pascal/ thread144176.html	Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m. Turbo Pascal Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m.
Turbo Pascal Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа больше, чем N. Если таких чисел нет, то вывести слово «нет». https://www.cyberforum.ru/ turbo-pascal/ thread144173.html Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа больше, чем N. Если таких чисел нет, то вывести слово «нет».	Turbo Pascal Получить новое число, которое образуется путем исключения средней цифры исходного числа https://www.cyberforum.ru/ turbo-pascal/ thread144159.html Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Если количество цифр не 5, то М= N. Пример. N = 12345, М = 1245. ТЕМА:Указатели. Динамическая память. Задачи целочисленной арифметики.
Turbo Pascal Найти порядковый номер даты, начиная отсчет с начала года. Заданы три натуральных числа А, В, С, которые обозначают число, месяц и год. Найти порядковый номер даты, начиная отсчет с начала года.	Turbo Pascal Найти на отрезке [m, n] натуральное число, имеющее наибольшее количество делителей. https://www.cyberforum.ru/ turbo-pascal/ thread144153.html Найти на отрезке натуральное число, имеющее наибольшее количество делителей. Тема:Указатели. Динамическая память. Задача целочисленной арифметики.

Lyohich84

180 / 179 / 163

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

Сообщений: 260

13.06.2010, 14:51

Дана сторона равностороннего треугольника. Найти площадь этого треугольника - Turbo Pascal - Ответ 800636

13.06.2010, 14:51. Показов 18444. Ответов 7

Метки (Все метки)

Ответ

2.1

Pascal

uses crt;
var
x,y,z,k:integer;
begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
write('z=');readln(z);
if y>x then
 begin
  k:=y;
  y:=x;
  x:=k;
 end;
if z>x then
   begin
    k:=z;
    z:=x;
    x:=k;
   end;
if z>y then
   begin
    k:=z;
    z:=y;
    y:=k;
end;
writeln(x:4,y:4,z:4);
readln
end.

2.2

Pascal

uses crt;
var
a,b:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
if a<>b then
 begin
  a:=a+b; b:=a;
 end
 else
 begin
  a:=0;b:=0;
 end;
writeln('a=',a,'b=':4,b);
readln
end.

Вернуться к обсуждению:
Дана сторона равностороннего треугольника. Найти площадь этого треугольника Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

13.06.2010, 14:51

Готовые ответы и решения:

Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей
Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и...

По длинам сторон некоторого треугольника и угла (в градусах) между ними, найти длину третьей стороны и площадь этого треугольника.
вот что мне нужно изобразить на паскале, а я в этом ничего не смыслю( По длинам сторон некоторого...

Вычислить по стороне равностороннего треугольника его периметр и площадь
Есть програмы,работают нормально,но нужно сделать эти проги чтобы они работали для трех...

Вычислить по стороне равностороннего треугольника его периметр и площадь
Описать процедуру TrianglePS(a,P,S), вычисляющую по стороне a равностороннего треугольника его...

	13.06.2010, 14:51

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

13.06.2010, 14:51

Помогаю со студенческими работами здесь

Вычислить по стороне равностороннего треугольника его периметр и площадь
Описать процедуру TrianglePS(a, P, S), вычисляющую по стороне a равностороннего треугольника его...

Найти площадь этого треугольника и радиусы вписанной и описанной окружностей
Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и...

1Ввести положительное число a. Вічислите площадь равностороннего треугольника со стороной а.
Ввести положительное число a. Вічислите площадь равностороннего треугольника со стороной а.

Известно значение периметра равностороннего треугольника. Вычислить его площадь
Известно значение периметра равностороннего треугольника. Вычислить его площадь. CodeBlocks

Наверх