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

Выпуск № 588
от 29.02.2008, 10:35

Вопрос № 124.466

Уважаемые эксперты, помогите, пожалуйста написать код на Pascal, используя массив: 1) В одномерном массиве размещены: в первых элементах значения аргументов, в следующих - соответствующие им значения функции y=sin(3x) на интервале a, b с шагом h. Напечатать элементы этого массива в виде двух параллельных столбцов (арргумент - значение). Найти и вывести наменьшее значение функции на этои интервале. 2)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких числел несколько, то определить наименьшее из них. 3)Дан массив, состоящий из n случайных чисел. Вводится число k. Если оно равно нулю, массив сортируется по возрастанию, в противном случае по убыванию.

Отправлен: 23.02.2008, 11:43 Вопрос задал: Skske Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: SHERRY Здравствуйте, ! Код первой и третьей задач в приложении в приложении. Приложение: Первая задача. const N=10; {желательно вводить чётное число в качестве размера - в Вашем случае} B=3; h=0.5; var ms:array [1..n] of real; i:integer; min,A: real; begin A:=0; for i:=1 to (N div 2) do begin ms[i]:=A; ms[i+(N div 2)]:=sin(3*A); A:=A+h; end; min := ms[N div 2]; for i:=1 to (N div 2) do begin if ms[i+(N div 2)]<min then min:=ms[i+N div 2]; writeln(ms[i]:7:1,ms[i+(N div 2)]:10:3); end; writeln('Min = ', min:3:3); end. Третья задача. const N=10; var k:real; ms: array [1..n] of integer; i,t,j:integer; begin randomize; for i:=1 to n do ms[i]:=random(100); readln(k); for i:=1 to N do write(ms[i]:5); if k=0 then begin for j:=1 to N-1 do {для верности - выполним неоднократно} for i:=1 to N-1 do if ms[i+1]<ms[i] then begin t:=ms[i]; ms[i]:=ms[i+1]; ms[i+1]:=t; end; end else for j:=1 to N-1 do for i:=1 to N-1 do if ms[i+1]>ms[i] then begin t:=ms[i]; ms[i]:=ms[i+1]; ms[i+1]:=t; end; writeln; for i:=1 to N do write(ms[i]:5); readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 6-ой класс) Ответ отправлен: 23.02.2008, 13:51

Отвечает: Шемет Станіслав Васильович Здравствуйте, Skske! Вот вторая и третья задача,а первую не знаю как сделать. Приложение: Третья задача; Const n=100; var m:array[1..n] of byte; i:word; b:boolean; k:integer; Temp:integer; Procedure Zamena; begin temp:=m[i]; m[i]:=m[i+1]; m[i+1]:=temp; b:=false; end; begin randomize; for i:=1 to n do m[i]:=random(255); Write('Введите k '); Readln(k); repeat b:=true; for i:=1 to n-1 do if k=0 then begin if m[i]>m[i+1] then Zamena; end else if m[i]<m[i+1] then Zamena; until b; For i:=1 to n do (*Выводим массив на монитор*) Write(m[i],#32); Readln; end. Вторая программа Const n=100; var m:array[1..n] of byte; (*n случайных чисел*) Mcol:array[1..n div 2] of byte;(*Здесь храняться наиболее встречаемые числа*) i,j:word; b:boolean; k,k1:integer; Temp:integer; Procedure Zamena; begin temp:=m[i]; m[i]:=m[i+1]; m[i+1]:=temp; b:=false; end; begin randomize; for i:=1 to n do m[i]:=random(255); repeat b:=true; for i:=1 to n-1 do if m[i]>m[i+1] then (*сортируем массив n случайных чисел*) Zamena; until b; k1:=0; k:=0; j:=0; For I:=1 to n do (*поиск наиболее встречаемых чисел*) if m[i]=m[i+1] then inc(k) else Begin if k>=k1 then begin k1:=k; inc(j); mcol[j]:=m[i]; k:=0; end else k:=0; end; temp:=mcol[1]; if j>1 then(*поиск минимального числа из наиболее встречаемых чисел*) for i:=2 to j do if temp>mcol[i] then temp:=mcol[i]; Writeln(temp); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 23.02.2008, 19:45

Вопрос № 124.501

Уважаемые эксперты, помогите, пожалуйста, написать код на Pascal, спользуя массив: 1)В одномерном массиве размещены: в первых элементах значения аргументов, в следующих - соответствующие им значения функции y=sin(3x) на интервале a, b с шагом h. Напечатать элементы этого массива в виде двух параллельных столбцов (арргумент - занчение). Найти и вывести наменьшее значение функции на этом интервале. 2)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких числел несколько, то определить наименьшее из них. 3)Дан массив, состоящий из n случайных чисел. Вводится число k. Если оно равно нулю, массив сортируется по возоастанию, в противном случае по убыванию.

Отправлен: 23.02.2008, 17:53 Вопрос задала: Иванова Екатерина Сергеевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станіслав Васильович Здравствуйте, Иванова Екатерина Сергеевна! вот вторая и третья программа: Приложение: Const n=100; var m:array[1..n] of byte; i:word; b:boolean; k:integer; Temp:integer; Procedure Zamena; begin temp:=m[i]; m[i]:=m[i+1]; m[i+1]:=temp; b:=false; end; begin randomize; for i:=1 to n do m[i]:=random(255); Write('k= '); Readln(k); repeat b:=true; for i:=1 to n-1 do if k=0 then begin if m[i]>m[i+1] then Zamena end else if m[i]<m[i+1] then Zamena until b; for i:=1 to n do Write(m[i],#32); Readln; end. Const n=100; var m:array[1..n] of byte; i:word; b:boolean; k:integer; Temp:integer; Procedure Zamena; begin temp:=m[i]; m[i]:=m[i+1]; m[i+1]:=temp; b:=false; end; begin randomize; for i:=1 to n do Readln(m[i]); Write('k= '); Readln(k); repeat b:=true; for i:=1 to n-1 do if k=0 then begin if m[i]>m[i+1] then Zamena end else if m[i]<m[i+1] then Zamena until b; For i:=1 to n do Write(m[i],#32); Readln; end. Const n=100; var m:array[1..n] of byte; Mcol:array[1..n div 2] of byte; i,j:word; b:boolean; k,k1:integer; Temp:integer; Procedure Zamena; begin temp:=m[i]; m[i]:=m[i+1]; m[i+1]:=temp; b:=false; end; begin randomize; for i:=1 to n do Readln(m[i]); repeat b:=true; for i:=1 to n-1 do if m[i]>m[i+1] then Zamena; until b; k1:=0; k:=0; j:=0; For I:=1 to n do if m[i]=m[i+1] then inc(k) else Begin if k>=k1 then begin k1:=k; inc(j); mcol[j]:=m[i]; k:=0; end else k:=0; end; temp:=mcol[1]; if j>1 then for i:=2 to j do if temp>mcol[i] then temp:=mcol[i]; Writeln(temp); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 23.02.2008, 19:53 Оценка за ответ: 5

Отвечает: Попов Владимир Иванович Здравствуйте, Иванова Екатерина Сергеевна! Исходник первой программы в приложении. Протестирован. Работает. Организован запрос на повторный запуск и предаврительная проверка входных данных на соответствие некоторому предельно допустимому количеству шагов итерации. Приложение: program q124501; uses crt; const Nmax=100; var ch:char; a,b,h,x,fmin:real; n,i:integer; mas:array[1..Nmax] of real; begin repeat clrscr; writeln; write('Input a, b, h : '); readln(a,b,h); n:=round(1+(b-a)/h); if n>Nmax then writeln('Input error : the number of need steps must be <= ',Nmax) else begin x:=a; mas[1]:=x; writeln(x:8:4,' ',sin(x):5:4); for i:=2 to n do begin x:=x+h; mas[i]:=sin(3*x); writeln(x:8:4,' ',mas[i]:5:4); end; fmin:=mas[2]; for i:=3 to n do if fmin>mas[i] then fmin:=mas[i]; writeln('The minimum value of function is : fmin = ',fmin:5:4); end; write('Again (y/n) ? - '); ch:=readkey; until ch='n'; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 18:19 Оценка за ответ: 5

Вопрос № 124.516

Дан одномерный массив.Переставить местами максимальный и минимальный элемент

Отправлен: 23.02.2008, 20:11 Вопрос задал: Юрченко Евгений Сергеевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Юрченко Евгений Сергеевич! Программа в приложении. Удачи! Приложение: const N = 10; var M : array[1..N] of integer; function findMin:integer; var i, min : integer; begin min := 1; for i := 2 to N do if M[i] < M[min] then min := i; findmin := min; end; function findMax:integer; var i, max : integer; begin max := 1; for i := 2 to N do if M[i] > M[max] then max := i; findmax := max; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; var i : integer; begin randomize; for i := 1 to N do begin M[i] := random(100); WriteLn(M[i]); end; WriteLn; Change(M[findmin],M[findmax]); for i := 1 to N do WriteLn(M[i]); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 23.02.2008, 20:17 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Юрченко Евгений Сергеевич! Вот вам программа Приложение: Const n=5; var M:array[1..n] of byte; Min,Max,I:byte; Buf:byte; begin randomize; For i:=1 to n do m[i]:=random(255);(*Заполняем случайными числами массив*) Min:=1; Max:=1;(*Поиск номера максимального и минимального елемента*) for i:=1 to n do begin if m[Min]>m[i] then(*Поиск номера минимального елемента*) min:=i; If m[max]<m[i] then(*Поиск номера максимального елемента*) Max:=i; end; Buf:=m[min]; (*замена макс. и мин. елементов *) m[min]:=m[max]; m[max]:=buf; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 23.02.2008, 21:00 Оценка за ответ: 5

Отвечает: Попов Владимир Иванович Здравствуйте, Юрченко Евгений Сергеевич! Исходник в приложении. Протестирован. Работает на целочисленных массивах длиной до 15 чисел. Длину можно задавать через константу Nmax. Организован запрос на повторное исполнение. Выводятся значения максимального и минимального элементов вместе с номерами их позиций, а также трансформированный массив с заданной перестановкой. Приложение: program q124516; uses crt; const Nmax=15; var mas:array[1..Nmax] of integer; N,i,min,max,n1,n2:integer; ch:char; begin repeat clrscr; writeln; write(' Enter the length of you array : N = '); readln(N); if N>Nmax then writeln(' Input error : the length of set array must be <= ',Nmax) else begin writeln(' Input your array"s elements :'); for i:=1 to N do begin write(' mas[',i,'] = '); readln(mas[i]); end; min:=mas[1]; n1:=1; for i:=2 to N do if min>mas[i] then begin min:=mas[i]; n1:=i; end; max:=mas[1]; n2:=1; for i:=2 to N do if max<mas[i] then begin max:=mas[i]; n2:=i; end; mas[n1]:=max; mas[n2]:=min; writeln(' The minimum element was min = ',min,'; under position number n1 = ',n1); writeln(' The maximum element was max = ',max,'; under position number n2 = ',n2); writeln(' The transmission array is :'); for i:=1 to N do writeln(' ',mas[i]); end; write(' Again (y/n) ? - '); ch:=readkey; until ch='n'; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 19:44 Оценка за ответ: 5

Вопрос № 124.524

Дан двумерный массив. Сформировать одномерный массив,каждый элемент которого равен количеству элементов соответствующей строки.

Отправлен: 23.02.2008, 20:53 Вопрос задал: Юрченко Евгений Сергеевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Юрченко Евгений Сергеевич! Вы неверно сформулировали задание: в двумерном массиве одинаковое кол-во элементов в каждой строке. Например, если у Вас двумерные массивы A : array[1..N,1..M] of integer; B : array[1..N] of integer;, то Ваше задание выполняется циклом for i := 1 to N do   B[i] := M; Сомневаюсь, что все так просто... Я так понимаю, что в исходной задаче требовалось найти сумму элементов каждой строки и записать ее в одномерный массив. В приложении программа, выполняющая это. Удачи! Приложение: const N = 10; var A : array[1..N,1..N] of integer; B : array[1..N] of integer; function summ(i:integer):integer; var j, res : integer; begin res := 0; for j := 1 to N do res := res + A[i,j]; summ := res; end; var i, j : integer; begin randomize; for i := 1 to N do begin for j := 1 to N do begin A[i,j] := random(10); Write(A[i,j]:3); end; WriteLn; end; WriteLn; for i := 1 to N do begin B[i] := summ(i); WriteLn(B[i]); end; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 23.02.2008, 21:04 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Юрченко Евгений Сергеевич! Вот как я понял вопрос: дан массив Х*У и надо найти количество строк а потом создать массив(одномерный), и потом его заполнить числом количества строк в массиве Х*У количество строк в массиве Х*У ровняеться значению Х. Как я понимаю нужно одномерный массив заполнить значением Х. Вот вам программа которая делает этот алгоритм: Const X=10; Y=7; Var m:array[1..x,1..y] of byte; Mx:array[1..x] of byte; Begin Fillchar(mx,x,x); end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 23.02.2008, 21:12 Оценка за ответ: 5

Отвечает: Попов Владимир Иванович Здравствуйте, Юрченко Евгений Сергеевич! В условии, скорее всего, есть неточность - необходимо найти массив, содержащий значение сумм всех элементов соответствующей строки исходного массива, ведь количество элементов во всех строках одинаково. Если так, то исходник - в приложении. Удачи. Приложение: program q124524; uses crt; const Nmax=10; var a:array[1..Nmax,1..Nmax] of integer; b:array[1..Nmax] of integer; m,n,i,j,s:integer; ch:char; begin repeat clrscr; writeln; write(' Enter the dimention of your array ( m <space> n ) : '); readln(m,n); if (n>Nmax) or (n<=1) or (m>Nmax) or (m<=1) then begin writeln; writeln(' Input error : m & n must be > 1 and <= ',Nmax); writeln(' -------------------------------------------'); end else begin writeln; writeln(' Input your array"s elements :'); for i:=1 to m do begin writeln; for j:=1 to n do begin write(' a[',i,',',j,'] = '); read(a[i,j]); end; end; writeln; writeln(' The set vector of summ-rows is : '); writeln(' ---------------------------------'); for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+a[i,j]; b[i]:=s; writeln(' b[',i,'] = ',b[i]); end; end; writeln; write(' Again (y/n) ? - '); ch:=readkey; until ch='n'; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 20:28

Вопрос № 124.529

Составить программу вывода последовательности символов ZYYXXX...AA.. Y на экран.

Отправлен: 23.02.2008, 21:11 Вопрос задал: Юрченко Евгений Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Юрченко Евгений Сергеевич! Программа в приложении. Удачи! Приложение: var i, k : integer; begin i := 1; while ord('Z')-i+1 >= ord('A') do begin for k := 1 to i do write(chr(ord('Z')-i+1)); inc(i); end; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 23.02.2008, 21:30 Оценка за ответ: 5

Отвечает: Попов Владимир Иванович Здравствуйте, Юрченко Евгений Сергеевич! Очень интересненькая задачка. Здесь можно воспользоваться функцией Chr(x), которая возвращает символ по его ASCII-коду. Для организации вывода символов в количестве, равном их номеру в последовательности от 'Z' до 'A', естественно использовать вложенный цикл. Всего получается 26 символов, из которых первый ('Z', с ASCII-кодом, равным #90), печатается 1 раз, а последний ('A', с ASCII-кодом, равным #65), печатается, соответственно, - 26 раз. Исходник - в приложении. Удачи. Приложение: program q124529; uses crt; var i,j:integer; ch:char; x:byte; begin clrscr; writeln; x:=90; for i:=1 to 26 do begin ch:=chr(x); for j:=1 to i do write(ch); x:=x-1; end; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 21:34 Оценка за ответ: 5

Вопрос № 124.580

Программа для перевода в разные системы счисления. Помогите пожалуйста, где ошибка. Некорректно переводит в шестнадцатиричную систему счисления. Приложение: program sys_schisl; uses Crt; var k,c,p,i: Longint; s,t,f: String; w: Byte; procedure Preob(s: String); begin for w:=1 to length(s) do t:=s[w]+t; Writeln('ђҐ§г«мв в=',t) end; procedure Dvoich(d: Integer); begin Writeln('ЏҐаҐў®¤ ў ¤ў®Ёз­го бЁб⥬г:'); k:=d; while k > 1 do begin i:= k mod 2; str (i,t); s:=s+t; k:= k div 2; end; p:=k; str(p,f); s:=s+f; Preob(s); end; procedure Vosmir(v: Integer); begin Writeln('ЏҐаҐў®¤ ў ў®бм¬ЁаЁз­го:'); k:=v; while k > 7 do begin i:= k mod 8; str (i,t); s:=s+t; k:= k div 8; end; p:=k; str(p,f); s:=s+f; Preob(s); end; procedure Shestn(sh: Integer); begin Writeln('ЏҐаҐў®¤ ў иҐбв­ ¤ж вЁаЁз­го:'); k:=sh; if (k>=0) and (k<10) then begin Writeln('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=',k); halt; end else if (k>=10) and (k<16) then begin case k of 10: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','A'); 11: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','B'); 12: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','C'); 13: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','D'); 14: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','E'); 15: Writeln ('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=','F'); end; repeat i:= k mod 16; if (i<=9) and (i>=0) then begin str (i,f); s:=s+f; end else if (i>=10) and (i<16) then case i of 10: insert ('A',s,length(s)+1); 11: insert ('B',s,length(s)+1); 12: insert ('C',s,length(s)+1); 13: insert ('D',s,length(s)+1); 14: insert ('E',s,length(s)+1); 15: insert ('F',s,length(s)+1); end; k:= k div 16; until k<16; if (k>=10) and (k<16) then case k of 10: insert ('A',s,length(s)+1); 11: insert ('B',s,length(s)+1); 12: insert ('C',s,length(s)+1); 13: insert ('D',s,length(s)+1); 14: insert ('E',s,length(s)+1); 15: insert ('F',s,length(s)+1); end else begin str(k,f); s:=s+f; end; Writeln('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп=',s); end; end; begin ClrScr; Writeln('‚ўҐ¤ЁвҐ «оЎ®Ґ 楫®зЁб«Ґ­­®Ґ зЁб«®:'); Readln(c); Writeln('‚ Є Єго бЁб⥬г бзЁб«Ґ­Ёп б«Ґ¤гҐв ЇҐаҐўҐбвЁ:'); Writeln(' ‚ўҐ¤ЁвҐ 1, ¤«п ЇҐаҐў®¤  ў ¤ў®Ёз­го'); Writeln(' ‚ўҐ¤ЁвҐ 2, ¤«п ЇҐаҐў®¤  ў ў®бм¬ЁаЁз­го'); Writeln(' ‚ўҐ¤ЁвҐ 3, ¤«п ЇҐаҐў®¤  ў иҐбв­ ¤ж вЁаЁз­го'); Readln(k); if k = 1 then Dvoich(c); if k = 2 then Vosmir(c); if k = 3 then Shestn(c); Repeat until keypressed; end.

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

Отвечает: Denisss Здравствуйте, Gamer123! В Вашем примере некорректно переводятся числа не только в 16-ную, но и в другие системы: Например, при переводе числа 10 в 2-ную систему выдает результат 10100 (т.е. 20 в 10-ной системе), а при переводе в 8-ную - 122 (т.е. 82 в 10-й системе). Переделанный работающий пример находится в приложении. Удачи! Приложение: program sys_schisl; uses Crt; var k, i, c: Longint; s: String; function Dvoich(d: Integer): String; var zero: byte; begin Writeln('ЏҐаҐў®¤ ў ¤ў®Ёз­го бЁб⥬г:'); zero:= ord('0'); k:= d; s:= ''; while (k <> 0) do begin i:= k and 1; s:= Char(i + zero) + s; k:= k shr 1; end; Writeln('ђҐ§г«мв в: ', s); end; procedure Vosmir(v: Integer); var zero: byte; begin Writeln('ЏҐаҐў®¤ ў ў®бм¬ЁаЁз­го:'); zero:= ord('0'); k:= v; s:= ''; while (k <> 0) do begin i:= k and 7; s:= Char(i + zero) + s; k:= k shr 3; end; Writeln('ђҐ§г«мв в: ', s); end; procedure Shestn(sh: Integer); const toHex: array [0..15] of Char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'); begin Writeln('ЏҐаҐў®¤ ў иҐбв­ ¤ж вЁаЁз­го:'); k:= sh; s:= ''; while (k <> 0) do begin i:= k and 15; s:= toHex[i] + s; k:= k shr 4; end; Writeln('ђҐ§г«мв в ў 16-®© бЁб⥬Ґ бзЁб«Ґ­Ёп: ', s); end; begin ClrScr; Writeln('‚ўҐ¤ЁвҐ «оЎ®Ґ 楫®зЁб«Ґ­­®Ґ зЁб«®:'); Readln(c); Writeln('‚ Є Єго бЁб⥬г бзЁб«Ґ­Ёп б«Ґ¤гҐв ЇҐаҐўҐбвЁ:'); Writeln(' ‚ўҐ¤ЁвҐ 1, ¤«п ЇҐаҐў®¤  ў ¤ў®Ёз­го'); Writeln(' ‚ўҐ¤ЁвҐ 2, ¤«п ЇҐаҐў®¤  ў ў®бм¬ЁаЁз­го'); Writeln(' ‚ўҐ¤ЁвҐ 3, ¤«п ЇҐаҐў®¤  ў иҐбв­ ¤ж вЁаЁз­го'); Readln(k); if (k = 1) then Dvoich(c); if (k = 2) then Vosmir(c); if (k = 3) then Shestn(c); Repeat until keypressed; end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 24.02.2008, 11:42

Вопрос № 124.583

Здравтсвуйте,уважаемые эксперты,помогите,пожалуйста, написать код, используя массив: 1)Последовательность a1, a2, ... an включает в себя несколько нулей. Поставить в начало этой последовательности нули, а остальные элементы сдвинуть, не меняя их порядок. 2)Дана последовательность целых чисел, a1, a2, ... an. указать пары чисел, ai, aj, таких, что ai + aj = m. 3)Задан целочисленый массив, размерности n. Есть ли среди элементов массива простые числа? Если да, то выведите номера таких элементов.

Отправлен: 24.02.2008, 10:26 Вопрос задала: Иванова Екатерина Сергеевна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Иванова Екатерина Сергеевна! Третья программа в приложении. Удачи! Приложение: const n = 10; var A : array[1..N] of integer; function issimple(n:integer):boolean; var i : integer; res : boolean; begin i := 2; res := n > 1; while res and(i<n) do begin if n mod i = 0 then res := false; inc(i) end; issimple := res; end; var i : integer; begin randomize; for i := 1 to N do begin A[i] := random(50); Write(A[i]:4); end; WriteLn; for i := 1 to N do if issimple(A[i]) then WriteLn(i); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 24.02.2008, 13:33 Оценка за ответ: 5

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