[Помогите!] програмиссты помогите паскль

[komoel1911]

Ребят нам задали такую вот задачку, я нифига не шарю в программировании ( а препод жесть) если не так трудно написать такую прогу напишите плиз оч прошу с меня пасибка

Составить программу вычисления длины ломаной линии,заданной координатами точек её начала изломов и конца. N-число точек, (x!;y1),(x2;y2),(xN;yN)-координаты точек излома и концов. Контрольный пример:N=5;(x,y)=[(0,0),(2,2),(4,0),(6,2),(8,4)]:L=11,313

Формула длины:L=корень из((x2-x1)В квадрате-(y2-y1)в квадрате)+корень из((x3-x2)В квадрате-(y3-y2)в квадрате)+...в зависимости от N

[ivan_k97_aust_e]

а на кой тебе однокласники,однокурсники,собутыльники? про последних я пошутил

[komoel1911]

Цитата: Сообщение от ivan_k97_aust_e а на кой тебе однокласники,однокурсники,собутыльники? про последних я пошутил

все мои однокурскники и собцтыльники тоже самое как и я нихрена не поняли этих массивов , плиз ребят кто может и кому не трудно забабахайте плиз, препод сказал для опытного программиста дел на 15 минут

[ПростоVasia]

грызи науку, студент. Всю жизнь на форумах не посидишь. Работать придется, бо жрать охота.

[Улала]

Цитата: Сообщение от komoel1911 все мои однокурскники и собцтыльники тоже самое как и я нихрена не поняли этих массивов , плиз ребят кто может и кому не трудно забабахайте плиз, препод сказал для опытного программиста дел на 15 минут

Стукни в скайп.

[=nekros=]

Цитата: Сообщение от komoel1911 Ребят нам задали такую вот задачку, я нифига не шарю в программировании ( а препод жесть) если не так трудно написать такую прогу напишите плиз оч прошу с меня пасибка Составить программу вычисления длины ломаной линии,заданной координатами точек её начала изломов и конца. N-число точек, (x!;y1),(x2;y2),(xN;yN)-координаты точек излома и концов. Контрольный пример:N=5;(x,y)=[(0,0),(2,2),(4,0),(6,2),(8,4)]:L=11,313 Формула длины:L=корень из((x2-x1)В квадрате-(y2-y1)в квадрате)+корень из((x3-x2)В квадрате-(y3-y2)в квадрате)+...в зависимости от N

лучше бы конечно сам учил, а то дальше труба будет
но так и быть напишу
Program Dlinna;
Var i,n:integer; sum:real;
x:array[1..200] of integer;
y:array[1..200] of integer;
Begin
Writeln('Введите кол-во точек');
Readln(n);
For i:=1 to n-1 do
begin
Writeln('Введите координаты точки под номером',i);
Readln(y[i],x[i]);
end;
Sum:=0;
For i:=1 to i do
begin
Sum:=sum+sqrt(sqr(x[i+1])-sqr(x[i]))+sqrt(sqr(y[i+1])-sqr(y[i]));
end;
Writeln(Sum);
end.
Вроде как-то так

[komoel1911]

Цитата: Сообщение от =nekros= лучше бы конечно сам учил, а то дальше труба будет но так и быть напишу Program Dlinna; Var i,n:ineteger; sum:real; x:array[1..200] of integer; y:array[1..200] of integer; Begin Writeln('Введите кол-во точек'); Readln(n); For i:=1 to n-1 do begin Writlen('Введите координаты точки под номером',i); Readln(y[i],x[i]); end; Sum:=0; For i:=1 to i do begin Sum:=sum+sqrt(sqr(x[i+1])-sqr(x[i]))+sqrt(sqr(y[i+1])-sqr(y[i])); end; Writeln(Sum); end. Вроде как-то так

спс большое, теперь сам буду пробывать оболочку делать

[Улала]

2=nekros= Не совсем эффективно. А если у него будет не 200, а 201 точка. Что тогда?

[komoel1911]

Цитата: Сообщение от Улала 2=nekros= Не совсем эффективно. А если у него будет не 200, а 201 точка. Что тогда?

я в скайп стукнул

[=nekros=]

Цитата: Сообщение от Улала 2=nekros= Не совсем эффективно. А если у него будет не 200, а 201 точка. Что тогда?

ну 1000 поставь, я просто динамическими массивами не особо владею, если честно совсем не владею)))
нам говорили пока делайте так
а так.. не судьба значит))

[Улала]

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

Uses Crt;
Var
N, I : Integer;
X0, Y0, X, Y : Integer;
L : Real;
Begin
ClrScr;
L:=0;
Write('Число точек N= ');
ReadLn(N);
For I :=1 to N do
begin
Write('Введите X и Y ');
ReadLn(X,Y);
If I=1 then
begin
X0:=X;
Y0:=Y;
end;
L:=L+Sqrt(Sqr(X0-X)-Sqr(Y0-Y));
X0:=X;
Y0:=Y;
end;
Write('Длина L= ', L);
End.

Добавлено через 2 минуты

Цитата: Сообщение от =nekros= ну 1000 поставь, я просто динамическими массивами не особо владею, если честно совсем не владею))) нам говорили пока делайте так а так.. не судьба значит))

А в паскале его нет.

Цитата: Сообщение от komoel1911 я в скайп стукнул

В скайпе не наблюдаю тебя. Вот мой скайп Ulala1377

[komoel1911]

Цитата: Сообщение от Улала Тогда уж лучше так. Сам определяет, сколько будет точек, а на резервирует память сразу под огромный массив. Uses Crt; Var N, I : Integer; X0, Y0, X, Y : Integer; L : Real; Begin ClrScr; L:=0; Write('Число точек N= '); ReadLn(N); For I :=1 to N do begin Write('Введите X и Y '); ReadLn(X,Y); If I=1 then begin X0:=X; Y0:=Y; end; L:=L+Sqrt(Sqr(X0-X)-Sqr(Y0-Y)); X0:=X; Y0:=Y; end; Write('Длина L= ', L); End. Добавлено через 2 минуты А в паскале его нет. В скайпе не наблюдаю тебя. Вот мой скайп Ulala1377

ну впринцыпе уже необходимость отпал, вы же сюда выложили код проги

[borum]

Цитата: Сообщение от Улала 2=nekros= Не совсем эффективно. А если у него будет не 200, а 201 точка. Что тогда?

хыхы...
тут чем проще, тем лучше... представь это тело, которое задавало вопрос(топикстартера), который начинает вещать про динамические массивы...
Тут лучше , даже с ошибками... препод посмотрит - и вдруг поверит, что решал сам...
А так - начнет задавать вопросы, на которые тело ответить не в состоянии...
Так что сложности с динамической фигней - тут излишни...

[Улала]

Цитата: Сообщение от borum хыхы... тут чем проще, тем лучше... представь это тело, которое задавало вопрос(топикстартера), который начинает вещать про динамические массивы... Тут лучше , даже с ошибками... препод посмотрит - и вдруг поверит, что решал сам... А так - начнет задавать вопросы, на которые тело ответить не в состоянии... Так что сложности с динамической фигней - тут излишни...

Поэтому я и не стал использовать массивы как таковые. А то препод может придраться еще и к размерности массива: "Почему он слишком большой/маленький?". А так - количество точек задается через переменную и по циклу они потом вводятся (точки). Массив вообще при этом излишен.

[АзЕсмьЦарь]

Мда, такой лёгкий пример и ни одного правильного ответа, ну что ж вот вам правильный ответ:

uses
 crt;
var
 x: array of real;
 y: array of real;
 n: integer;
 i1: integer;
 i2: integer;
 i3: integer;
 l: real;
begin
 clrscr;
 l:=0;
 write('Введите количество точек n: ');
 readln(n);
 writeln('------------------------------');
 setlength(x,n);
 setlength(y,n);
 for i1:=0 to n-1 do
 begin
  write('Координата* x ',i1+1,'-ой точки: ');
  readln(x[i1]);
 end;
 writeln('------------------------------');
 for i2:=0 to n-1 do
 begin
   write('Координата* y ',i2+1,'-ой точки: ');
   readln(y[i2]);
 end;
 writeln('------------------------------');
 for i3:=0 to n-2 do
 begin
   l:=l+sqrt(sqr(x[i3+1]-x[i3])+sqr(y[i3+1]-y[i3]));
 end;
 write('Ответ: l=',l);
 readln;
end.

Кстати в следующий раз тему нужно создавать в соответствующем разделе, в разделе дарка ей явно не место.