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

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


textual

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

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.

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

9   голосов, оценка 4.222 из 5



Похожие ответы
  1. Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

  1. - Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

  1. Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами.

  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Нужно составить программу для нахождения периметра и площади треугольника.Вводимые данные: a,b-стороны прямоугольного треугольника,c-гипотенуза треугольника.(P=a+b+c;S(1 под чертой 2)a,b)Добавлено через 13 минут Промучился с задачей 2 недели.Ума не приложу как решить

  1. Обработка двумерных массивов (матриц) Разработать программу, в которой предусмотреть: - ввод размерности NxM двумерного массива А, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1]. ВАРИАНТ ЗАДАНИЯ : Построить новую матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам.

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов