Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки - Pascal

  1. Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки подпрограмму с заданным символом для отображения и количеством элементов. Примечание: Для отображения элементов в строке рекомендуется использовать подпрограмму-процедуру с указанием количества элементов (символов) и вида элементов (символов) фигура должна быть отражена в центре экрана, учитывая, что в текстовом режимах стандартное количество позиций для вывода (ширина экрана) равен 80, подпрограмма должна выводить на экран только один ряд, а не всю фигуру. Вот что у меня получилось, но когда прочитал примечание оказалась что неправильно сделал:

textual

Код:

unit derev;
interface
uses crt;
procedure derevo (c:char; x,y,n:integer);
implementation
procedure derevo (c:char; x,y,n:integer);
var i:integer;
begin
gotoXY(x,y);
for i:=1 to n do write(c);
writeln;
end;
end.

Похожие ответы
  1. помогите решить пожалуйста и составьте схему,если не тяжело! Дана целочисленная матрица размера 5 на 10. Вывести номер ее первой строки, содержащей равное количество положительных и отрицательных элементов (нулевые элеметны не учитываются). Если таких строк нет, то вывести 0.

  1. При заданных Х1,Х2,...,Хn и Y1,Y2,...,Yn(массив), проверяя на равенство элементы пар (Х1,Y1),(Y1,Y2),...,(Xn,Yn) подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn.

  1. помогите пожалуйста решить одну задачку! Дана матрица от 1 до 16, она разбита на 4 квадрата, как эти квадраты можно поменять местами с помощью двумерных массивов?

  1. Вычислить , z=(s1+s2)/(k1*k2), где s1 и k1 – сумма и количество положительных элементов массива X(N); s2 и k2 – сумма и количество положительных элементов массива Y(M) M ≤50 N ≤50

  1. При решении задачи использовать типа данных "запись". Написать программу, создающую типизированный файл данных, соответствующий условию задачи Решить задачу с использованием данных созданного файла. О каждом из спортсменов известные фамилия, страна, которую он представляет, и число набранных баллов. Вывести фамилию и страну победителя соревнований. Вот создал как бы написал программу создающую типизированный файл данных

  1. Не могу решить две задачи: 1)В деревне Интернетовка все дома расположены вдоль одной улицы по одну сторону от нее. По другую сторону от этой улицы пока ничего нет, но скоро все будет – школы, магазины, кинотеатры и т.д. Для начала в этой деревне решили построить школу. Место для строительства школы решили выбрать так, чтобы суммарное расстояние, которое проезжают ученики от своих домов до школы, было минимально. План деревни можно представить в виде прямой, в некоторых целочисленных точках которой находятся дома учеников. Школу также разрешается строить только в целочисленной точке этой прямой (в том числе разрешается строить школу в точке, где расположен один из домов – ведь школа будет расположена с другой стороны улицы). Напишите программу, которая по известным координатам домов учеников поможет определить координаты места строительства школы. Формат входных данных Сначала вводится число N — количество учеников (0 < N < 100001). Далее идут в строго возрастающем порядке координаты домов учеников — целые числа, не превосходящие 2∙109 по модулю. Формат выходных данных Выведите одно целое число — координату точки, в которой лучше всего построить школу. Если ответов несколько, выведите любой из них. 2)На клетчатой бумаге Петя нарисовал отрезок из точки с координатами (a,b) в точку с координатами (c,d). Через сколько клеток проходит этот отрезок (считается, что отрезок проходит через клетку, если он проходит через ее внутренность, если же он проходит только через вершину или по границе клетки, считается, что он не проходит через клетку). Входные данные. Вводятся целые числа a, b, c, d. Числа по модулю не превышают 109. Выходные данные. Выведите одно число — количество клеток, через которые проходит отрезок Решение проверяет компилятор, поэтому желательно не слишком долгое.

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

  1. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.

  1. Написать программу, которая по заданному натуральному значению вычисляет результат выражения: F=1!+2!+3!+...n! P.S. Написать программу с использованием трех операторов цикла: арифметического, предусловием и постусловием.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика