Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Хелп ми плз
нужны три програмки в паскале...

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

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

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

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

1 | Автор: Twisti | 2010-12-06, 19:56   |  Репутация: [ + 0 ]
1.
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 ]
3 | Автор: Twisti | 2010-12-07, 06:01   |  Репутация: [ + 0 ]
А как понять в виде подпрограммы?
4 | Автор: HWOARANG | 2010-12-07, 14:29   |  Репутация: [ + 20 ]
  • Страница 1 из 1
  • 1
Поиск: