Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычисление суммы бесконечного ряда с заданной точностью. http://www.cyberforum.ru/pascalabc/thread409645.html
Вычислить сумму бесконечного ряда с заданной точностью. Создать два типа программ с использованием цикла while и циклу repeat.until. 1) Определить начальные данные при i=1. 2) Накапливать сумму до...
Pascal ABC Записать массив в файл так, чтобы он был равномерно записан на его строках
с клавиатуры или случайным образом заполняется массив.Количество элементов массива-константа N.С клавиатуры вводится число К<=N.Записать массив в тукстовый файл,так чтобы он был равномерно записан на...
Найти и вывести в текстовый файл все слова минимальной длины Pascal ABC
1.С клавиатуры вводится строка.Найти и вывести в текстовый файл все слова минимальной длины.Словами считать любую последовательность символов отделяемую пробелами. program Project1; var ...
Pascal ABC Написать программу,создающую 2 файла целых чисел разной длины 2.Написать программу,создающую 2 файла целых чисел разной длины.Файлы заполнить ,случайными числами.Пользователь вводит 2целых числа: P и Q.Программа создает третий файл целых чисел,в котором... http://www.cyberforum.ru/pascalabc/thread409610.html
Pascal ABC Прокомментировать код http://www.cyberforum.ru/pascalabc/thread409605.html
uses crt; var s,sl,smax: string; i,dmax: integer; begin write('Введите строку '); readln(s); s:=s+' '; sl:='';dmax:=0; for i:=1 to length(s) do if s<>' ' then sl:=sl+s else
В файле удалить номера участников, оставив фамилию, имя в выходном файле Pascal ABC
Нужна помощь в написании программы. Смысл программы таков: В входном текстовом документе, дан текст, вида: 412123412|pervii uchastnik; 412145125|votoroi uchastnik; 412634532|tretii uchastnik;...
Вычислить сумму бесконечного ряда, используя подпрограммы типа функция. Pascal ABC
1) Вычислить сумму бесконечного ряда, используя подпрограммы типа функция. 2) Обработать массив, используя подпрограммы типа процедура. 3) Вычисления общего члену оформить в виде функции,...
Pascal ABC Найти и вывести на экран слово максимальной длины 1)С клавиатуры вводится строка.Найти и вывести на экран слово максимальной длины.Словами считать любую последовательность символов отделяемую пробелами. http://www.cyberforum.ru/pascalabc/thread409590.html
Pascal ABC Найти и вывести в текстовый файл все слова минимальной длины http://www.cyberforum.ru/pascalabc/thread409584.html
1.С клавиатуры вводится строка.Найти и вывести в текстовый файл все слова минимальной длины.Словами считать любую последовательность символов отделяемую пробелами. 2.Написать программу,создающую...
Pascal ABC Построить графики функций: парабола, гипербола, синусоида. Построить графики функций: парабола, гипербола, синусоида. http://www.cyberforum.ru/pascalabc/thread409568.html
Puporev
Модератор
56606 / 43290 / 29931
Регистрация: 18.05.2008
Сообщений: 102,986
21.12.2011, 19:25 0

рисование графических примитивов по данным из файла

21.12.2011, 19:25. Просмотров 1076. Ответов 4
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Кстати это для Турбо Паскаль написано. Поправите сами?

Добавлено через 1 минуту
Три строки убрать и 1 изменить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses graphABC;
const pr:array[1..5] of string=('Rectangle','Circle','Line','Ellipse','Arc');
var f:text;
    n,i,x,y:integer;
    s,s1:string;
    a:array[1..6] of integer;
begin
assign(f,'F1.txt');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  s1:=copy(s,1,pos(' ',s)-1);
  for i:=1 to 5 do
  if s1=pr[i] then x:=i;
  delete(s,1,pos(' ',s));
  s:=s+' ';
  n:=0;
  while pos(' ',s)>0 do
   begin
    n:=n+1;
    s1:=copy(s,1,pos(' ',s)-1);
    val(s1,a[n],y);
    delete(s,1,pos(' ',s));
   end;
  case x of
  1:rectangle(a[1],a[2],a[3],a[4]);
  2:circle(a[1],a[2],a[3]);
  3:line(a[1],a[2],a[3],a[4]);
  4:ellipse(a[1],a[2],a[3],a[4],a[5],a[6]);
  5:arc(a[1],a[2],a[3],a[4],a[5]);
  end;
 end;
close(f);
end.


Вернуться к обсуждению:
рисование графических примитивов по данным из файла
4
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2011, 19:25

Рисование графических примитивов
Задача такова: Необходимо нарисовать ромб. Ну а почему бы и нет? Можно и треугольник (не квадрат...

Рисование графических примитивов на форме
Народ. Интересует рисование на форме, то есть круги, треугольники, линии движением мыши, но начиная...

Рисование надписей и графических примитивов
Как сделать возможным рисование на PictureBox, рисовать графические примитивы, надписи, другие...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru