Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal С помощью подпрограммы ввода и вывода вектора ввести и вывести матрицы 5х4 и 3х5 С помощь подпрограммы ввода и вывода вектора ввести и вывести матрицы 5х4 и 3х5 https://www.cyberforum.ru/ turbo-pascal/ thread1105226.html Turbo Pascal Перевести число из десятичной в шестнадцатиричную систему счисления
Используя в подпрограмме массив или строку открытого типа перевести число из десятичной в шестнадцатиричную систему счисления. Помогите изменить программу var a : string; function HEX_DEC(x:string):longint; const digits:array of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); var res,ves:longint; i,j:byte; begin res:=0; ves:=1; for i:=length(x)...
Turbo Pascal Нетипизированные параметры подпрограмм Помогите исправить под нетипизированный параметрvar a : string; function HEX_DEC(x:string):longint; const digits:array of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); var res,ves:longint; i,j:byte; begin res:=0; ves:=1; for i:=length(x) downto 1 do begin j:=0; a:=UpCase(a); https://www.cyberforum.ru/ turbo-pascal/ thread1105218.html Turbo Pascal Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет введено число Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет введено число, удовлетворяющее условию: а) число положительное; б) число делится нацело на 6 и больше 60 https://www.cyberforum.ru/ turbo-pascal/ thread1105212.html
Вывести на экран сумму нечетных чисел от 11 до 19 Turbo Pascal
Используя цикл с предусловием, напишите программу, выводящую на экран сумму нечетных чисел от 11 до 19. 		Turbo Pascal Напишите программу, которая вычисляет сумму первых n членов ряда Напишите программу, которая вычисляет сумму первых n членов ряда https://www.cyberforum.ru/ turbo-pascal/ thread1105196.html
Turbo Pascal Подсчитать количество букв во введенном с клавиатуры слове https://www.cyberforum.ru/ turbo-pascal/ thread1105009.html
1) Создайте файл целых чисел f. Числа считываются из стандартного устрой*ства ввода. Признаком конца ввода является число 9999 2) Напишите программу, подсчитывающую количество букв во введенном с клавиатуры слове. Ввод осуществляйте в цикле while do. Выход из программы — строка '999' 3) Заданы фамилия, имя и отчество учащегося, разделенные пробелом. Напечатайте его фамилию и инициалы 4)... 		Turbo Pascal Поиск в большом файле (~150метров) строки с конца
Здравствуйте. Нужно выполнить поиск в большом файле с повторяющимися блоками последнего блока. Затем удалить все что до этого блока. Можно ли сделать это с помощью паскаля и сделать так, чтобы работало достаточно быстро? Подскажите пожалуйста функцию поиска "с конца". Или искать последовательно до последнего совпадения?
Turbo Pascal Для каждой тройки отрезков, из которых можно построить треугольник, найти площадь данного треугольника https://www.cyberforum.ru/ turbo-pascal/ thread1104967.html
даны отрезки a,b,c,d для каждой тройки этих отрезков, их которых можно построить треугольник, найти площадь данного треугольника. использовать процедуру(или функцию) определения площади треугольника по длинам его сторон 		Turbo Pascal Найти объем фигуры https://www.cyberforum.ru/ turbo-pascal/ thread1104964.html
Turbo Pascal Вычислить сумму элементов,лежащих на диагоналях матрицы NxN
Вычислить сумму элементов,лежащих на диагоналях матрицы NxN.решите пожалуйста задачу,срочно надо 		Turbo Pascal Составить словесное (математическое) описание и блок-схему следующей задаче: у треугольника АВС длины Составить словесное (математическое) описание и блок-схему следующей задаче: у треугольника АВС длины сторон а, в, с вводятся с клавиатуры. Найти длины биссектрис . При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Результат отобразить на экране. https://www.cyberforum.ru/ turbo-pascal/ thread1104866.html
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 17:35 0

Вычислить площадь и периметр прямоугольника - Turbo Pascal - Ответ 5828369

25.02.2014, 17:35. Показов 1691. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

var arr: array [1..2] of integer;
    a, b, s, p, i: integer;
 begin
  readln(a,b);
  s:= a*b;
  p:= 2*a + 2*b;
  if s>p then
   begin
    arr[1]:= s;
    arr[2]:= p;
   end
  else
   begin
    arr[1]:= p;
    arr[2]:= s;
   end;
  for i:= 1 to 2 do write(arr[i], ' ');
  writeln;
  readln;
 end.


Вернуться к обсуждению:
Вычислить площадь и периметр прямоугольника Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 25.02.2014, 17:35
Готовые ответы и решения:

По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагоналей
По данным сторонам прямоугольника вычислить его периметр (P), площадь (S) и длину диагоналей (D) по...

Известны вершины прямоугольника. Найти площадь и периметр прямоугольника
Известны координаты вершин прямоугольника ABCD , A(x1,y1), B(x2,y2), C(x3,y3). Найти площадь и...

Для круга вычислить площадь, для прямоугольника – площадь, а для треугольника – периметр
Задача №1 Задана одна из геометрических фигур: прямоугольник, треугольник или круг. Фигуры...

Найти площадь и периметр прямоугольника
1. Обчислити площу, периметр та діагональ прямокутника за його стороною. 2. Встановити, чи буде...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 25.02.2014, 17:35
Помогаю со студенческими работами здесь

Найти периметр и площадь прямоугольника
Доброго времени суток! Пожалуйста, помогите написать программу решения задачи и нарисовать...

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

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

Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru