Pascal - Visavi.net

Pascal - Visavi.net https://visavi.net/ RSS - Visavi.net https://visavi.net/assets/img/images/logo_small.png RSS - Visavi.net https://visavi.net/ [email protected] (admin) [email protected] (admin) Tue, 19 Nov 2024 11:25:09 +0300 Нужно к завтрашнему дню, срочно. https://visavi.net/topics/9487/647041 Pascal sabbath Mon, 23 Sep 2013 02:08:18 +0400 Сообщения https://visavi.net/topics/9487/647041 Изображения показываются некорректно, перезалил. <a href="http://files.mail.ru/6881E0C9A1CF45B896D5E4D7BBFABC12?t=1" target="_blank" rel="nofollow">http://files.mail.ru/6881E0C9A1CF45B896D5E4D7BBFABC12?t=1</a> https://visavi.net/topics/9487/647031 Pascal sabbath Mon, 23 Sep 2013 00:43:58 +0400 Сообщения https://visavi.net/topics/9487/647031 помогите еще с паскалем, есть рисунок с блок-схемой <a href="http://rghost.ru/48909728.view" target="_blank" rel="nofollow">http://rghost.ru/48909728.view</a> по этой схеме нужно написать программу. А это <a href="http://rghost.ru/48909814.view" target="_blank" rel="nofollow">http://rghost.ru/48909814.view</a> задания к вариантам, в данном случае смотрим вариант 5. https://visavi.net/topics/9487/647030 Pascal sabbath Sun, 22 Sep 2013 23:46:59 +0400 Сообщения https://visavi.net/topics/9487/647030 И на кого ? https://visavi.net/topics/9487/646930 Pascal Tegos Sat, 21 Sep 2013 18:56:20 +0400 Сообщения https://visavi.net/topics/9487/646930 36. ZiGR, а где ты учишься ? https://visavi.net/topics/9487/646926 Pascal Tegos Sat, 21 Sep 2013 18:38:13 +0400 Сообщения https://visavi.net/topics/9487/646926 <blockquote class="blockquote">ZiGR (21 Сентября 2013 / 12:22) 33. ZZZZZZ, ага. Да мы вообще на парах код на листочках пишем, а потом препод в уме проверяет <img src="https://visavi.net/uploads/stickers/D.gif" alt="D"> </blockquote> на парах ? https://visavi.net/topics/9487/646917 Pascal Tegos Sat, 21 Sep 2013 15:36:20 +0400 Сообщения https://visavi.net/topics/9487/646917 <blockquote class="blockquote">ZiGR (20 Сентября 2013 / 23:55) 30. ZZZZZZ, исправил ошибки <img src="https://visavi.net/uploads/stickers/smile.gif" alt="smile"> </blockquote> о_О ! Ну спасибо. <img src="https://visavi.net/uploads/stickers/smile.gif" alt="smile"> компилировал ? Добавлено через 01:26 сек. 32. sabbath, не за что. Обращайся. Добавлено через 06:35 сек. Ой, а может это и не мне, извиняюсь, если что. https://visavi.net/topics/9487/646895 Pascal Tegos Sat, 21 Sep 2013 04:16:59 +0400 Сообщения https://visavi.net/topics/9487/646895 Благодарю за помощь https://visavi.net/topics/9487/646888 Pascal sabbath Sat, 21 Sep 2013 03:02:19 +0400 Сообщения https://visavi.net/topics/9487/646888 <pre class="prettyprint"> program tegos; var s,n,i:integer; min, max, sum, r: real; mas:array [100] of integer; begin randomize; n:=random (100); for i:=1 to n do mas[i]:=random(99); min:=mas[1]; max:=mas[1]; for i:=2 to n do begin if min>mas[i] then min:=mas[i]; if max<mas[i] then max:=mas[i]; end; s:=0; for i:=1 to n do s:=s+mas[i]; r:=s/n; write ('Min ->',min); write ('Max ->', max); write ('Avarange -> ', r); end. </pre> Добавлено через 01:43 сек. П.С. На Паскале давно ничего не писал. + писал по памяти и с тлфна. Добавлено через 04:10 сек. Эмм, ну еще было бы хорошо вывести данный массив. Ну думаю с этим справишься сам. https://visavi.net/topics/9487/646885 Pascal Tegos Sat, 21 Sep 2013 02:41:29 +0400 Сообщения https://visavi.net/topics/9487/646885 Срочно нужно, прошу помощи, особенно со второй задачей. https://visavi.net/topics/9487/646878 Pascal sabbath Sat, 21 Sep 2013 00:59:51 +0400 Сообщения https://visavi.net/topics/9487/646878 1 решил так: <pre class="prettyprint">program pr; var s, n : integer; begin s:=0; for n:=1 to 10 do s:=s+n; writeln(s); end.</pre> правильно? https://visavi.net/topics/9487/646864 Pascal sabbath Fri, 20 Sep 2013 21:09:48 +0400 Сообщения https://visavi.net/topics/9487/646864 Дабы не создавать отдельную тему, спрошу здесь. Помогите написать задачи, не очень дружу с паскалем. 1. составить программу нахождения суммы чисел от 1 до 10. 2. создать массив от n случайного числа, подсчитать их среднее арифметическое max и min значение. https://visavi.net/topics/9487/646863 Pascal sabbath Fri, 20 Sep 2013 20:50:23 +0400 Сообщения https://visavi.net/topics/9487/646863 5. СП подсчёта чисел наименьших по модулю элементов массива. <pre class="prettyprint">program visavi; uses CRT; var q,c,d,n,i,j:integer; A:array [1..100] of integer; B:array [1..100] of integer; begin clrscr; write('Введите количество элементов в массиве: '); readln(n); for i:=1 to n do begin writeln('Введите ',i,'-й элемент массива: '); readln(A[i]); end; write('Введите C: '); readln(c); write('Введите D: '); readln(d); j:=0; for i:=1 to n do begin if (A[i]>=C) and (A[i]<=D) then begin j:=j+1; B[j]:=A[i]; end; end; writeln; writeln('Массив элементов из интервала CD:'); for i:=1 to j do begin write(B[i], ', '); end; writeln; q:=abs(B[1]); for i:=2 to j do begin if abs(B[i])<q then q:=B[i]; end; writeln('Наименьшее значение по модулю в интевале CD: ',q); readln; end.</pre> https://visavi.net/topics/9487/168693 Pascal Neformat Mon, 17 May 2010 20:22:29 +0400 Сообщения https://visavi.net/topics/9487/168693 Ну да, интервал абсолютно любой =) P.S Мне еще до 150 КЦ, как до китая раком =( https://visavi.net/topics/9487/168669 Pascal Михаил Mon, 17 May 2010 20:07:18 +0400 Сообщения https://visavi.net/topics/9487/168669 <blockquote class="blockquote">EZHIK (Сегодня / 18:56) Спасибо за помошь, еще бы 2 и 5 задачку)</blockquote> <a href="http://ru.wikipedia.org/wiki/Магарыч" target="_blank" rel="nofollow">Магарыч</a> Наименьший элемент в интервале найти? Интервал так же с клавиатуры вводится? https://visavi.net/topics/9487/168661 Pascal Neformat Mon, 17 May 2010 19:59:31 +0400 Сообщения https://visavi.net/topics/9487/168661