№1.Вычислить длину окружности, площадь круга и объём шара одного и того же заданного радиуса.
№2.Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).
№1.Вычислить длину окружности, площадь круга и объём шара одного и того же заданного радиуса.
№2.Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).
1 задача
2 задачаКод:uses Crt; var R,Pi:real; begin ClrScr; Pi := 3.141592653; Write('PadNyc?'); ReadLn(R); WriteLn('Dlina okrujnosti -',2*Pi*R:10:4); WriteLn('Ploschad okruj -',Pi*R*R:10:4); WriteLn('Shar -',(4/3)*Pi*R*R*R:10:4); end.
Код:uses Crt; const N = 10; var A :array [1..N] of integer; i :integer; Neg,Pos,K1,K2 :integer; begin ClrScr; Randomize; for i:=1 to N do begin A[i]:=Random(11)-5; {-5 to 5} write(A[i],' '); end; WriteLN; Neg:=1; Pos:=0; K1:=0; K2:=0; for i:=1 to N do begin if A[i]>=0 then begin Pos:= Pos + A[i]; inc(K1) end else begin Neg:= Neg * A[i]; inc(K2); end; end; WriteLn('Positive',Pos:15,K1:5); WriteLn('Negative',Neg:15,K2:5); end.
Последний раз редактировалось Paralax; 31.10.2009 в 11:19.
rr3 (04.11.2009)
найти лучший результат в забеге на 100 м трёх спортсменов
Добавлено через 4 минуты
найти лучший результат в забеге на 100 м трёх спортсменов
Добавлено через 14 минут
найти лучший результат в забеге на 100 м трёх спортсменов
Последний раз редактировалось надежда2; 12.02.2010 в 03:12. Причина: Добавлено сообщение
напишите программу котрая вводит с клавиатуры 10 реальных чисел и организовывает их хранение в массиве.После этого массив пересортировывается по закону первый сэлемент меняем с последним ,второй с предпоследним и т.д мужики пожалуйста помогите,а то я завтра попал
наверно такКод:var i:integer; p:real; a:array [1..10] of real; begin writeln('vvedite massiv'); for i:=1 to 10 do readln(a[i]); for i:=1 to 5 do begin p:=a[i]; a[i]:=a[11-i]; a[11-i]:=p; end; for i:=1 to 10 do write(a[i]:2:0); readln; end.
огромное спасибо кстати,помогите еще решить,Дан массив А состоящий из 20 целых чисел первое на возрастание,второе на убывание
Добавлено через 3 минуты
и вот еще одна,Напишите программу которая организует решение в массиве 15 различных введенных с клавиатуры целых чисел.После этого содержимое массива сортируется по возрастанию
Добавлено через 15 минут
вот еще одна,Напишите программу которая организует решение в массиве 15 различных введенных с клавиатуры целых чисел.После этого содержимое массива сортируется по возрастанию
Последний раз редактировалось максимилианус; 11.03.2010 в 22:29. Причина: Добавлено сообщение
Помогите решить програму. Дано текст. Ясли певим символом тексту эсть цифра,то все цифры, што входять в текст, заменить символом *
ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО НАДО! СПАСИБО ЗАРАНЕЕ.
Задан одномерный массив C(N) (N<=60). Вычислить сумму положительных элементов, этой суммой заменить максимальный элемент и последний элемент массива. Массив С напечатать.
ой............не туда зашла-ушла
"– Это водка? – слабо спросила Маргарита. Кот подпрыгнул на стуле от обиды. – Помилуйте, королева, – прохрипел он, – разве я позволил бы себе налить даме водки? Это чистый спирт!" (с)
Помогите решить пару задачек на Паскале. Нужно ответить на эти вопросы программулину составлять не надо. Помогите
1) Приведите 5 задач, которые можно решать с помощью банков данных. Почему эти задачи лучше решать с их помощью?
2) Даты вводятся в соответствии с шаблоном: две цифры, название месяца (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек), две цифры года двадцатого века. Запишите выражение, истинное, если первая из двух введенных дат больше второй. Опишите процедуры и функции, которые будете использовать при решении задачи.
1)преобразовать массив Y в массив V по формуле Vj=sin Yj(j=1,9)
2)определить номер первого положительного элемента массива V и произведение следующих за ним элементов.Оформить подпрограмму выполнения над массивом A(a1,a2,...an)указанных действий.
3)Преобразоватьодномерный массив v в двумерный w размером 3на3 разрезав массив условно на три поломки и поместив затем под первой полоской вторую и под второй третью.использовать при этом оформленную подпрограмму преобразования одномерного массива А размером 9 в бинарный 3на3.
4)заменить столбец с наименьшим элементом нулями.Оформить подпрограмму выполнения над массивом В размером m * n указанных действий
помогите решить кто сможет!!!!!!!!!!!!!!!!!!срочно!!!!!!!!!!!!!!!!!!!! !!!!
Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива (типо 345 -543 или 1000 -0001 вод чисел случайно через рандом ) . Полученные числа - перевертыша оформить в виде функции пользователя! срочно плиз горит курсач
Помогите решить задачи в Паскале!
1. Дано чотири числа b,c,d,e.Перозначити ці числа так,щоб b=max(b,c,d,e),c-min(b,c,d,e) з чисел що залишилися,щоб b було б менше за e.
2. Відомо координати двох точок A(x1,x2) і B(x2,y2)?а також координати центра O(x,y) кола радіуса R.Якщо точки лежать всередині кола,то знайти периметр трикутника ABO,інакше знайти периметр трикутника,який утворений заданими точкамиі початком координат.
3. За введеним номером пари (від 1 до 3) визначити назву пари у власній групі в понеділок.
Berkut_mk (11.03.2013)
Напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)