Паскаль

[Developer]

A вопрос можно?
При чём тут паскаль? Обычные задачи на алгоритмизацию...

[Arven]

Source of the post
A вопрос можно?
При чём тут паскаль? Обычные задачи на алгоритмизацию...

Да, конечно, задачи на алгоритмизацию, мы её сейчас и проходим активно))). Ho какой язык лучше всего подходит для изучения агоритмизации ? Просто не знаю как у кого, у нас алгоритмизация идёт неразрывно c изучением языка Паскаль. Ha нём лучше всего изучать алгоритмизацию.

[qwertylol]

Arven, вы бы лучше выкладывали задачки, которые не можете решить, a то сомнительно, чтоб на первом курсе дадут реально сложную задачу(мне на программировании вечно суют "избранное", но на решение более 20 минут ни разу не уходило). Ha выч. мате у нас более сложные алгоритмы, но там маткад.
A вообще научиться возможно вам поможет книга "Турбо паскаль. Решение сложных задач". Там задачки не особо трудные, но рассматривается именно подход к решению(если мыслить так, то получим то-то и то-то, a вот если так, то ...).

[Arven]

Source of the post
Arven, вы бы лучше выкладывали задачки, которые не можете решить, a то сомнительно, чтоб на первом курсе дадут реально сложную задачу(мне на программировании вечно суют "избранное", но на решение более 20 минут ни разу не уходило). Ha выч. мате у нас более сложные алгоритмы, но там маткад.
A вообще научиться возможно вам поможет книга "Турбо паскаль. Решение сложных задач". Там задачки не особо трудные, но рассматривается именно подход к решению(если мыслить так, то получим то-то и то-то, a вот если так, то ...).

Хм. Хорошо. Тогда рассматриваем подробно задачу № 2. Её сейчас как раз и решаю. Первая у меня решена, в принципе, но мне просто было инетересно посмотреть, кто как этот алгоритм напишет, ведь однозначно, может быть много способов. Третью написала тоже...
У меня решено так: (Это № 1)

Код: Выбрать все

Const
 NN = 100;
Type
 e1 = 0..2;
Var
 i,n: integer;
 A: array [m1] of m1;
 B: array [1..NN] of m1;
Begin
Write (‘N:= ‘);
Readln (n);
Writeln (‘Количество элементов в массиве N = ‘, n);
For i:= 1 to n do readln (B[i]);
Writeln;
A[0]:=0; A[1]:=0; A[2]:=0; {присвоение нач. значений}
For i:=1 to n do A[B[i]]:=A[B[i]]+1;
For i:=1 to n do {потом просто цикл сравнения, где мы ставим сначала 0, потом 1, потом 2}
 If i<=A[0] then B[i]:=0
 else If i<=n-A[2] then
 B[i]:=1 else B[i]:=2;
For i:=1 to n do Writeln (B[i])
End.

Inspector, у меня в методичке действительно есть ещё много задач, которые я не могу сообразить, как решить. Я сказала, что как только найду их, сразу выложу. Первые 3 задачки -- это в качестве образца . Ho сложнее у меня есть, например, олимпиадные. Найду -- выложу.



Inspector, спасибо большое за книгу. Ho, к сожалению, сейчас её скачать я не смогу, т.к. стоит ограничение на скачку больше 1 Мб . He могли бы вы прислать мне её на e-mail?

[Soul]

Arven, если вы на первом курсе профильного факультета, то почитайте Кнута (трехтомник), или Кормена.

Ни в какое сравнение c методичкой они не идут

[Arven]

Source of the post
Arven, если вы на первом курсе профильного факультета, то почитайте Кнута (трехтомник), или Кормена.

Ни в какое сравнение c методичкой они не идут

У меня всё-таки создаётся впечатление, что я зря создала эту тему. C литературой я как-нибудь определюсь, просто хотелось предложить людям порешать задачи, хотя бы ради того, чтобы не скучать. Если это "слишком легко", никто же не настаивает, чтобы вы их решали.

[Soul]

Извините, из темы удаляюсь...

[Arven]

Source of the post
Извините, из темы удаляюсь...

Soul, без обид ))) Ничего такого эдакого сказать Вам не хотелось . Просто я давно заметила, что тут открываются такие темы, где можно задачи порешать. Вот подумала, что можно и такую темку открыть, по алгоритмизации/программированию/Паскалю ---- или как кому больше нравится ). Была ещё идея создать темку c логическими задачками, вроде как c головоломками.
Если дело в уровне... Я начинаю, естественно, мне надо начинать c маленького. Если есть предложение решать боле сложные задачи, я только за .

[Сан Иваныч]

у нас алгоритмизация идёт неразрывно c изучением языка Паскаль. Ha нём лучше всего изучать алгоритмизацию.

По большому счёту - без разницы в чём варить суп на электроплите - в чугуне, или в цептеровской кастрюле.
---
Вспомнилось тут, как в самом начале Оззя интересовался насчёт ИТ-раздела на нашем форуме

[qwertylol]

Хм. Хорошо. Тогда рассматриваем подробно задачу № 2. Её сейчас как раз и решаю. Первая у меня решена, в принципе, но мне просто было инетересно посмотреть, кто как этот алгоритм напишет, ведь однозначно, может быть много способов.

Если честно, то не хочется сегодня отвлекаться на программирование, т.к. завтра экзамен. Вот первая(предпологается, что n- довольно большое число).

Код: Выбрать все

uses crt;
type
 Arr=array[1..9] of byte;
 LPArr=^Arr;
{====================================================================}
procedure WriteArray(B:LPArr;n:Word);
var
 i:byte;
begin
 For I:=1 to n do
 Write(B^[i]:2);
 WriteLn;
end;
{====================================================================}
Procedure Sort(B:LPArr;n:word);
var
 i,j,t:word;
 temp:byte;
begin
 for i:=2 to n do
 begin
 if B^[i]<B^[i-1] then
 begin
 j:=2;
 while (B^[i-1]=B^[i-j]) and (i-j<>0) do
 begin
 Inc(j);
 end;
 temp:=B^[i];
 B^[i]:=B^[i-j+1];
 B^[i-j+1]:=temp;
 While (B^[i]=B^[i-j]) and (i-j<>0) do
 Inc(j);
 j:=i-j+1;
 if (j<>1) and (B^[j]<B^[j-1]) then
 begin
 t:=2;
 while (B^[j]<B^[j-t]) and (j-t<>0) do
 Inc(t);
 temp:=B^[j];
 B^[j]:=B^[j-t+1];
 B^[j-t+1]:=temp;
 end;
 end;
 end;
end;
{====================================================================}
var
 N,i:word;
 B:LPArr;
begin
 ClrScr;
 Write('Vvedite kol-vo elementov: ');
 Read(n);
 GetMem(B,n shl 1);
 Randomize;
 for i:=1 to n do
 B^[i]:=Random(3);
 WriteArray(B,n);
 Sort(B,n);
 WriteLn;
 WriteArray(B,n);
 FreeMem(B,n shl 1);
 ReadKey;
end.

Arven, если вы на первом курсе профильного факультета, то почитайте Кнута (трехтомник)

Сортировка пятая глава, я её уже почти "выкурил" . Только у Кнута написано, что он предназначен для выпускников, a не первого курса :yes: . Правда я уже несколько месяцев читаю, но только пол тома осилил, т.к. много математики и исходники на асме- приходится по 10-20 раз всё перечитывать .

Inspector, спасибо большое за книгу. Ho, к сожалению, сейчас её скачать я не смогу, т.к. стоит ограничение на скачку больше 1 Мб smile.gif. He могли бы вы прислать мне её на e-mail?

Конечно могу, только я его не знаю=). Если у вас ограничение на объём файлов, a не трафик, то можно книгу на 3 архива разрезать.