0 / 0 / 0
Регистрация: 20.04.2010
Сообщений: 3
|
|
1 | |
Сформировать 3 массива одномерных со случайными значениями от 0 до 918.12.2010, 20:44. Показов 1197. Ответов 1
Метки нет (Все метки)
Помогите пожалуйста.
Задача в Паскаль: Сформировать 3 массива одномерных со случайными значениями от 0 до 9: 1. Массив целых чисел, 37 элементов. 2. Массив чисел с плавающей запятой 25 элементов 3. Массив чисел с фиксированной запятой, 11 элементов. Найти четные и нечётные элементы в каждом массиве. Сохранить в отдельных массивах порядковые номера под которыми находились четные и нечётные элементы в исходных массивах. Подсчитать количество и сумму значении в каждом массиве чётных и нечетных элементов. Вывести на экран исходные и расчетные данные. вот что я уже сделал. подредактируйте.
0
|
18.12.2010, 20:44 | |
Ответы с готовыми решениями:
1
Сформировать массив длины 20, заполненный случайными целыми значениями от 0 до 9 Сформировать два одномерных массива Z1, Z2 длиной n, элементы массива Z1 сформировать как случайные целые числа Заполнение массива случайными значениями Заполнение массива случайными значениями в С |
0 / 0 / 0
Регистрация: 20.04.2010
Сообщений: 3
|
|
19.12.2010, 21:09 [ТС] | 2 |
uses crt;
type VectorInt = array [1..100] of {real}integer; var b, a, k, s, z: VectorInt; n,c,d, f,g,h, p,t,j, m,r,v, u,q,y: integer; procedure RNDVectorInt(var arr: VectorInt; l,c,d: Integer); var i: integer; begin Randomize; n:=l; for i:=1 to n do arr[i]:=c+trunc((d-c)*Random); end; procedure OutVectorInt(var arr: VectorInt; var l: Integer; Mess: String); var i: integer; begin writeln('n=',l:2); writeln; writeln(Mess); for i:=1 to l do write(arr[i]:4{:0}); writeln; end; procedure RNDVectorInt1(var arr: VectorInt; l1,g,h: Integer); var i: integer; begin Randomize; f:=l1; for i:=1 to f do arr[i]:=g+trunc((h-g)*Random); end; procedure OutVectorInt1(var arr: VectorInt; var l1: Integer; Mess: String); var i: integer; begin writeln('f=',l1:2); writeln; writeln(Mess); for i:=1 to l1 do write(arr[i]:4{:2,' '}); writeln; end; procedure RNDVectorInt2(var arr: VectorInt; l2,t,j: Integer); var i: integer; begin Randomize; p:=l2; for i:=1 to p do arr[i]:=t+trunc((j-t)*Random); end; procedure OutVectorInt2(var arr: VectorInt; var l2: Integer; Mess: String); var i: integer; begin writeln('p=',l2:2); writeln; writeln(Mess); for i:=1 to l2 do write(arr[i]:4); writeln; end; Procedure perepis(var arr, arr1, arr2, arr3: VectorInt; var l,l1,l2,l3: Integer); var i,ind: integer; begin {Ind:=1;} l3:=0; For i:=1 to l do If arr[i] mod 2=0 then if arr[i]<>0 then begin l3:=l3+1; arr3[l3]:=arr[i] end; For i:=1 to l1 do If arr[i] mod 2=0 then if arr[i]<>0 then begin l3:=l3+1; arr3[l3]:=arr[i] end; For i:=1 to l2 do If arr[i] mod 2=0 then if arr[i]<>0 then begin l3:=l3+1; arr3[l3]:=arr[i] end; end; Procedure perepis1(var arr, arr1, arr2, arr3: VectorInt; var l,l1,l2,l4: Integer); var i: Integer; begin l4:=0; For i:=1 to l do If arr[i] mod 2<>0 then if arr[i]<>0 then begin l4:=l4+1; arr3[l4]:=arr[i] end; For i:=1 to l1 do If arr[i] mod 2<>0 then if arr[i]<>0 then begin l4:=l4+1; arr3[l4]:=arr[i] end; For i:=1 to l4 do If arr[i] mod 2<>0 then if arr[i]<>0 then begin l4:=l4+1; arr3[l4]:=arr[i] end; end; {vivod summa elementov massiva} function SumVectorInt(var arr: VectorInt; var l:Integer):LongInt; Var i: Integer; s:LongInt; begin s:=0; for i:=1 to l do s:=s+arr[i]; SumVectorInt:=s; end; begin clrscr; RNDVectorInt(b,37,0,9); OutVectorInt(b,n,'Massiv A:'); writeln; RNDVectorInt1(a,25,0,9); OutVectorInt1(a,f,'Massiv B:'); writeln; RNDVectorInt2(k,11,0,9); OutVectorInt2(k,p,'Massiv C:'); writeln; {clrscr;} perepis(b,a,k,s,n,f,p,m); OutVectorInt(s,m,'massiv S'); writeln('summa elementov massiva=',SumVectorInt(s,m):6); writeln; perepis1(b,a,k,z,n,f,p,u); OutVectorInt(z,u,'massiv T'); writeln('summa elementov massiva=',SumVectorInt(z,u):6); writeln; readln; end. вот текст программы..помогите пожалуйста.подправьте её...
0
|
19.12.2010, 21:09 | |
19.12.2010, 21:09 | |
Помогаю со студенческими работами здесь
2
Заполнение целого массива случайными значениями Заполнение массива случайными значениями без повторений Реализовать функцию по заполнению массива случайными значениями Заполнение двумерного массива случайными неповторяющимися значениями Сортировка двумерного массива, заполненного случайными значениями, по возрастанию Заполнение случайными значениями массива чисел 4 на 5 без повтора Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |