Паскаль задачи, помогайте.

[vizeer9a 0]

Ребят помогите составить две программы на паскале.

1. Даны двухмерные массивы одного размера, создать третий массив того же размера, каждый элемент которого равен сумме соответствующих элементов первых двух.

2 Найти кол-во элементов в каждой строке, больших среднего арифметического элементов данной строки.

Изменено 7 октября 2010 пользователем vizeer9a

[AlexHSH 0]

Если ты даже это решить не можешь, то какого хрена программированием занимаешься? Или у тебя новомодная специальность "инфотехнолог"?

[kotokot 0]

мб школоло, мы тоже пейсали "программы" на паскале и даже делфи в школе.

автору топика обратиться в бюро выдачи моска.

[creker 0]

О хоспаде... Неужели ты НАСТОЛЬКО плохо в этом разбираешься?

[El Biga 0]

чему вас только учат...((((((

мы в свое время к учителю обращались или к однокурсникам\одноклассникам)))

[koIIImap 0]

Ща напишу. Заодно вспомню что да как

[MurderConrol 0]

Открой пособие и сделай,делов то.

[koIIImap 0]

Первая задача

длина массивов задается в варе, значения забиваются рандомно

 

uses crt;

var mas1,mas2,mas3:array[1..10] of integer; i:integer;

begin clrscr;

for i:=1 to 10 do

begin

randomize;

mas1:=random(10);

randomize;

mas2:=random(10);

mas3:=mas1+mas2;

end;

for i:=1 to 10 do

write(mas1:2,' ');

writeln;

for i:=1 to 10 do

write(mas2:2,' ');

writeln;

for i:=1 to 10 do

write(mas3:2,' ');

readln;

end.

 

vizeer9a, если нужны комментарии, спрашивай

сейчас вторую накатаю

Изменено 7 октября 2010 пользователем koIIImap

[vizeer9a 0]

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

[koIIImap 0]

Вторая задача

длина массива также в var

 

uses crt;

var mas:array[1..10] of integer; i,k:integer; n:real;

begin clrscr;

n:=0; randomize;

for i:=1 to 10 do

begin

mas:=random(10);

n:=n+mas;

end;

n:=n/10;

k:=0;

for i:=1 to 10 do

begin

write(mas,' ');

if mas>n then k:=k+1;

end;

write('k=',k);

readln;

end.

[vizeer9a 0]

Благодарю еще раз:)

[creker 0]

Первая задача

длина массивов задается в варе, значения забиваются рандомно

 

uses crt;

var mas1,mas2,mas3:array[1..10] of integer; i:integer;

begin clrscr;

for i:=1 to 10 do

begin

randomize;

mas1:=random(10);

randomize;

mas2:=random(10);

mas3:=mas1+mas2;

end;

for i:=1 to 10 do

write(mas1:2,' ');

writeln;

for i:=1 to 10 do

write(mas2:2,' ');

writeln;

for i:=1 to 10 do

write(mas3:2,' ');

readln;

end.

 

vizeer9a, если нужны комментарии, спрашивай

сейчас вторую накатаю

Собственно, где здесь двухмерный массив? Это объявление для одномерного.

[koIIImap 0]

а блин не заметил, что двухмерный массив в первой задаче, сейчас переделаю.

 

uses crt;

var mas1,mas2,mas3:array[1..5,1..5] of integer; i,j,n:integer;

begin clrscr; randomize;

for i:=1 to 5 do

for j:=1 to 5 do

begin

mas1[i,j]:=random(10);

mas2[i,j]:=random(10);

mas3[i,j]:=mas1[i,j]+mas2[i,j];

end;

for i:=1 to 5 do

for j:=1 to 5 do

begin

write(mas1[i,j]:2,' ');

if j=5 then writeln;

end;

writeln;

 

for i:=1 to 5 do

for j:=1 to 5 do

begin

write(mas2[i,j]:2,' ');

if j=5 then writeln;

end;

writeln;

 

for i:=1 to 5 do

for j:=1 to 5 do

begin

write(mas3[i,j]:2,' ');

if j=5 then writeln;

end;

readln;

end.

 

уже не могу старый пост изменить

Изменено 7 октября 2010 пользователем koIIImap

[vizeer9a 0]

для j

[0mfg 0]

а блин не заметил, что двухмерный массив в первой задаче, сейчас переделаю.

 

Найти кол-во элементов в каждой строке, больших среднего арифметического элементов данной строки.

 

Во второй тоже двумерный )

Изменено 7 октября 2010 пользователем 0mfg

[koIIImap 0]

Во второй тоже двумерный )

сплю на ходу... щас для двухмерного напишу

 

uses crt;

var mas:array[1..5,1..5] of integer; i,j,k:integer; n:array[1..5] of real;

begin clrscr;

randomize;

for i:=1 to 5 do

for j:=1 to 5 do

begin

mas[i,j]:=random(10);

write(mas[i,j],' ');

n:=n+mas[i,j];

if j=5 then writeln;

end;

for i:=1 to 5 do n:=n/5;

 

k:=0;

for i:=1 to 5 do

for j:=1 to 5 do

begin

if mas[i,j]>n then k:=k+1;

if j=5 then

begin write(k);k:=0; writeln;

end;

end;

readln;

end.

Изменено 7 октября 2010 пользователем creker

[Гость aikodagger]

Кошмар.У нас в школе информатика подразумевала только напечатывание текста в ворде.

[creker 0]

koIIImap, забыл k обнулить перед первой итерацией. Да и массив n тоже неплохо бы обнулить.

[koIIImap 0]

Кошмар.У нас в школе информатика подразумевала только напечатывание текста в ворде.

а у нас на информатике все играли в первый гта :biggrin:

 

koIIImap, забыл k обнулить перед первой итерацией. Да и массив n тоже неплохо бы обнулить.

"k=0;" как раз где пустая строка. Изменение поста опять отключилось

на n:=nil; мой паскаль почему то ругается

а правильно, массив ведь не динамический. Ладно, и так работает)

Изменено 7 октября 2010 пользователем koIIImap

[creker 0]

koIIImap, ну так прогнать циклом простеньким и обнулить. А n:=nil - тут мне видится вообще обнуление указателя на массив.

 

Ладно, и так работает)

Зато не цивильно. Преподы любят к этому придираться. Как пересядешь на другие языки, а у тебя там в переменной будет мусор.

 

А вообще, говнокод получился)). Форматирование просто класс.

[koIIImap 0]

А вообще, говнокод получился)). Форматирование просто класс.

Ну, надо и автору поработать немного, заодно разберется в коде.

[vizeer9a 0]

Спс. Буду разбираться ))

[Гость aikodagger]

а у нас на информатике все играли в первый гта :biggrin:

 

 

"k=0;" как раз где пустая строка. Изменение поста опять отключилось

на n:=nil; мой паскаль почему то ругается

а правильно, массив ведь не динамический. Ладно, и так работает)

Ну мы тоже рубились,ток в первую кваку :)