/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 571
от 12.02.2008, 02:05

Вопрос № 121.922

Необходима помошь в написании программы. Задание такое: сгенерировать массив a[n,m] через Random со значениями от 0 до 50. повернуть этот массив на 90 градусов по часовой стрелке. на экран вывести исходный массив и повернутый.

Отправлен: 06.02.2008, 12:54 Вопрос задал: Dark Wanderer (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Nazar__D Здравствуйте, Dark Wanderer! Вот текст программы. Помог, че мог :-) Приложение: program Rotate; var m, n: integer; a: array[1..50,1..50] of integer; r: array[1..50,1..50] of integer; x,y: integer; i,j: integer; begin write('Input n (n<50!!!) '); readln(n); write('Input m (m<50!!!) '); readln(m); for i:=1 to n do for j:=1 to m do a[i,j] := random(50); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; x:=n; y:=m; for i:=1 to n do begin for j:=1 to m do begin r[j,x]:=a[i,j] end; x:=x-1 end; writeln; for i:=1 to m do begin for j:=1 to n do write(r[i,j],' '); writeln; end; readln; end. --------- Я - українець!

Ответ отправил: Nazar__D (статус: 3-ий класс) Ответ отправлен: 06.02.2008, 14:23

Вопрос № 121.934

Уважаемые эксперты, знаете ли вы как данная программа на языке с# будет выглядеть в паскале: Заранее блогадарю. Приложение: static void sortMas(int[] m) { int temp = 0; for (int i = 55; i > 0; i--) { for (int j = 55; j > 0; j--) { if (m[j] < m[j - 1]) { temp = m[j - 1]; m[j - 1] = m[j]; m[j] = temp; } } } } static void Main(string[] args) { Random r = new Random(); int[,] mas = new int[7,8]; int[] tempMas = new int[56]; int c = 0, rnd = 0; for (int i = 0; i < 7; i++) { for (int j = 0; j < 8; j++) { rnd = r.Next(1, 100); mas[i, j] = rnd; tempMas[c] = rnd; c++; } } //Sort simple array sortMas(tempMas); //Print matrix c = 0; for (int i = 0; i < 7; i++) { for (int j = 0; j < 8; j++) { mas[i, j] = tempMas[c]; Console.Write(mas[i,j].ToString()+" "); c++; } Console.WriteLine(" "); }

Отправлен: 06.02.2008, 13:50 Вопрос задал: bellick (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, bellick! Программа на Pascal будет выглядеть примерно как в приложении. Удачи! Приложение: program q121934; procedure SortMas(var m: array of Integer); var temp, i, j: Integer; begin for i:= 55 downto 0 do for j:= 55 downto 0 do if (m[j] < m[Pred(j)]) then begin temp:= m[Pred(j)]; m[Pred(j)]:= m[j]; m[j]:= temp; end; end; var mas: array [0..6, 0..7] of Integer; tempMas: array [0..55] of Integer; c, md, i, j: Integer; begin c:= 0; md:= 0; Randomize; for i:= 0 to 6 do for j:= 0 to 7 do begin md:= Random(99) + 1; mas[i, j]:= md; tempMas[c]:= md; Inc(c); end; { Sort simple array } SortMas(tempMas); { Print matrix } c:= 0; for i:= 0 to 6 do for j:= 0 to 7 do begin mas[i, j]:= tempMas[c]; write(mas[i, j], ' '); Inc(c); end; writeLn(' '); end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 06.02.2008, 20:37 Оценка за ответ: 5

Вопрос № 121.941

Необходима помошь в написании программы. Задание такое: елементы данной матрицы натуральные числа от -10 до 70 каждый елемент колонны матрицы переместить в убываюшем порядке. Вывести матрицу на экран. вычеслить и вывести на экран сумму первой колонны матрицы (масив(матрицу) A(N,M) где N и М вводяться с клавиатуры придать значения с помошю RANDOM функцыи . Большое спосибо за помощ.

Отправлен: 06.02.2008, 14:23 Вопрос задал: Потеренный (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евчик Сергей Александрович Здравствуйте, Потеренный! Код программы в приложении. Дерзайте. Приложение: uses crt; var a:array[1..10,1..10] of integer; n,m,i,j,k,min,summ:integer; Begin clrscr; Write('Введите число строк матрицы: '); Readln(n); Write('Введите число столбцов матрицы '); Readln(m); for i:=1 to n do begin Writeln(''); for j:=1 to m do begin a[i,j]:=random(80)-10; Write(a[i,j],' '); end; end; for i:=1 to m do for k:=1 to n do for j:=1 to n-1 do if a[j,i]<a[j+1,i] then begin min:=a[j,i]; a[j,i]:=a[j+1,i]; a[j+1,i]:=min; end; Writeln(''); for i:=1 to m do begin Writeln(a[1,i]); summ:=summ+a[1,m] end; Writeln('Сумма элементов первой строки = ',summ); readln; end.

Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс) Ответ отправлен: 06.02.2008, 20:08

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Потеренный! В приложении мой вариант решения. Удачи! Приложение: var N, M : integer; var A : array[1..100, 1..100] of integer; procedure writemas; var i,j : integer; begin for i := 1 to n do begin for j := 1 to M do write(A[i,j],' '); writeln; end; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; function findmax(c, st : integer):integer; var k, max : integer; begin max := st; for k := st to N do if A[k, c] > A[max, c] then max := k; findmax := max; end; function summ(c : integer):integer; var k, sum : integer; begin sum := 0; for k := 1 to N do sum := sum + A[k, c]; summ := sum; end; procedure SortCol(c : integer); var i : integer; begin for i := 1 to M do change(A[i,c], A[findmax(c,i), c]); end; var i, j : integer; begin WriteLn('Input N:'); ReadLn(n); WriteLn('Input M:'); ReadLn(m); WriteLn; randomize; for i := 1 to N do for j := 1 to M do A[i,j] := random(80)-1; writemas; WriteLn; for i := 1 to M do SortCol(i); writemas; WriteLn; WriteLn('Summ of elements in the first column: ', summ(1)); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист) Ответ отправлен: 06.02.2008, 21:12

Вопрос № 121.960

Помогите пожалуйста решить две задачки по массивам, уверен сложностей вам не доставят. 1. Написать программу, которая определяет количество учеников в классе, чей рост превышает средний. 2. Поменять местами главную и побочную диагонали матрицы.

Отправлен: 06.02.2008, 16:15 Вопрос задал: SaHek (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, SaHek! Программы в приложении. В первой под средним я понимал средний человеческий рост, а не рост средний всех учеников в классе. Удачи! Приложение: =========================== Первая программа =========================== type Tstudent = record name : string[50]; grows : real; end; const MAX = 3; var A : array[1..MAX] of TStudent; var i : integer; st : TStudent; begin for i := 1 to MAX do begin WriteLn('Input student name'); ReadLn(st.name); WriteLn('Input student grows'); ReadLn(st.grows); A[i] := st; end; WriteLn; for i := 1 to MAX do if A[i].grows > 180 then WriteLn(A[i].name,' ',A[i].grows:5:2); ReadLn; end. =========================== Вторая рограмма =========================== const N = 5; var A : array[1..N, 1..N] of integer; procedure writemas; var i,j : integer; begin for i := 1 to n do begin for j := 1 to n do write(A[i,j],' '); writeln; end; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; var i, j : integer; begin randomize; for i := 1 to N do for j := 1 to N do A[i,j] := random(10); writemas; WriteLn; for i := 1 to N do change(A[i,i], A[N-i+1,i]); writemas; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист) Ответ отправлен: 06.02.2008, 18:12

Отвечает: Зенченко Константин Николаевич Здравствуйте, SaHek! Вариант первой задачи. Удачи! Приложение: program q121960; const n=10; var a:array[1..n]of string; b:array[1..n]of real; i:integer; c:real; begin c:=0; for i:=1 to n do begin{в цикле вводим имя и рост ученика} write('Имя:');readln(a[i]); write('Рост:');readln(b[i]); c:=c+b[i];{суммируем рост учеников} end; c:=c/n;{получаем средний рост} for i:=1 to n do{в цикле выводим имя и рост ученика если он выше среднего} if b[i]>c then writeln(a[i],b[i]:5:2); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 06.02.2008, 18:54

Отвечает: Евчик Сергей Александрович Здравствуйте, SaHek! Думаю эти задачи можно решить так: 1. var i,r,k,q,rost:integer; begin Write('Введите средний рост: '); readln(r); Write('Сколько учеников в классе? '); readln(k); q:=0; for i:=1 to k do begin Write('Рост 'i' '-го ученика: ''); readln(rost); if rost>r then inc(q); end; Writeln('Количество учеников в классе= ',q); readln; end. 2. var a:array[1..10,1..10] of integer; i,n:integer; begin readln(n); for i:=1 to n do begin q:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=q; end; end.

Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс) Ответ отправлен: 06.02.2008, 19:24

Отвечает: Артём1983 Здравствуйте, SaHek! Смотрите коды программ в приложении. Приложение: {121960_1} uses crt; const R=10; type vector=array[1..R]of integer; var a:vector; i,s:integer; begin clrscr; randomize; textcolor(white); for i:=1to R do begin a[i]:=150+random(50); s:=s+a[i]; end; s:=s div R; for i:=1to R do begin if a[i]>=s then begin textcolor(lightgreen); write(a[i]:4); end else begin textcolor(white); write(a[i]:4); end; end; textcolor(white); readln; end. {121960_2} uses crt; const R=10; type vector=array[1..R]of integer; matrix=array[1..R]of vector; var a:matrix; i,j,swp:integer; begin clrscr; randomize; textcolor(white); for i:=1to R do begin for j:=1to R do begin a[i,j]:=1+random(10); if j=R then begin if (i=j)or (j=R-i+1) then textcolor(green) else textcolor(white); write(a[i,j]:3); writeln; end else begin if (i=j)or (j=R-i+1) then textcolor(green) else textcolor(white); write(a[i,j]:3); end; end; end; textcolor(white); for i:=1to R do begin for j:=1to R do begin if i=j then begin swp:=a[i,j]; a[i,j]:=a[i,R-i+1]; a[i,R-i+1]:=swp; end; end; end; {===========================================} writeln; textcolor(white); for i:=1to R do begin for j:=1to R do begin if j=R then begin if (i=j)or (j=R-i+1) then textcolor(green) else textcolor(white); write(a[i,j]:3); writeln; end else begin if (i=j)or (j=R-i+1) then textcolor(green) else textcolor(white); write(a[i,j]:3); end; end; end; readln; end. --------- Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 8-ой класс) Ответ отправлен: 07.02.2008, 21:55

Вопрос № 122.011

Уважаемы эксперты! Очень Вас прошу, помогите! Это вопрос жизни и смерти! Надо к пятнице (08.02.08) решить две задачи. Задача 1 Дано поле M на N клеток. Фигура стоит в ЛЕВОМ НИЖНЕМ углу. Существует ТОЛЬКО ЧЕТЫРЕ варианта ходов: 1) 2 клетки вверх и 1 вправо 2) 2 клетки вверх и 1 влево 3) 2 клетки вправо и 1 вверх 4) 2 клетки вправо и 1 вниз Сколько существует вариантов маршрутов добраться до ПРАВОГО ВЕРХНЕГО УГЛА. (Если поле один на один, то ответ 1. Если поле 3*3, то ответ 0. Если поле 2*3, то ответ 1) Задача 2 Дан прямоугольник M на N клеток. Нужно разделить его на квадраты(не обязательно равные). Причём количество квадратов должно быть минимальным. На сколько квадратов можно разделить прямоугольник (например для прямоугольника 2 на 3 ответ 3; для прямоугольника 5 на 6 ответ 5)

Отправлен: 06.02.2008, 22:13 Вопрос задал: Penny (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Penny! Обе программы в приложении. 1)Т.к. значения сторон прямоугольника не известны, то используются динамические переменные, из которых строится список возможных ходов. Вариант для 4х5 в приложении(+ найден путь, - выход за пределы квадрата) При достижении верхнего правого угла увеличивается счетчик путей. 2)Т.к. у квадрата стороны равны, то всегда вычитается из большей стороны меньшая, пока не будет достигнуто равенства сторон т.е последний квадрат. К примеру для 5х6 будет 6 квадратов: 5х5 и 5х(1х1) Удачи! Приложение: program q122011a; type TList=^TBase; TBase=record x,y,z:integer; w:Tlist; end; var a,b:TList; n,m,k:integer; begin {вводим значения} write('Enter N:');readln(n); write('Enter M:');readln(m); {левый нижний угол} new(a); a^.x:=1;{координата по горозонтали} a^.y:=1;{координата по вертикали} a^.z:=4;{число ходов для данной точки} a^.w:=nil;{метка конца цикла} {количество путей} k:=0; repeat {проверяем по ходам для текущего положения} case a^.z of {ход:два в право и один вверх} 4:begin new(b); b^.w:=a; b^.x:=a^.x+2; b^.y:=a^.y+1; end; {ход:два вправо и один вниз} 3:begin new(b); b^.w:=a; b^.x:=a^.x+2; b^.y:=a^.y-1; end; {ход:один вправо и два вверх} 2:begin new(b); b^.w:=a; b^.x:=a^.x+1; b^.y:=a^.y+2; end; {ход:один влево и дав вверх} 1:begin new(b); b^.w:=a; b^.x:=a^.x-1; b^.y:=a^.y+2; end; {хода нет, возращаемся назад} 0:begin b:=a; a:=a^.w; dispose(b);{освобождаем память от текущего положения} b:=a; end; end; {если указатели не равны, это значит есть новый ход} if a<>b then begin dec(a^.z);{уменьшаем количество ходов текущего положения} b^.z:=4;{для нового полжения ставим количество ходов} a:=b;{следующее положение} end; {проверяем достигли ли правого верхнего угла} if (a^.x=n)and(a^.y=m)then begin inc(k);{увеличиваем счетчик путей} a^.z:=0;{заканчиваем ход} end; {если вышли за пределы квадрата заканчиваем ход} if (a^.x>n)or(a^.y>m)or(a^.x<1)or(a^.y<1)then a^.z:=0; until a=nil;{повторяем в цикле пока не обойдем все возможные комбинации} writeln('Path:',k);{выводим результат} end. вариант для 4х5 x:3 y:2 z:4 x:1 y:1 z:3 - x:5 y:3 z:0 x:3 y:2 z:3 x:1 y:1 z:3 x:3 y:2 z:3 x:1 y:1 z:3 - x:5 y:1 z:0 x:3 y:2 z:2 x:1 y:1 z:3 x:3 y:2 z:2 x:1 y:1 z:3 x:4 y:4 z:4 x:3 y:2 z:1 x:1 y:1 z:3 - x:6 y:5 z:0 x:4 y:4 z:3 x:3 y:2 z:1 x:1 y:1 z:3 x:4 y:4 z:3 x:3 y:2 z:1 x:1 y:1 z:3 - x:6 y:3 z:0 x:4 y:4 z:2 x:3 y:2 z:1 x:1 y:1 z:3 x:4 y:4 z:2 x:3 y:2 z:1 x:1 y:1 z:3 - x:5 y:6 z:0 x:4 y:4 z:1 x:3 y:2 z:1 x:1 y:1 z:3 x:4 y:4 z:1 x:3 y:2 z:1 x:1 y:1 z:3 - x:3 y:6 z:0 x:4 y:4 z:0 x:3 y:2 z:1 x:1 y:1 z:3 x:4 y:4 z:0 x:3 y:2 z:1 x:1 y:1 z:3 x:3 y:2 z:1 x:1 y:1 z:3 x:2 y:4 z:4 x:3 y:2 z:0 x:1 y:1 z:3 + x:4 y:5 z:0 x:2 y:4 z:3 x:3 y:2 z:0 x:1 y:1 z:3 program q122011b; var n,m,k:integer; begin {вводим значения сторон с контролем больше 0} repeat write('Enter N:');readln(n); until n>0; repeat write('Enter M:');readln(m); until m>0; k:=1; {цикл поиска квадратов} while n<>m do begin {проверяем стороны} if n>m then begin {уменьшаем оставшийся прямоугольник и выводим получившийся квадрат} n:=n-m; writeln(m,'x',m); end else begin {уменьшаем оставшийся прямоугольник и выводим получившийся квадрат} m:=m-n; writeln(n,'x',n); end; {увеличиваем счетчик квадратов} inc(k); end; {выводим результат} writeln(n,'x',m); writeln('Result:',k); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 07.02.2008, 17:16 Оценка за ответ: 4 Комментарий оценки: Спасибо, но во второй задаче для прямоугольника 5на6 ответ всё-таки 5, ибо мы можем разделить на 2 квадрата 3на2 и 3 квадрата 2на2!!!!!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru