Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.01.2009, 13:09   #1
m0zgt
Новичок
Джуниор
 
Регистрация: 08.01.2009
Сообщений: 1
Плохо помогите с 2 заданиями((

Ребят, сори что обращаюсь...мне просто некуда обратиться уже... просмотрите 2 задания моих. В 1 проге у меня выводит только последнее негативное число, а надо, чтобы первых три выводило. Во 2 проге надо чтобы если вводишь кординаты, то он писал бы где точка будет находиться...это оси х и у... реально я в печали и не знаю что делать
program p1;
uses crt;
const
n = 7;
m = 4;
var
k:integer;
mas1: array [1..3] of integer;
A : array [1..n,1..m] of integer;
i,j : byte;
min, max : integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do A[i,j]:=random(100)-50;

writeln ('Vawa matrica: ');
min:=70;
max:=-70;
for i:=1 to n do
begin
for j:=1 to m do
begin
write (A[i,j],' ');
if A[i,j]<0 then
begin
for k:=1 to 3 do
mas1[k]:=A[i,j];
end;
end;
for k:=1 to 3 do
writeln(mas1[k]);
end;
writeln;
readln;
end.

и 2 в графическом режиме
program hatnik;
uses crt,graph;
var x,y,e:integer; z,t:real;
begin
clrscr;
x:=detect;
initgraph(x,y,'');
e:=graphresult;
if e<>grok then writeln('Error')
else
begin
cleardevice;

setcolor(6);
line(400, 1, 400, 500);{osj ->y}
line(100, 250, 700, 250);{osj ->x}
line(360, 250, 400, 210);
line(360, 250, 400, 290);
line(440, 250, 400, 210);
line(440, 250, 400, 290);
line(300, 250, 400, 150);
line(300, 250, 400, 350);
line(500, 250, 400, 150);
line(500, 250, 400, 350);

readln;
end;
readln;
closegraph;
end.






реально я в печали и не знаю что делать
m0zgt вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите с заданиями по делфи Flur Фриланс 14 19.03.2015 10:34
Помогите с заданиями в PASCAL LLIypLLIyH Помощь студентам 8 11.06.2008 11:51
Помогите с заданиями в Excel Arxan Помощь студентам 5 15.05.2008 20:29
Помогите плиз с заданиями по Delphi7 grum Помощь студентам 1 01.03.2007 14:29