Технический форум - Подпрограммы и записи в паскаль

Технический форум (http://www.tehnari.ru/)

- Форум программистов (http://www.tehnari.ru/f22/)

- - Подпрограммы и записи в паскаль (http://www.tehnari.ru/f22/t36976/)

Подпрограммы и записи в паскаль

помогите пожалуйста!

1) заданы окружность (x-a)^2+(y-b)^2=r^2 и две точки p={p1,p2} и f(f1,f2} вычислить сколько точек лежит внутри окружности. проверку принадлежности точки к окружности оформить в виде функции.
данные: а=3.2, в=4.1 r=2. p,f - произвольно.

2)вычислить Z= (s1+s2)/(k1*k2), где s1,k1 - сумма и кол-во положительных элементов массива Х(n), s2,k2 - сумма и кол-во положительных эл-тов массива Y(m). вычисления суммы и кол-ва положительных элементов массива оформить как процедуру.
данные произвольные.

3) задачка на записи:
для каждого студента указаны фамилия имя и оценки по 3м дисциплинам. требуется вычислить средний бал каждого студента и упорядочить список по убыванию среднего бала. вывод на экран оформить в виде таблицы.

А почему бы вам самому не попробовать, и задать конкретные вопросы по тому, что не понятно, что не получается?

хорошо. скажите как оформить в виде таблицы и отсортировать по убыванию?

алгоритм сортировки простого массива знаете? вот и вся сортировка. А про вывод в виде таблицы, почитайте справку в паскале на процедуру gotoxy(x,y);
пример:

Код:

uses crt;

var i:word;

begin clrscr;

writeln ('Table');

for i:=1 to 3 do begin

 gotoxy(3,i+2);

 write ('Student', i);

 gotoxy (15,i+2);

 write ('Surname', i);

 gotoxy (25,i+2);

 write ('mark', i);

end;

gotoxy(1,i+4);

readkey;

end.

Первая задача выглядит примерно так:

Код:

program z1;



type 

        point = record

                x, y: real;

        end;



const

        a = 3.2;

        b = 4.1;

        r = 2;



function proverka (p: point): boolean;

begin

        proverka:=false;

        if sqr(p.x-a)+sqr(p.y-b)<sqr(r) then

                proverka:=true;

end;



var

        p, f: point;

        n: integer;



begin

        writeln('Vvedtie koorinaty tochki p:');

        readln(p.x, p.y);

        writeln('Vvedtie koorinaty tochki f:');

        readln(f.x, f.y);

        n:=0;

        if proverka(p)=true then n:=n+1;

        if proverka(f)=true then n:=n+1;

        writeln('Kolichestvo tochek = ', n);

        readln

end.

Вроде проверил, все работает. Пользуйся, студент :-)

приятно видеть, что одни новички помогают другим.. NDV, так держать :)

спасибо)))
только еще скажите почему в последней строчке выдает 64 ошибку?

program ex18;
const n=3; {kol-vo predmetov}
type st=record
fam:string;
im:string;
oc:array[1..n] of integer;
end;
var j,k,i:integer;
t:array[1..30]of st;
begin
writeln('vvedite kol-vo studentov');
readln(k);
for i:=1 to k do
writeln('vvedite familii');
readln(t[i].fam);
writeln('vvedite ima');
readln(t[i].im);
writeln('ocenci');
for j:=1 to n do
readln(t[j].oc);

ос - массив, значит и вводить надо соответственно - oc[i]

А программа здесь специально не вся? И в цикле че-то не понял, где фамилии заполняются: там операторных скобок нету