Есть програмисты? Pascal-Паскаль

[Windtalkers26 48]

Нужна помощь
РАБОТА С МАССИВАМИ

Заданы два одномерных массива А и В, состоящих из произвольного числа элементов. Сформулируйте массив С, содержащий элементы обоих массивов, расположенные в порядке возрастания.

ДВУМЕРНЫЕ МАССИВЫ (МАТРИЦЫ)

Дана целочисленная квадратная матрица порядка 8. Указать порядковый номер столбца, который обладает наибольшей суммой модулей элементов. Если таких, столбцов несколько, то взять первый.

ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ (цикл с параметром)

Вычислить y=sin l.0 + sin 1.1 + sin l.2 + ... + sin2.0.

[drovik 7 378]

[Песня 6 963]

для меня , наверное, так и останется навсегда загадкой, зачем в наше время в ВУЗах изучают Паскаль...

[Windtalkers26 48]

Ребят, было бы проще, списали бы. Я ж не просто так сюда обратился)

[DSP 2 366]

4 минуты назад, Песня сказал:

для меня , наверное, так и останется навсегда загадкой, зачем в наше время в ВУЗах изучают Паскаль...

Предположу, что это техникум (колледж).

[Windtalkers26 48]

Племяшка учится в институте, в другом городе. Попросила помочь)

[drovik 7 378]

[drovik 7 378]

[Startwar 2 316]

9 минут назад, Windtalkers26 сказал:

ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ (цикл с параметром)

Вычислить y=sin l.0 + sin 1.1 + sin l.2 + ... + sin2.0.

http://www.cyberforum.ru/turbo-pascal/thread608271.html

[Windtalkers26 48]

6 минут назад, drovik сказал:

А какая специальность?

Стандартизация)

[Startwar 2 316]

17 минут назад, Windtalkers26 сказал:

ДВУМЕРНЫЕ МАССИВЫ (МАТРИЦЫ)

Дана целочисленная квадратная матрица порядка 8. Указать порядковый номер столбца, который обладает наибольшей суммой модулей элементов. Если таких, столбцов несколько, то взять первый.

http://www.cyberforum.ru/pascal/thread1651214.html

[Startwar 2 316]

17 минут назад, Windtalkers26 сказал:

Нужна помощь
РАБОТА С МАССИВАМИ

Заданы два одномерных массива А и В, состоящих из произвольного числа элементов. Сформулируйте массив С, содержащий элементы обоих массивов, расположенные в порядке возрастания.

Этой задачи в нете нету, но задача простая, делали такие в колледже, ставить паскаль надо и вспоминать, лень =)

[Startwar 2 316]

http://pascalabc.net/WDE/ вот тут онлайн компилятор паскаля, сейчас попробую написать по быстрому.. =)

[Windtalkers26 48]

2 минуты назад, Startwar сказал:

http://pascalabc.net/WDE/ вот тут онлайн компилятор паскаля, сейчас попробую написать по быстрому.. =)

Спасибо)

[deadbeef 114]

25 минут назад, Песня сказал:

для меня , наверное, так и останется навсегда загадкой, зачем в наше время в ВУЗах изучают Паскаль...

а почему нет? для обучения алгоритмизации вполне адекватный язык, а что придётся применять на практике (если придётся) один хрен не угадаешь. в любом случае задача не синтаксису и специфическим фишкам языка научить, а программированию в принципе.

[Startwar 2 316]

56 минут назад, Windtalkers26 сказал:

Нужна помощь
РАБОТА С МАССИВАМИ

Заданы два одномерных массива А и В, состоящих из произвольного числа элементов. Сформулируйте массив С, содержащий элементы обоих массивов, расположенные в порядке возрастания.

var
 a:array[1..20]of integer;
 b:array[1..20]of integer;
 c:array[1..20]of integer;
 i,j,s,s2,masa,masb,masc:integer;
begin
 randomize;
 masa:=random(20);
 masb:=random(20);
 j:=0;
 write('Массив A: ');
 for i:=1 to masa do begin
  a[i]:=random(100);
  inc(masc);
  c[masc]:=a[i];
  write(a[i]:4);
 end;
 writeln;
 write('Массив B: ');
 for i:=1 to masb do begin
  b[i]:=random(100);
  inc(masc);
  c[masc]:=b[i];
  write(b[i]:4);
 end;
 for i:=2 to masc do begin
  j:=i;
  while c[j]<c[j-1] do begin
   s:=c[j];
   c[j]:=c[j-1];
   c[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 writeln;
 write('Массив C: ');
 for i:=1 to masc do write(c[i]:4);
end.

Проверить можно тут: http://pascalabc.net/WDE/

[Windtalkers26 48]

5 минут назад, Startwar сказал:

var
 a:array[1..20]of integer;
 b:array[1..20]of integer;
 c:array[1..20]of integer;
 i,j,s,s2,masa,masb,masc:integer;
begin
 randomize;
 masa:=random(20);
 masb:=random(20);
 j:=0;
 write('Массив A: ');
 for i:=1 to masa do begin
  a[i]:=random(100);
  inc(masc);
  c[masc]:=a[i];
  write(a[i]:4);
 end;
 writeln;
 write('Массив B: ');
 for i:=1 to masb do begin
  b[i]:=random(100);
  inc(masc);
  c[masc]:=b[i];
  write(b[i]:4);
 end;
 for i:=2 to masc do begin
  j:=i;
  while c[j]<c[j-1] do begin
   s:=c[j];
   c[j]:=c[j-1];
   c[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 writeln;
 write('Массив C: ');
 for i:=1 to masc do write(c[i]:4);
end.

Проверить можно тут: http://pascalabc.net/WDE/

Спасибо большое. Племяшка говорит что препод не поверит, что она сама это написала))))

[Startwar 2 316]

2 минуты назад, Windtalkers26 сказал:

Спасибо большое. Племяшка говорит что препод не поверит, что она сама это написала))))

Да по сути тут ничего сложного нет, может кто упростит код, когда писал многое вспоминал, поэтому код оптимизировать есть куда =)

[Windtalkers26 48]

Всё ровно спасибо)

[Startwar 2 316]

1 минуту назад, Windtalkers26 сказал:

Всё ровно спасибо)

Пожалуйста.. Вспомнил паскаль =), уже лет 10 не писал на нем ничего.

[Flamingo 3 995]

11 минуту назад, Startwar сказал:

Да по сути тут ничего сложного нет, может кто упростит код, когда писал многое вспоминал, поэтому код оптимизировать есть куда =)

Есть ошибки. Незначительные  

[MaDMaX 16 792]

4 минуты назад, Flamingo сказал:

Есть ошибки. Незначительные  

[Startwar 2 316]

4 минуты назад, Flamingo сказал:

Есть ошибки. Незначительные  

Возможно, очень давно не писал на паскале =) Буду рад если оптимизируешь.

[Flamingo 3 995]

6 минут назад, MaDMaX сказал:

 

6 минут назад, Startwar сказал:

Возможно, очень давно не писал на паскале =) Буду рад если оптимизируешь.

Не в оптимизации дело. Если массивы a и b определяешь не более 20 элементов, то для с надо зарезервировать 40. И для masc нет первоначального присвоения значения, от какого значения будет  будет наращиваться счетчик? И вообще я подумала,что задача на работу с динамическими массивами, а не статическими. А алгоритм сортировки не проверяла, лень 

 

PS. С Паскалем не имела дела очень давно, вы его тогда видимо только учить начинали 

[Startwar 2 316]

4 минуты назад, Flamingo сказал:

 

Не в оптимизации дело. Если массивы a и b определяешь не более 20 элементов, то для с надо зарезервировать 40.

Хм.. Странно, я вроде писал первоначально 40, потом видать когда затерлось восстанавливал и просто скопировал.. Иначе действительно если massa + massb будет больше 20 то вылетит с ошибкой Windtalkers26 это действительно ошибка..