Хелп ми плз - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Хелп ми плз (Паскаль)

Хелп ми плз

нужны три програмки в паскале...

1. умножить все элементы последней строки матрицы на максимальный элемент не главной диагонали матрицы...

2. написать программу. вычисляющую объем и площадь поверхности параллелепипеда. Операцию вычисления объема и площади поверхности параллелепипеда оформить в виде подпрограммы.

3. вставить в строку, начиная с заданного номера, заданную последовательность символов два раза подряд...

Помогите плз, очень срочно нужно... Заранее спасибо

№1 | Автор: Twisti | 2010-12-06, 19:56 | Репутация: [ + 0 ]

Code

//заполняем матрицу
   for i=1 to k do
    for j:=1 to k do
     a[i,j]:=(random(100)-50); //случайное число от -50 до 50

//находим максимальной элемент побочной диагонали
  for i:=1 to k do
   if max<a[i,i] then max:=a[i,i];

//умножаем
  for i:=1 to k do
   a[i,k]:=a[i,k]*max

стоит заметить, что матрица квадратная, так как имеет диагонали

2. Простите, а что вызывает большие проблемы: формула вычисления объёма и площади или оформление одной строки в виде подпрограммы?
3.

Quote

Procedure Insert(Source: String; var S: String; Index: Integer);

Объединяет подстроку в строку, начиная с определенной позиции.

Source - выражение типа String. S - переменная типа String любой длины. Index - выражение целочисленного типа.

Insert вставляет Source в S, начиная с позиции S[Index].

№2 | Автор: Fireleo | 2010-12-07, 02:37 | Репутация: [ + 30 ]

блин я просто в паскале туго шарю

№3 | Автор: Twisti | 2010-12-07, 06:01 | Репутация: [ + 0 ]

А как понять в виде подпрограммы?

№4 | Автор: HWOARANG | 2010-12-07, 14:29 | Репутация: [ + 20 ]

Хелп ми плз (Паскаль)

Страница 1 из 1
1

прикладная математика