Нужна помощь в задании по практике

[futaba-]

Тема квалификационной работы

 

СОРТИРОВКА МАССИВОВ В TURBO PASCAL

 

Указания по выполнению работы:

1. Определить список необходимой литературы

2. Изучить литературу по данной теме

3. Разработать программу

4. Оформить результаты в виде отчета

 

нужна с этим помощь

 

вообще не шарю особо в паскале

кто поможет тому спс огромное и симпу

[Imdevv]

Немного шарю,а что именно надо?Тупо отсортировать заданный масив?

[futaba-]

Немного шарю,а что именно надо?Тупо отсортировать заданный масив?

хз - надо по теме надо сделать прогу 

[T3h1D0L]

http://lmgtfy.com/?q=%D0%BC%D0%B5%D1%82%D0%BE%D0%B4+%D0%BF%D1%83%D0%B7%D1%8B%D1%80%D1%8C%D0%BA%D0%B0+%D0%BD%D0%B0+turbo+pascal

Тысячи их!

[futaba-]

http://lmgtfy.com/?q=%D0%BC%D0%B5%D1%82%D0%BE%D0%B4+%D0%BF%D1%83%D0%B7%D1%8B%D1%80%D1%8C%D0%BA%D0%B0+%D0%BD%D0%B0+turbo+pascal

Тысячи их!

да загуглить я бы и сам смог

мне прогу саму надо

:<

[pro100son1k]

 

program Quitsort;

uses

crt;

Const

N=10;

Type

Mas=array[1..n] of integer;

var

a: mas;

k: integer;

function Part(l, r: integer):integer;

var

v, i, j, b: integer;

begin

V:=a[r];

I:=l-1;

j:=r;

repeat

repeat

dec(j)

until (a[j]<=v) or (j=i+1);

repeat

inc(i)

until (a>=v) or (i=j-1);

b:=a;

a:=a[j];

a[j]:=b;

until i>=j;

a[j]:=a;

a:= a[r];

a[r]:=b;

part:=i;

end;

procedure QuickSort(l, t: integer);

var i: integer;

begin

if l begin

i:=part(l, t);

QuickSort(l,i-1);

QuickSort(i+1,t);

end;

end;

begin

clrscr;

randomize;

for k:=1 to 10 do

begin

write('BBEDITE ELEMENT ',k,' = ');

Readln(a[k]);

end;

 

QuickSort(1,n);

writeln;

Writeln('MASSIV Posle Sortirovki');

for k:=1 to n do

write(a[k]:3);

readln;

end.

 

[futaba-]

 

program Quitsort;

uses

crt;

Const

N=10;

Type

Mas=array[1..n] of integer;

var

a: mas;

k: integer;

function Part(l, r: integer):integer;

var

v, i, j, b: integer;

begin

V:=a[r];

I:=l-1;

j:=r;

repeat

repeat

dec(j)

until (a[j]<=v) or (j=i+1);

repeat

inc(i)

until (a>=v) or (i=j-1);

b:=a;

a:=a[j];

a[j]:=b;

until i>=j;

a[j]:=a;

a:= a[r];

a[r]:=b;

part:=i;

end;

procedure QuickSort(l, t: integer);

var i: integer;

begin

if l begin

i:=part(l, t);

QuickSort(l,i-1);

QuickSort(i+1,t);

end;

end;

begin

clrscr;

randomize;

for k:=1 to 10 do

begin

write('BBEDITE ELEMENT ',k,' = ');

Readln(a[k]);

end;

 

QuickSort(1,n);

writeln;

Writeln('MASSIV Posle Sortirovki');

for k:=1 to n do

write(a[k]:3);

readln;

end.

 

пишет что k - unknown  identefer  

 

в той строке где k: integer;

 

 

адд:с этим разобрался просто ко всем переменным кинул K

[chshrct]

сортировка какая нужна? пузырек, q-sort и т.д. ?

[Whisp3R]

попробуй var с данными перенести под строку CRT должно заработать

[Rise[Lich]]

сортировка какая нужна? пузырек, q-sort и т.д. ?

[futaba-]

киньте плз еще кто нидь прогу

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

а не кодом

а то он не копируется(

для borland turbo pascal офк

 

 

 

по поводу сортировки - я хз просто по теме надо задания сделать программу

[Гость Mag]

лол в гугле найдешь дохуя сортировок. А то что не копируется, то создай файл блокнот ( *.txt) скопируй туда текст программы и перименуй в *.pas и все открывай через паскаль

 

 

program prog1;

Type mas=array[1..3000] of Char;

var fail :text;
k,rezult,n :integer;
masyvo_element:char; {tut char a ne integer}
i,j :integer; {indexy masiva}
s :string;
masyv :mas;
vi,kl:integer;
all,p:string;
BEGIN

repeat
rezult:=1;
writeln ('Vvedite nazvanije faila:');
writeln('Faily: dom.txt,news.txt');
Write('>> ');
readln(s);
assign(fail,s);
{$I-}
Reset(fail);
{$I+}
rezult := IOResult;
if rezult <> 0 then
writeln('ERROR!');
until rezult=0;

while not eof(fail) do begin {s4itivau vse dannie iz faila}
ReadLn(fail,all);
p:=p+all;
end;

kl:=1;
writeLn('S kokogo simbola sortiruem?');
readln(i);
While i<>length(p) do

Begin
masyv[kl]:=p[i]; {iz stroki kazdii simvol pomeshau v massiv}
i:=i+1;kl:=kl+1;
End;
for i:=1 to kl do
write(masyv[i]);

Begin
{ metod burbula}
for i:=1 to kl-1 do
for j:=1 to kl-i do
if masyv[j]>masyv[j+1] then
begin
masyvo_element:=masyv[j];
masyv[j]:=masyv[j+1];
masyv[j+1]:=masyvo_element;
end;


End;
Close(fail);
for i:=1 to kl do {gorovaga sortirovka}
write(masyv[i]);

end.

[futaba-]

until (a>=v) or (i=j-1);

 

тут пишет TYPE MISMATCH

:<

 

 

 

адд

 

 

лол в гугле найдешь дохуя сортировок. А то что не копируется, то создай файл блокнот ( *.txt) скопируй туда текст программы и перименуй в *.pas и все открывай через паскаль

 

 

program prog1;

Type mas=array[1..3000] of Char;

var fail :text;
k,rezult,n :integer;
masyvo_element:char; {tut char a ne integer}
i,j :integer; {indexy masiva}
s :string;
masyv :mas;
vi,kl:integer;
all,p:string;
BEGIN

repeat
rezult:=1;
writeln ('Vvedite nazvanije faila:');
writeln('Faily: dom.txt,news.txt');
Write('>> ');
readln(s);
assign(fail,s);
{$I-}
Reset(fail);
{$I+}
rezult := IOResult;
if rezult <> 0 then
writeln('ERROR!');
until rezult=0;

while not eof(fail) do begin {s4itivau vse dannie iz faila}
ReadLn(fail,all);
p:=p+all;
end;

kl:=1;
writeLn('S kokogo simbola sortiruem?');
readln(i);
While i<>length(p) do

Begin
masyv[kl]:=p[i]; {iz stroki kazdii simvol pomeshau v massiv}
i:=i+1;kl:=kl+1;
End;
for i:=1 to kl do
write(masyv[i]);

Begin
{ metod burbula}
for i:=1 to kl-1 do
for j:=1 to kl-i do
if masyv[j]>masyv[j+1] then
begin
masyvo_element:=masyv[j];
masyv[j]:=masyv[j+1];
masyv[j+1]:=masyvo_element;
end;


End;
Close(fail);
for i:=1 to kl do {gorovaga sortirovka}
write(masyv[i]);

end.

 

и че там писать в названии файла?D:

когда запускаю программу чето просит 

[ZiXX]

100 баксов

[futaba-]

100 баксов

ноу

[Imdevv]

 

{a-sam masiv,n-kolichestvo chisel,vse ostal`noe - rabochie peremennie}
var
k,i,j,n :integer;
a:array[1..1000] of integer;
procedure sort; {procedura sortirovki}
var r:integer;
begin
 for i:=1 to n-1 do
 for j:=1 to n-i do
 if a[j]>a[j+1] then
 begin
  r:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=r;
 end;
end;
procedure make; {procedura sozdaniya sluchaynogo masiva}
var r:integer;
begin
 randomize;
 for r:=1 to n do a[r]:=random(100);
end;
procedure viv; {procedura vivoda}
var r:integer;
begin
 writeln;
 for r:=1 to n do write(a[r],' ':3);
end;
BEGIN
writeln('n?');
readln(n);
make;
viv;
readln;
sort;
viv;
readln;
END.

 

самый легкий и примитивный способ

 

 

[TToM_GleB]

100 баксов

закс ты не оригинален офк

[BIGFOOT4]

Бля у меня дома охуенная методичка по паскалю, как раз что тебе надо и все очень понятно. А где в инете все это достать, я хз 

[futaba-]

Бля у меня дома охуенная методичка по паскалю, как раз что тебе надо и все очень понятно. А где в инете все это достать, я хз 

(

 

 

 

 

 

нужна еще помощь короче тут озадачили еще хренью

 

Тема квалификационной работы

 

СОЗДАНИЕ ОБУЧАЮЩЕЙ ПРОГРАММЫ В EXCEL ПО ТЕМЕ

«ГРАФИКИ ТРИГОНОМЕТРИЧЕСКИХ ФУНКЦИЙ»

 

Вопросы, подлежащие рассмотрению:

1. MS Excel: назначение, возможность создания обучающих программ, преимущества использования

2. Графики: виды, свойства, способы построения

3. Функции Excel для построения графиков тригонометрических функций.

4. Руководство пользователя

 

 

кто шарит?

 

[fR]

uses crt; graph

 

FF