Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Итого все переведем в 10
100_2 = 4
40_5 = 20
30_8 = 24
10_16 = 16
из них самое большое 24, значит самое большое 30_8
Формула для определения размера стипендии:
=ЕСЛИ(СУММ(D6:G6)=20;ЕСЛИ(I6="староста";1100;1000);ЕСЛИ(СУММ(ЕСЛИ(D6>3;1;0);ЕСЛИ(E6>3;1;0);ЕСЛИ(F6>3;1;0);ЕСЛИ(G6>3;1;0);)>=4;ЕСЛИ(I6="староста";850;750);0))
Описание:
1) первое вложение: проверка условия отличник ли, для истины сумма баллов должна быть 20. Если истина, то проверяется староста или нет и ставится 1100 рублей, или 1000 рублей.
2) второе вложение: если первое ложь, то идет в работу оно. При этом студент может быть не отличником, но с базовой стипендией. Для этого проверим, есть ли у его тройки: если число в ячейке больше 3, вернуть 1, и добавить к общей сумме, взять следующую ячейку. Если в ней число больше трех, то добавить к сумме и так включительно до 4-й. Если после этих операций, Сумма получилась больше 4х(во всех ячейках больше 3 оценка, если хотя бы в одной меньше, то выйдет меньше 4 сумма) то даем стипендию студенту, но проверяем, староста ли он. И выдаем соответственно 750 или 850. Проверка на старосту, делается с помощью проверки ячейки в последнем столбце. Если там есть запись староста, то к стипендии +100 рублей.
I1=48000*2(stereo)*24*t
I2=24000*16*t
I1=2304000
I2=384000
I2/I2=6
связь многим ко многим потому что разные типы под одним id