С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
GepardD
5 / 5 / 2
Регистрация: 23.10.2009
Сообщений: 63
1

задание по лабе

20.06.2010, 00:17. Просмотров 407. Ответов 1
Метки нет (Все метки)

Помогите ПОЖАЛУЙСТО!!

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

2, Три триугольника задаются координатами своих вершин на площине. Найти триугольник, который имеет найбольший угол, и найти площадь этого триугольника.

3, Дано файл F, состовляющие которого – явные числа. найти:
a) производные первого и опоследнего состовляющего файла F.
b) суму найбольшего и найменшего значения состовляющих файла F.

Добавлено через 16 часов 14 минут
3) Работа с файлом
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var
   imin,imax:real;
   f:text;
   a:array[1..100] of real;
   i,k:byte;   
Begin
     clrscr;
     assign (f,'input.txt');
     reset(f);
     k:=1;
     while not EOF (f) do
       begin
           readln (f,a[k]);
           inc(k);
       end;
     writeln('Даннi файлу');
     for i:=1 to k-1 do
          write(' ',a[i]);
     imin:=a[1];
     imax:=a[1];
     writeln();
     for i:=2 to k-1 do
        if imin>a[i] then imin:=a[i];
          writeln('Мiнiмальне  значення = ', imin:1:2);
     for i:=2 to k-1 do
        if imax<a[i] then  imax:=a[i];
          writeln('Максимальне значення = ', imax:1:2); 
     writeln('Сума найменшого та найбiшого елемента = ',imin+imax);
     writeln('Добуток першого й останнього компонента файла = ',a[1]*a[k-1]);
     close(f);
  readkey;
end.
2) работа с масивом

i - это номер треугольника. j - это номер координаты
напротив самой большой стороны самый большой угол.
находим сторону выводим показатель i. потом по теореме герона находим площадь

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses
  crt;
 
const
  n = 3;
 
var
  lmax, s, p: real;
  i, j, imax: byte;
  x: array[1..n, 1..n] of integer;
  y: array[1..n, 1..n] of integer;
  l: array[1..n, 1..n] of real;
 
begin
  clrscr;
  {----------------------------------заполнение----------------}
  writeln('Введiть координаты трикутникiв');
  for i := 1 to n do
  begin
    writeln('Координати ', i, '-го трикутника');
    for j := 1 to n do
    begin
      read(x[i, j], y[i, j]);
      writeln(j, '-а вершина: (', x[i, j], ';', y[i, j], ')');
    end;
  end;
  {-------------------------длины сторон-----------------------}  
  lmax := l[1, 1];
  for i := 1 to n do
  begin
    l[i, 1] := sqrt(sqr(x[i, 1] - x[i, 2]) + sqr(y[i, 1] - y[i, 2]));
    l[i, 2] := sqrt(sqr(x[i, 1] - x[i, 3]) + sqr(y[i, 1] - y[i, 3]));
    l[i, 3] := sqrt(sqr(x[i, 3] - x[i, 2]) + sqr(y[i, 3] - y[i, 2]));
  end;
  {----------------самая большая сторона-----------------------}
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if lmax < l[i, j] then
      begin
        lmax := l[i, j];
        imax := i;
      end;
    end;
  end;
  writeln(imax, '-ий трикутник має найбiльший кут й сторону що = ', lmax:5:2);    
  {------------------------площадь------------------------------}  
  p := (l[imax, 1] + l[imax, 2] + l[imax, 3]) / 2;
  s := sqrt(p * (p - l[imax, 1]) * (p - l[imax, 2]) * (p - l[imax, 3]));
  writeln('Площа = ', s:5:2);
  readkey;
end.
1) двумерные масивы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
uses
  crt;
 
const
  n = 3; l = 25;
 
type
  mas = array [1..n] of array [1..n] of integer;
 
var
  sum1, sum2, sum3: integer;
  i, j: byte;
  x, y, z: mas;
 
begin
  clrscr;
  {---------------заполняем матрици-------------------------}  
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := random(l) - 25;
      y[i, j] := random(l) - 24;
      z[i, j] := random(l) - 23;
    end; 
  end;
  {--------------выводим на екран---------------------------}
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(x[i, j]:3);
    end;
    writeln();
  end;
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(y[i, j]:3);
    end;
    writeln();
  end; 
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(z[i, j]:3);
    end;
    writeln();
  end;
  writeln();
  {--------------считаем сумы матриц------------------------}  
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (i <> j) and ((i + j) <> (n + 1)) then
      begin
        if x[i, j] <= 0 then inc(sum1, x[i, j]);
        if y[i, j] <= 0 then inc(sum2, y[i, j]);
        if z[i, j] <= 0 then inc(sum3, z[i, j]);
      end;
    end;
  {--------------ищем наибольшую суму матриц-----------------}
  writeln();
  if (sum1 > sum2) and (sum1 > sum3) then
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(x[i, j]:3);
      end;
      writeln();
    end;
  end;
  if (sum2 > sum3) and (sum2 > sum1) then 
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(y[i, j]:3);
      end;
      writeln();
    end; 
  end;
  if (sum3 > sum2) and (sum3 > sum1) then
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(z[i, j]:3);
      end;
      writeln();
    end;
  end;
  readkey;
end.
Спасибо всем за работу.
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2010, 00:17
Ответы с готовыми решениями:

Задача к лабе
Задание к работе: Выполнить на компьютере программу, с использованием условного...

задание по лабе с текстами
Посчитать общее количество слов и определить, сколько раз буквы «а» ...

Помоч в лабе
Я начинающий програмист... Прошу помоч в лабе... я недоделал чучуть.. Препод...

Рисование квадрата в мат лабе
Доброго времени суток, обращаюсь за помощью к Вам, так как с мат лабом вообще...

Сделайте блок-схему по лабе.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...

1
Sp1ne
18 / 17 / 11
Регистрация: 19.10.2009
Сообщений: 43
20.06.2010, 01:12 2
Я что-то не понял? Это ты сам свои же задачи и решил?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2010, 01:12

Подскажите в чем ошибки в лабе
Определите подпрограмму для вывода на экран двойного слова в шестнадцатеричном...

Странный код в лабе (динам. масиивы)
Разве там не должен быть выход за пределы выделенной области? class Action...

как написать функцию в мат лабе


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru