ЗАДАННЯ НА ПАСКАЛЯ --- ЗАПИСЬ, график функция, МАССИВ,

[annya77]

Пожалуйста, помогите мне решить упражнения.
слишком важна для меня, пожалуйста
Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...


Задача 1:
--------
Вывести график функция и в виде таблицы значения аргумента Xi,
значение функция Yi (i = 1,2,3,4 ...), max, min функция:

Y= - SINXi + COSXi -1

диапазон изменения аргумента:, количество точек графика 40

Задача 2:
--------
Выполнить задание 2 с применением возможностей Турбо Паскаль (record).

Создайте файл, который содержит:
- Название государства,
- Столицу,
- Количество населения,
- Площадь.
Напечатать данные о 10 государств с наибольшей плотностью населения. Вывести всю информацию о государстве X.


Задача 3:
--------
Написать программу, розвьязуe данную задачу с применением пiдпрограм типа FUNCTION, PROCEDURE:
решить уравнение:
ax=b
a-следует матрицы А (5,5).
b-следует матрицы B (7,7).
Матрицы А, В-распечатать в общепринятом виде


Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...

благодарю вас за вашу помощь ^^

[Stilet]

Наработки есть?

[annya77]

ya tebya ne panimayu....

[Stilet]

Покажи что ты сделала чоб решить эти задачи.

[annya77]

они у меня тетрадь !!! пажалуйста помогите пажалуйста??????
я вас малею

[Stilet]

Ну первая типа такого:

uses crt, graph;
var gd,gm:integer;x,y:real;
    c:char;
begin
 clrscr;
 x:=0;
 initgraph(gd,gm,'');
 moveto(100,100);
 repeat
  y:=sin(x)+cos(x)-1;
  linerel(round(10*x),round(10*y));
  x:=x+0.1;
 until x>=pi;
 readln;
 closegraph;
end.

[annya77]

спс!!! пажалуйста 2-ая- и 3 умалею

[Stilet]

А учебнички поштудировать, а поиском по форуму пройтись?

[annya77]

Сейчас я не могу... помочь мне ... и поблагодарить вас за ваше понимание

[alex_fcsm]

uses crt;
const m=5;
      n=7;
var a,b:array[1..10,1..10] of integer;
    x:real;
    
procedure Init(var Matr:array[1..10,1..10] of integer;y:integer);
var  i,j:integer;
    
begin
 for i:=1 to y do
  begin
   for j:=1 to y do
    begin
     Matr[i,j]:=random(10);
     write(a[i,j]:3);
    end;
   writeln;
  end;
writeln('=====================================');
end;

function Sled(Matr:array[1..10,1..10] of integer;y:integer):integer;
var i,res:integer;
begin
res:=0;
for i:=1 to y do
 res:=res+Matr[i,i];
 Sled:=res;
end;

begin
clrscr;
Init(a,m);
Init(b,n);
x:=Sled(b,n)/Sled(a,m);
writeln(x);
end.