С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Mashete
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
1

Ребятки исправте ошибку)

01.06.2012, 00:13. Просмотров 326. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
Program Matriza;
Uses Mod_var,crt;
begin
Bim[y,g]:=max(Bim);
mary2(Bim);
end.
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
Unit Mod_Var;
 Interface
type massiv=array [-10..100,-10..100] of integer;
mas= array [1..100] of integer ;
var Bim: massiv;
ch: mas;
k ,l, i, j : integer;
sm, sm1 : real;
y,g,o,c,u,str,stl:integer;
 
procedure mary2(m: massiv );
function max(var m:massiv):integer;
 Implementation
 
procedure mary2(m: massiv );
var sr,h: real;
n:integer;
ch:mas;
begin
for y:=1 to str do
begin
for g:=1 to stl do
begin
if y=g then
begin
if n<Bim[y,g] then n:=Bim[y,g];
end;
if not (y=g-n) then
begin
if n<Bim[y,g] then n:=Bim[y,g];
end;
end;
end;
writeln(n);
end;
 
function max(var m:massiv):integer;
begin
write('Ââåäèòå êîë-âî ñòðîê y= ');
readln(str);
write('Ââåäèòå êîë – ГўГ® ñòîëáöîâ g= ');
readln(stl);
for y:=1 to str do
begin
for g:=1 to stl do
begin
write(' Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* Bim[',y,'][',g,']:');
read(Bim[y,g]);
end;
end;
begin
writeln(' Âûâîä Г¬Г*òðèöû:');
for y :=1 to str do
begin
for g :=1 to stl do
write(Bim [y,g]:4);
writeln;
end;
end;
max:=Bim[y,g];
end;
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2012, 00:13
Ответы с готовыми решениями:

Видает ошибку исправте.
unit Unit2; interface uses Windows, Messages, SysUtils, Variants,...

Ошибка ребятки))
Ребят,что делать такая ошибка Simplex.pas(21): Constant expression expected ...

КУ ребятки ! Увеличение изобр-я при наведении мышки . (image)
У кого какие есть варианты ? Кто что знает напишите ! ) Хотелось бы при...

Даны целые числа K и N (N > 0). Вывести N раз число K. Исправте ошибку
Помогите исправить ошибку, у меня программа запускается, но завесает... Даны...

Исправте код, игра змейка
Помогити исправить код, программа останавливается в начале программы.

3
Санек25
420 / 350 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
01.06.2012, 00:15 2
Что хоть за ошибка в какой строке выбивает
0
Mashete
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
01.06.2012, 00:25  [ТС] 3
Uses Mod_var,crt;
неизвестный модуль
0
Санек25
420 / 350 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
01.06.2012, 08:52 4
Цитата Сообщение от Mashete Посмотреть сообщение
Uses Mod_var,crt;
неизвестный модуль
Попробуй удалить его и запустить программу.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2012, 08:52

пишу программу где то ошибка исправте
y=sin^3(x^2+a)6^2-(x/b)^1/2 a=1.1 b=0.004 x=0.2 procedure...

Исправте ошибку
не могу найти ошибку помогите #include &lt;bits/stdc++.h&gt; using namespace...

Исправте ошибку.
Дана программа: но программа борланд С++ пишет что найдена ошибка в 46 рядке, и...


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

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

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