сервис вопросов и ответовПомогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл
10-11 класс|
|
'belarus.jpg' он прикреплен. Спасибо
program Geograf1;
uses GraphABC;
var karta, A, S: integer;
begin SetWindowSize(520,480);
karta := LoadPicture('belarus.jpg');
DrawPicture(karta,10,10);
setBrushColor(clRed);
S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);
S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);
S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);
S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);
S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);
S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);
end.
Прикрепленные изображения
Julia20014
19 июня 2016 г., 19:02:20 (7 лет назад)
Alesxworld20025
19 июня 2016 г., 21:39:57 (7 лет назад)
Забиваем константы
const
s : array [1..6] of integer = (S1, S2, S3, S4, S5, S6); //Подставить нужные значения
arr: array [1..6, 1..4] of integer ((x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2)); //Подставить нужные значения
Cчетчик var i : integer;
После чего вместо этого
S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);
S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);
S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);
S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);
S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);
S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);
вставляем это
for i := 1 to 6 do
begin
a := round (sqrt (s[i]);
Rectangle (arr[i, 1], arr[i, 2], arr[i, 3]+a, arr[i,4]+A);
end;
Ответить
Другие вопросы из категории
1. Для чего нужна процедура кодирования передаваемой информации? 2. Что такое декодирование? Каким должен быть его результат? 3. Каким техническим
средством связи вы чаще всего пользуетесь? Замечали ли вы при этом факты потери информации? 4. Назовите устройства кодирования и декодирования при использовании радиосвязи. 5. Что такое шум по отношению к системам передачи данных? 6. Какие существуют способы борьбы с шумом?
С помощью азбуки Морзе можно кодировать
символ для сообщений по радиосвязи, используя комбинацию точек и тире. Определите
количество различных символов, которых можно закодировать, используя код азбуки
Морзе длиной не менее трёх и не более пяти сигналов (точек и тире)? В ответе
укажите только число.
Читайте также
ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Помогите, пожалуйста, разобраться и составить верный алгоритм. В задаче требовалось написать программу на Паскале и сравнить её с приведенной в учебнике.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Помогите пожалуйста.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Добрый вечер!
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!
Вы находитесь на странице вопроса "Помогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.