Помогите пожалуйста сделать в паскале граф и массивы

[neomaximus]

Вот задания
Графика
3.y=-3(в степени 2x)+30
4. Нарисовать на экране катящееся по наклонной вида Y=k*X колесо с четырьмя спицами.
Массивы строки

1. Показать, что, если элементы какого-либо ряда определителя умножить на число, то определитель также умножится на это же число.
2. Строка Т состоит из слов, разделенных запятыми, подсчитать среднюю длину слов.

[Stilet]

Настойчивый ты паря.
Лана Вот лови про строки. Разделитель слов сам поменяешь

var s:string; cnt,k,i,srd:integer;
begin
s:='asd asd dfgdfgdfgdsf sdfsd';
i:=1;
k:=i;cnt:=0;    srd:=0;
//********** WHILE *********
while i<=length(s) do  begin
 if s[i]=' ' then begin
  srd:=srd+length(copy(s,k,i-k));
  inc(cnt);k:=i;
 end;
 inc(i);
end;
//****** END WHILE *********  {}
srd:=srd div cnt;
wrietln('Средняя та самая ту которую нуна ващще'+srd);

end;

[neomaximus]

на wrietln('Средняя та самая ту которую нуна ващще'+srd); ругается

[Stilet]

Пример возможного решения третьей:

uses crt,Graph;
var
 c:char;
  grDriver: Integer;
  grMode: Integer;
  x,y:double;a,b,ErrCode,i: integer;
  ang:real;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{}
  ErrCode := GraphResult;
  x:=-1;
  moveto(100,100);
  while x<1 do begin
   y:=exp(2*x*ln(3)) ;

     lineto(50*round(x)+100,50*round(y)+100);
   x:=x+0.1;
   end;
    c:=readkey;
    CloseGraph;
end.

ругается

Еще бы. Покумекай ка почему.

[N!ckeL]

пишется writeln

[Stilet]

пишется writeln

Не только. Настойчивость автора приведет его к правильному решению - он прочитает его в литературе или в методе тыка

[neomaximus]

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=40;
mtrY=40;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'C:\bp\bgi');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
if x<>0 then begin y:=-3*abs(2x)+30
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

Вот вроде третья как делается, но надо чтоб на кординатных осях были цифры

[neomaximus]

Все равно ругается на конец этой строки
writeln('Средняя та самая ту которую нуна ващще'+srd);

[Stilet]

но надо чтоб на кординатных осях были цифры

OutTextXY тебе в помошь.

Все равно ругается

Ну и как ты думаешь почему? Ну почитай же хелп!

[neomaximus]

1) Долгожитель (возраст не менее 100 лет) обнаружил однажды, что если к сумме квадратов цифр его возраста прибавить число дня его рождения, то как раз полу-чится его возраст. Сколько лет долгожителю?
2) В небоскрёбе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?