Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Небольшая ошибка в программе Вот решаю задачу с одного сайта, всё вроде должно работать, но не получается присвоить s значение a - 1. Паскаля нет, вставил как язык Delphi, но это TP: var i,n,z,x,b:longint; a:array of longint; s:string; begin assign(input,'input.txt'); https://www.cyberforum.ru/ turbo-pascal/ thread714428.html	Найти минимальный отрицательный элемент каждого столбца матрицы. Результат записать в массив Y Turbo Pascal Задание лаб.работы : Найти минимальный отрицательный элемент каждого столбца матрицы. Результат записать в массив Y. Напишите программу паскаль пожалуйста
Turbo Pascal Читать числа до конца ввода На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел. ...Не пойму, почему не принимается решение. var a,b:longint; begin repeat ... https://www.cyberforum.ru/ turbo-pascal/ thread714418.html	Turbo Pascal Дано целое N, найти s=1/a +1/a2+1/a3 +....+1/an https://www.cyberforum.ru/ turbo-pascal/ thread714413.html Здравствуйте народ помогите решить две задачки. математически вроде все понимаю как решать, а вот код написать не получается.. 1)Дано целое N, найти s=1/a +1/a2+1/a3 +....+1/an. Буду благодарен если поможете.
Вычислить функцию Turbo Pascal 1) Вычислить функцию Y=1+(i!/2-{i}^{2}) где: i - параметр, принимающий значения натуральных чисел от 1 до 9; i! -произведение натуральных чисел от 1 до i, т.е. i!=1234...*i.	Turbo Pascal В заданной строке найти первую и последнюю цифры и отсортировать символы, стоящие между ними, по возрастанию https://www.cyberforum.ru/ turbo-pascal/ thread714353.html дана строка состоящая из символов,цифр и букв.В заданной строке найти первую и последнюю цифры. Отсортировать символы, стоящие между ними, по возрастанию. Рабочие строки не использовать.Помогите решить пожалуйста
Turbo Pascal Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова https://www.cyberforum.ru/ turbo-pascal/ thread714315.html Задача 10 класса, так что решение должно быть уровня школьника) Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова.	Опишите и постройте с помощью двумерного массива Sps линейный однонаправленный список Turbo Pascal 18. Опишите и постройте с помощью двумерного массива Sps линейный однонаправленный список из семи целых чисел и сделайте этот список пустым. После этого добавьте в список шесть элементов 1,3,5,7,9,11, затем найдите указатель на элемент 9 и удалите этот элемент. В конце работы со списком вставьте после элемента со значением 11 элемент со значением 13, предварительно отыскав указатель на элемент со...
Turbo Pascal Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный след Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный "след' (т.е. сумму элементов главной диагонали). Использовать функцию для нахождения следа матрицы и функцию печати матрицы. Если не сложно, помогите решить. https://www.cyberforum.ru/ turbo-pascal/ thread714262.html	Turbo Pascal Дана строка S и число N. Преобразовать строку S в строку длины N https://www.cyberforum.ru/ turbo-pascal/ thread714257.html Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка). (Прогу желательно полностью.)
Turbo Pascal Вычисление суммы четных делителей натурального числа Составьте программу вычисления суммы четных делителей натурального числа М	Turbo Pascal В заданной строке заменить все последовательности одинаковых символов длиной более двух на конструкцию (k)a Помогите пожалуйста.Не могу сообразить как делать(Нужно составить на языке Паскаль программу: В заданной строке заменить все последовательности одинаковых символов длиной более двух на конструкцию (k)a, где k- количество повторений символа a. Пример: Входные данные: abbcdddeeffffghh Выходные данные: https://www.cyberforum.ru/ turbo-pascal/ thread714224.html

denfox_pro

0 / 1 / 2

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

Сообщений: 113

Процедуры: найти периметр треугольника и его площадь - Turbo Pascal - Ответ 3779472

30.11.2012, 16:30. Показов 5189. Ответов 1

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

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

Условие: Юзер вводит две стороны прямоугольника. Программа выполняет такие
вычисление:
- с помощью процедуры с параметрами - значениями на ходит
периметр прямоуугольника.
- с помощью процедуры с параметрами - перемеными находит площадь.

и добавить возможность повторять вычисления, если юзер пожелает.
я накидку сделал, и дальще жду вашей помощи:

Pascal

program z2;
uses crt;
var p,s, a, b:real;
 
procedure perimetr(a1,b1:real; var p1,s1:real);
Begin
p:=2*(a+b);
s:=a*b;
end;
 
BEGIN
clrscr;
writeln('Введите две стороны'); readln(a,b);
perimetr(a,b,p,s);
writeln('Периметр прямоугольника ==',p);
writeln('Площадь прямоугольника*==',s);
readln;
END.

Вернуться к обсуждению:
Процедуры: найти периметр треугольника и его площадь Turbo Pascal

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

30.11.2012, 16:30

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

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

Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр.
привет! люди добрые помогите незнающему информатику человеку получить зачет! ="(( оч оч нада это...

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

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

	30.11.2012, 16:30

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

30.11.2012, 16:30

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

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

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

Найти периметр и площадь треугольника
Задача такова: Треугольник задан координатами своих вершин.Найти периметр и площадь треугольника....

Найти периметр и площадь треугольника
Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и...

Новые блоги и статьи
Как программировать под HCL Notes и создавать свои продукты на ее основе InfoMaster 11.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .	Как работать с SVN (Subversion) InfoMaster 11.01.2025 Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .	Использование GraphQL в JavaScript InfoMaster 11.01.2025 Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .	Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .

Наверх