Форумы-->Форум для внеигровых тем-->
| Автор | Задачи по програмированию.Паскаль.Хелп,плачу золотом) |
|---|
Знающие люди, помогите плз))
Нада решить три задачи, за каждую плачу по 7000 монет)
1 - Даны числа X,Y,Z,T - длины сторон четырехугольника. Вычислить его площадь, если угол между сторонами длиной X и Y - прямой
2 - Сформировать квадратную матрицу порядка N по правилу А[i,j]=sin(I*I-J*J /N) и подсчитать количество положительных элементов в ней.
3 - Записать файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны К
Примечание: (I*I-J*J /N) - это I в квадрате минус J в квадрате, деленное на N :)
З.Ы. Помогите плз, очень нада... | #1
program ras4et;
uses crt;
var
x,y,z,t,s:real;
begin
clrscr;
gotoxy(5,5);
write('x:');
gotoxy(5,6);
write('y:');
gotoxy(5,7);
write('z:');
gotoxy(5,8);
write('t:');
gotoxy(5,9);
write('S:');
gotoxy(8,5);
readln(x);
gotoxy(8,6);
readln(y);
gotoxy(8,7);
readln(z);
gotoxy(8,8);
readln(t);
s:=x*y/2+
sqrt(((z+t+sqrt(x*x+y*y))/2)*((z+t+sqrt(x*x+y*y))/2-z)*((z+t+sqrt(x*x+y*y))/2-t)*((z+t+sqrt(x*x+y*y))/2-sqrt(x*x+y*y)));
gotoxy(8,9);
write(s:1:3);
readln;
end. | | геронщик | #2
program matrix;
uses crt;
var
a:array [1..10,1..10] of real;
i,j,n,s:integer;
begin
clrscr;
gotoxy(5,5);
write('Vvedite N: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=sin(i*i-j*j/n);
if a[i,j]>0 then s:=s+1;
end;
gotoxy(5,7);
write('S: ',s);
readln;
end. | | на 3й нет желания и времени=) | | от геронщика слышу =) | на 3й нет желания и времени=)
разве что вечером от нечего делать желание появится | для erros:
Решпект, спс! Деньги перевел ;)
разве что вечером от нечего делать желание появится
Будем надеятсо, что появится) | | Тему можна крыть, тем кто помог - еще раз спс :) |
К списку тем
|
