|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2007, 11:45 | #1 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Турбо Паскаль
Задача! При заданных абциссах x1,x2,x3...xn и ординатах y1,y2,y3...yn точек плоскости XOY определить у какого числа этих точек положительна как абцисса,так и ордината, а также найти средннюю ординату всех точек из числа заданных. Можно ли написать код к этой программе по проще???
program points; const N=10; {размерность} var x,y:array[1..10]of integer; {массив Х У} middle:real; {среднее Y} i:integer; {заполнение массива случайными числами} procedure CreateXY; begin Randomize; Writeln('massiv X:'); for i:=1 to N do begin x[i]:=Random(10)-Random(10); Write(x[i],' '); end; Writeln; Writeln('massiv Y:'); for i:=1 to N do begin y[i]:=Random(10)-Random(10); Write(y[i],' '); end; Writeln; Writeln('-------'); end; {поиск точки из Первой четверти, т.е. X>0 Y>0} procedure FindPlus; var flag:boolean; begin flag:=false; for i:=1 to N do begin if (x[i]>0)and(y[i]>0) then begin flag:=true; Write('#',i,' '); end; end; {если таких чисел нет, то сообщим об этом} if Flag=false then Write('++ NONE'); writeln; Writeln('-------'); end; {поиск среднего по Y} procedure FindMiddle; var sum:integer; begin sum:=0; middle:=0; for i:=1 to n do begin sum:=sum+y[i]; end; middle:=sum/n; Writeln('MIDDLE = ',middle:2:2); end; begin createXY; {создание массивов} FindPlus; {вывод ++} FindMiddle;{поиск среднего} Readln; end. |
28.10.2007, 12:32 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
перепиши процедуру вот так (неправильно прочитал задачу) :
Код:
Life is too short, play more...
Как правильно задавать вопросы |
28.10.2007, 12:38 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
ВОТ ПРОЩЕ
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 28.10.2007 в 12:41. |
28.10.2007, 12:42 | #4 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Ну да собственно так! Спасибо!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста с задачей в Турбо Паскаль. | Bulvai | Помощь студентам | 1 | 25.06.2008 18:09 |
Задача на Турбо Паскаль "Лабиринт" | H[o][o]K | Помощь студентам | 1 | 17.12.2007 18:46 |
Помогите решить 3 задачи на языке Турбо-Паскаль | rpg | Помощь студентам | 3 | 23.11.2007 20:13 |
Турбо Паскаль | Jondeer | Помощь студентам | 5 | 27.10.2007 17:19 |