|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.01.2009, 13:09 | #1 |
Новичок
Джуниор
Регистрация: 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. реально я в печали и не знаю что делать |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с заданиями по делфи | 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 |