В процедуре привести нетипизированный параметр к удобному для программиста типу - Turbo Pascal

  1. А именно : В процедуре привести нетипизированный параметр к удобному для программиста типу( и нарисовать полигон). С полигоном разберусь,а вот само приведение не понимаю.(три раза вызвать процедуру ,каждый раз используя один из массивов из тела программы)


textual

Код к задаче: «В процедуре привести нетипизированный параметр к удобному для программиста типу - Turbo Pascal»

uses Graph;
Procedure MyPolygon(var p;x,y,n,c:integer);
begin
setcolor(c);
drawpoly(n,p)
end;
var p1: array [1..4] of pointtype;
    p2: array [1..5] of pointtype;
    x,y,i:integer;
    u:real;
begin
initgraph(x,y,'');
x:=100;
y:=240;
u:=pi/2;
for i:=1 to 4 do
 begin
  p1[i].x:=x+round(100*cos(u));
  p1[i].y:=y-round(100*sin(u));
  u:=u+2*pi/3;
 end;
x:=400;
y:=240;
u:=pi/2;
for i:=1 to 5 do
 begin
  p2[i].x:=x+round(100*cos(u));
  p2[i].y:=y-round(100*sin(u));
  u:=u+2*pi/4;
 end;
MyPolygon(p1,100,240,4,12);
MyPolygon(p2,400,240,5,9);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.733 из 5



Похожие ответы
  1. - Ввести произвольную размерность одномерного массива в интервале 1..10. - Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х[i]=», где i – индекс элемента. - После окончания ввода для контроля данных вывести на экран массив. - Обработать данные в подпрограмме (тип подпрограммы и способ обработки указан в вариантах) и вывести результат. - Ввод данных и вывод результатов на экран должны производиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле. Подключить модуль к головной программе. - Все символьные элементы считать вводимыми только в нижнем регистре. - Если результатами вычислений являются вещественные числа, то выводить их с точностью до 1-го знака после точки. Массив символов. В процедуре удалить из исходного массива элементы с четными индексами. Первый элемент массива считать элементом с индексом 1. Размерность итогового массива должна уменьшиться. Помогите срочно, пожалуйста Не знаю на верном пути иду или нет, но вот все,что пока написано

  1. Есть две процедуры и нужно правильно написать параметры чтобы программа работала, помогите пожалуйста

  1. Если я правильно помню, в паскале в одной процедуре можно вызывать другую, если эта другая описана выше. А как сделать, если мне нужно в первой процедуре вызвать вторую, а во второй - первую?

  1. составить программу формирования элементов массива с помощью генератора случайных чисел в процедуре. в теле программы проверить работу процедуры, выведя элементы массива на экран.

  1. Здравствйте Есть файл T:TEXT; Как можно заполнить его данными в процедуре? (например записать числа от 1 до 10 с шагом 1 : 1 2 3 4 5 .....)

  1. Условный операторв языке Pascal. Привести пример проверки условия: число должно быть положительным и не входить в диапазон от 33 до 333 включая граничные значения.

  1. Нужен модуль к этому коду. Буду очень благодарен ))))

  1. Процедура должна выводить сумму при вводе номера, но кроме суммы выводит еще что такого номера нет:

  1. Даны дроби P1/Q1 ,P2/Q2 , ...,Pn/Qn (рi , qi — натуральные). Составить программу, которая приводит эти дроби к общему знаменателю и упорядочивает их в порядке возрастания.