Найти сумму элементов матрицы по столбцам и строкам.На паскале

[Дмитричок]

Помогите пожалуйста.
1 найти сумму элементов матрицы по столбцам и строкам.
2 Даны действительное число a и натуральное число n.Вычислить: p=a(a+1)...(a+n-1)
Срочно до завтра надо.

[phomm]

Ваши наработки ? задачи-то простейшие, чуть-только разобраться.

1) цикл от 1ой строки до последней, в нём цикл от 1го столбца до последнего и считаем в некую переменную сумму элементов строки, после чего выводим на экран и обнуляем переменную.
и такой же двойной цикл, но поменять местами строки и столбцы

2) р присваиваем 1, в цикле для К от 0 до n-1 пишем p := p*(a+К), после цикла выводим на экран

покажите , что Вы учитесь на компьютерной специальности и паскаль не в первый раз видите, ну а логику (причем простейшую) я Вам набросал

[Дмитричок]

А кто сказал что я учусь на компьютерной специальности,я учусь в школе в восьмом классе.Просто сестра попросила поискать в интернете так как не может сделать эти задания .Так что можно прогу на паскале

[BoozZzilla]

а сестра где учится?
где наработки сестры?
Если повезёт то прийдёт добрый Sparkman и всё распишет, иначе все будут долго ругаться что такие сякие задолбали уже тут ходить.

Не ну серъёзно, хоть что нибудь есть у вас? Или у сестры.
Отталкиваться то надо от чего нибудь.

[Дмитричок]

сестра учится в белебеевском машиностроительном колледже.
На счёт наработок их у неё их нет.Это задания к лабораторным работам ничего кроме этого не было.Она 3 лабы из 5 сдала а эти не может решить так как вообще не понимает.

[phomm]

Вас или Вашу сестру мы никак не проверим )) учитесь Вы или сестра и кто за этим всем стоит )

Но мы не хотим плодить людей, которые только и делают что ищут по инету решения, а сами своей головой думать не хотят, при этом мы печёмся и о них и о себе.
Поэтому для получения рекомендаций, поправок, идей и прочего, в т.ч. кусков кода, нам необходимо видеть на какой стадии решения находится вопрошающий, и если даже не занимался, то таких очень не любят, а вот если предоставил наработки, код, то сразу видно, какой уровень, где могут быть ошибки и как можно внятно объяснить в чем ошибка и как поправить её.

Вот и подумайте, надо решение Вам и помощь - приводите "защитные аргументы" - наработки кода, иначе о таких мнение будет нехорошее.

УПД. 3 лабы сдала ?? это как интересно ? в этих задачах нужны наибазовейшие знаний о паскале - простейшие арифметические операторы, оператор сравнения, и конструкцию циклов. ввод и вывод, конечно, тоже надо, иначе пользователю такая программа не нужна. это всё проходится на 1 и 2 занятии (кроме циклов, но там тоже 1 занятие на все циклы)

[Vanta11a]

А еще внизу есть табличка "Похожие темы". Может стоило бы посмотреть? Там мноооого всего.

[Дмитричок]

но если все-таки кто нибудь поможет с паскалем буду очень ему признателен.Постараемся разобрать её и понять суть решения.

var a,r:real;
n:integer;
begin
a:=20;
n:=50;
r:=1;
for x:=0 to n-1 do r:=r*(a+n)
write(r):
end;

Это правильно ли ко второй задаче?


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BoozZzilla]

это неправильно
for x:=0 to n-1 do r:=r*(a+n)
поменяйте на
upd: for x:=0 to n-1 do r:=r*(a+x)

также я думаю вам желательно бы задавать числа a и r
что то типа (я извиняюсь заранее если ошибки в синтаксисе ) :

writeln(введите число a);
readln(a);
writeln(введите число r);
readln(r);

и кстати, это ошибку выдаст, 20 в пятидесятой степени это уже большая цифра, а тут оно до семидесяти вырастет

[Serge_Bliznykov]

BoozZzilla, Вы абосолютно правильно подметили, что автор в цикле не использует переменную цикла (кстати, X надо описать).
Но цикл должен всё таки идти от нуля. Ну или присвоить r надо не единицу, а переменную a
примерно так:

var a,r:double;
  x, n:integer;
begin
  a:=20.0;
  n:=50;
  r:=1;
  for x:=0 to n-1 do r:=r*(a+x);
  write('r = ',r);
  readln; {это чтобы форма сразу не закрылась}
end.