Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Парни помогите решить задачу
Автор: skilla.net 14.09.2007 17:41
сабж , парни , помогите , у нас начался Паскаль , а я полный ноль!!!! Необходимо взять координаты из txt фаила , чтобы во время запуска программы появилась стрелочка , у которой треугольник будет равнобедренным!!!
Автор: Ozzя 14.09.2007 17:47
Ну и приложил бы этот тхт-файл. А уж как из него прочитать - поможем.
Автор: Гость 14.09.2007 17:52
Ну и приложил бы этот тхт-файл. А уж как из него прочитать - поможем.
вот
Прикрепленные файлы
Стрелка.txt ( 50 байт )
Кол-во скачиваний: 328Автор: skilla.net 14.09.2007 19:25
Парни , помощь нужна срочно , завтра сдавать , тем кто поможет огромный респект!!! Надеюсь токо на вас...
Автор: мисс_граффити 14.09.2007 23:04
Надо было либо делать вовремя, либо потратить 5 минут на обдумывание формулировки темы.
Автор: skilla.net 15.09.2007 0:06
Надо было либо делать вовремя, либо потратить 5 минут на обдумывание формулировки темы.
а что неправильно сформулировано??
Автор: мисс_граффити 15.09.2007 0:14
Слишком ярко выраженная дискриминация по половому признаку.
Автор: Гость 15.09.2007 0:30
Слишком ярко выраженная дискриминация по половому признаку.
извини , плис))) спешу исправиться , господа и дамы , помогите будьте добры!!!
Автор: LexaKazanskij 15.09.2007 1:11
Если задача- нарисовать стрелку вправо, и нет жестких требований к составлению проги, то можно попробовать дать, каждой цифре из файла, переменную или все цифры в массив. И вывести типа: line(x1,y1,x2,y2) и т. д.
Автор: skilla.net 15.09.2007 1:14
Если задача- нарисовать стрелку вправо, и нет жестких требований к составлению проги, то можно попробовать дать, каждой цифре из файла, переменную или все цифры в массив. И вывести типа: line(x1,y1,x2,y2) и т. д.
У меня завтра 2 занятие по Паскалю , поэтому я еще этого непонимаю , если не сложно , напиши хоть , как это примерно выглядит ... может дальше додумаю сам ... буду очень признателен
Автор: volvo 15.09.2007 1:32
skilla.net, вся проблема - в том, что даже если читать координаты из файла и сразу отрисовывать линии по этим координатам (используя MoveTo и LineTo), то такой стрелочки, которую ты ждешь, не получится... Получится нечто отдаленно ее напоминающее...
Автор: skilla.net 15.09.2007 1:36
skilla.net, вся проблема - в том, что даже если читать координаты из файла и сразу отрисовывать линии по этим координатам (используя MoveTo и LineTo), то такой стрелочки, которую ты ждешь, не получится... Получится нечто отдаленно ее напоминающее...
вот фигня((( че же мне делать ...((
Автор: volvo 15.09.2007 1:56
uses graph;
var
gd, gm: integer;
X, Y: integer;
f: text;
begin
assign(f, 'strelka.txt');
reset(f);
initgraph(gd, gm, '');
if graphresult = grOk then begin
readln(f, X, Y);
moveto(X, Y);
while not eof(f) do begin
readln(f, X, Y);
lineto(X, Y);
end;
readln;
end
else writeln('error...');
close(f);
end.
Автор: skilla.net 15.09.2007 2:20
Задавать нормальные координаты... Вот, смотри что выходит:
uses graph;
var
gd, gm: integer;
X, Y: integer;
f: text;
begin
assign(f, 'strelka.txt');
reset(f);
initgraph(gd, gm, '');
if graphresult = grOk then begin
readln(f, X, Y);
moveto(X, Y);
while not eof(f) do begin
readln(f, X, Y);
lineto(X, Y);
end;
readln;
end
else writeln('error...');
close(f);
end.
спасибо за образец !!! Огромный респект!!! С координатами ща разберусь)))
Автор: LexaKazanskij 15.09.2007 2:22
А можно формулировку вопроса: слово в слово?
Автор: skilla.net 15.09.2007 2:30
А можно формулировку вопроса: слово в слово?
Необходимо составить программу , которая по координатам из txt фаила , которые заданы построчно, будет рисовать стрелку на экране , вот так задиктовал задачу препод....
Автор: LexaKazanskij 15.09.2007 2:35
Не надо мучаться, как делать не уточнено 
program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.
Автор: skilla.net 15.09.2007 2:38
Не надо мучаться, как делать не уточнено
program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.
а ведь точно , можно было и так сделать ))) каждую прочитать и нарисовать ))) спс за помощь!!!!!!!!
Автор: LexaKazanskij 15.09.2007 2:43
Не за что , я подобным образом практику писал 
Автор: volvo 15.09.2007 2:46
В следующий раз получишь минус в рейтинг за такой код...
Автор: LexaKazanskij 15.09.2007 2:48
А что мне даёт рейтинг? 
Автор: мисс_граффити 15.09.2007 3:11
а если бы было 500 точек - не запутался бы?
Автор: LexaKazanskij 15.09.2007 3:18
1. Запутался 
2. 
Автор: is propecia from budgetmedica re 8.09.2021 5:19
Buy Prozac Mexico
Автор: buy prednisone without no prescr 8.10.2021 8:31
Generic Viagra From India
Автор: what are the side effects of gab 7.12.2021 0:10
Viagra W Overnight Shipping
Автор: buy zithromax online canada with 18.12.2021 22:59
Generic Viagra No Prescription