|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.01.2017, 15:21 | #1 |
Новичок
Джуниор
Регистрация: 27.01.2017
Сообщений: 1
|
функцию переделать в процедуру с параметрами и без параметров - Pascal
функцию переделать в процедуру с параметрами и без параметров
program zzz; Function L(x1,y1,x2,y2:real):real; begin L:=sqrt(sqr(x2-x1)+sqr(y2-y1)); end; var x1,y1,x2,y2,x3,y3,P:real; begin Write('Введите координаты (x,y) вершины A: '); Read(x1,y1); Write('Введите координаты (x,y) вершины B: '); Read(x2,y2); Write('Введите координаты (x,y) вершины C: '); Read(x3,y3); P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L( x3,y3,x1,y1); Writeln('Периметр треугольника равен ',P) end. |
27.01.2017, 15:27 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,709
|
Ну добавьте еще один параметр для результата "по ссылке" в конце и пишите туда. Вы пробовали хотя бы что-то по языку посмотреть?
|
27.01.2017, 15:45 | #3 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
с параметрами
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедуры с параметрами и без параметров | Maray | Помощь студентам | 1 | 09.01.2015 12:28 |
одномерный массив с использованием процедур и функций без параметров и с параметрами | Ekaterinasoroka | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 14.04.2013 08:35 |
процедуры без параметров, нужно сделать с параметрами | Medu3a | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 19.11.2012 00:36 |
функцию переделать на процедуру | morgan996 | Помощь студентам | 2 | 08.01.2010 13:08 |
Помогите сделать Процедуру без параметров | FreeZZZ | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 26.12.2008 15:04 |