Форум: "Потрепаться";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Вниз
Pascal - Help me please Найти похожие ветки
← →
MSLeks (2003-01-09 15:33) [0]ПОМОГИТЕ ПЛИЗ!:(
1. Дан одномерный массив A[N].
Заменить элементы массива с четным индексом на значе-
ние, равное удвоенному значению индекса.
2. Дано: А [N,M].
Заменить максимальный элемент главной диагонали суммой
элементов 1-ой строки.
3. Дано: A[N]. Найти сумму элементов массива,значения
которых расположенных между максимальным и минимальным эле-
ментами.
4.Вычислить среднее арифметическое положительных эле-
ментов побочной диагонали квадратной матрицы.
5.Написать программу нахождения минимального значения
функции g(x) в интервале [c,d] при шаге h. Вывести также
значение аргумента, которому соответствует минимальное зна-
ние функции.
5sin(2x)
g(x) = -----------
lg(x)+1
6. В квадратной матрице D [L,L] подсчитать количество
нулевых элементов, произведение положительных и сумму отри-
цательных на главной диагонали.
7. Дано А [ N ] - одномерный массив натуральных чисел .
Определить сумму элементов массива, являющихся четными чис-
лами.
8.Дана матрица А(N,М). Определить количествоо ненулевых
элементов на главной диагонали.
LeksKinder@nadey.com отправьте сюда плиз! :(
← →
Остап (2003-01-09 20:22) [1]И еще денег пришлите побольше....
← →
Anatoly Podgoretsky (2003-01-09 20:40) [2]Предподователь задал?
← →
Sha (2003-01-09 20:51) [3]Что, нет ответов в конце задачника?
Сам-то решать пытался? В чем конкретно проблема? Что именно не получилось?
← →
Big_Rom (2003-01-09 21:03) [4]Потом говорят как нас плохо учили :))
← →
MSLeks (2003-01-09 21:25) [5]:(!
← →
Big_Rom (2003-01-09 21:37) [6]а ты хотел получить более подробный ответ
← →
MSLeks (2003-01-09 21:41) [7]сорри..ето надо другу...не мне..я в паскале почти 000 ..я тока на делфи! помогите плиз!
← →
Big_Rom (2003-01-09 21:48) [8]а какая к хрену разница для таких задач что у тебя дельфи паскаль или ся
масивы и цыклы ни кто не отменял
да и задачи эти зделанные на дельфи почти также выглядят и на паскали
вчем трудность
← →
MSLeks (2003-01-09 21:58) [9]ненаю я как делать:(
← →
TTCustomDelphiMaster (2003-01-09 22:01) [10]Дык это то же самое. Делай в Console Application
← →
MSLeks (2003-01-09 22:04) [11]я понял..но как:(я тока начинающий программер...помоги! я с консольными еще мала общаюсь...
← →
Аноним (2003-01-09 22:08) [12]По-моему для таких случаев есть книжки и там всё написано.Надо немножко хоть читать а не на других ездить!!!
//сорри..ето надо другу...не мне..я в паскале почти 000 ..я тока на делфи!-расскажи чем отличается Console Aplication от Паскаля
кроме мелочей в синтаксисе?
← →
MSLeks (2003-01-09 22:13) [13]нечем!
// я тока начинающий программер...помоги! я с консольными еще мала общаюсь...
// По-моему для таких случаев есть книжки и там всё написано.Надо немножко хоть читать а не на других ездить!!!
я просто попросил!:(
← →
TTCustomDelphiMaster (2003-01-09 22:23) [14]
> я тока на делфи
Кнопки на форму кидать?
← →
MSLeks (2003-01-09 22:23) [15]помоголи бы хотяб:((((( а то сразу наезжаете!
← →
MSLeks (2003-01-09 22:34) [16]4 TTCustomDelphiMaster
- приложения для винды делать....
← →
KoHe4Ho }|{e 6ot (2003-01-09 22:43) [17]1)
for n:=1 to {число} do begin
if (n mod 2) = 0 then a[n]:=2*a[n]
end;
Остальное напешу на E-mail :-)
Сам когда-то такое решал , учитель СУЧКА !!!!!!!!!!!
Мы собрались когда закончим школу , спалить компы :-)))))
← →
Mihey (2003-01-09 22:47) [18]Тут вопросы надо задавать, а не просьбы...
← →
MSLeks (2003-01-09 22:48) [19]Пасиба чувак! оч благадарен!
← →
KoHe4Ho }|{e 6ot (2003-01-10 14:36) [20]2)Главная диагональ это коэфицент 1 равен коэфицент 2.
("сорри..ето надо другу...не мне..я в паскале почти 000 ..я тока на делфи! помогите плиз!"-Delphi это Object PASCAL
Разве в делфи нет массивов , что не знаеш как это делать ?Ну ладно...)
var max,j,summa :Integer;
max:=-32000;
For i:=1 to n do begin
if a[i,i]>max then begin max=a[i,i]; j:=i; end;
end;
For i:=1 to n do begin
summa:=a[1,i]+summa;
end;
a[j,j]:=summa;
-------------
3)Сорри , впадло
-------------
4)Побочная это 1 и 2 коэфицент - 1 =размеру матрицы.
Чётное глянь в ё задаче.
5)Далее пусть делает репититор :-)
← →
Anatoly Podgoretsky (2003-01-10 14:47) [21]Дай другу адрес этого форума
← →
MSLeks (2003-01-10 15:28) [22]Ндя:)мало....но всё равно пасиба...
← →
Neox (2003-01-10 19:49) [23]задание 3 примерно так:
var
Sum: LongInt;
ar: array [1..N] of Integer;
Max, Min: Integer;
Max_pos, Min_pos, x: byte;
procedure FindSumma(a1, a2: byte);
var m: byte;
begin
for m:=a1+1 to a2-1 do Sum:=Sum+ar[m];
end;
begin
Randomize;
Sum:=0;
Max := 0;
Min := MaxInt;
for x:=1 to N do
begin
if ar[x] > Max then begin Max := ar[x]; Max_pos := x; end;
if ar[x] < Min then begin Min := ar[x]; Min_pos := x; end;
end;
if Max_pos > Min_pos then FindSumma(Min_pos, Max_pos)
else FindSumma(Max_pos, Min_pos);
If Abs(Max_pos-Min_pos) = 1 then Sum:=0;
WriteLn(Sum);
end.
← →
Neox (2003-01-10 19:59) [24]Номер 7 что-то вроде этого:
var x: byte;
ar: array [1..N] of Integer;
Sum: Integer;
begin
Sum:=0;
for x:=1 to 10 do
if ar[x] mod 2 = 0 then Sum:=Sum+ar[x];
Writeln(Sum);
end.
P.S. В предыдущем решении нужно убрать Randomize; =))
← →
Neox (2003-01-10 20:00) [25]упс...
вот так надо:
for x:=1 to N do
← →
MSLeks (2003-01-10 20:09) [26]Thanks!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.009 c
