Не е нужно да се регистрирате!
Защо ми дава грешка в WriteLn
|
| Предишната тема :: Следващата тема |
| Автор |
Съобщение |
Mortos
Регистриран на: 12 Oct 2008
Мнения: 5
|
 Пуснато на: Wed Oct 15, 2008 10:39 pm Заглавие: Защо ми дава грешка в WriteLn |
 |
|
Добре де ама защо ми дава грешка в "WriteLn('N ',I,'-',J'=',A[i,j]); " нещо не мога да си го обясня ? Иначе програма трябва да изглежда така, нали ?
| Код: | Program Interesna_Zadacha;
uses Crt;
Const N=10; //broi na dannite v masiva
Var
A:array[1..n,1..n] of integer;
C:array[1..n,1..n] of integer;
Procedure EnterMasiv(m:integer);
VAR I,J:integer;
begin
For I:=1 to M do
For J:=1 to M do
begin
Write('N ',I,'-',j,'=');Readln(A[i,j]);
end;
end;
Procedure PrintMasiv(M:integer);
Var I,J:Integer;
begin
ClrScr;
For I:=1 to M do
For J:=1 to M do
begin
WriteLn('N ',I,'-',J'=',A[i,j]);
end;
end;
k:=1
for i:=2 to z
for j:=1 to i-1
begin
c[k]:=a[i,j]
k:=k+1
end
begin
ClrScr;
EnterMasiv(n);
PrintMasiv(n)
Preobraz(n);
Sort(N);
PrintMasivNew(n)
end.
|
Извинявам се за невежеството си... Просто програмата ми трябва за петък и нямам време да попрочета повече за Паскал |
|
| Върнете се в началото |
|
 |
Реклама
|
| Пуснато на: Заглавие: |
|
|
|
|
|
| Върнете се в началото |
|
|
admin
Site Admin
Регистриран на: 12 Oct 2005
Мнения: 281
Местожителство: София(Варна)
|
| Пуснато на: Thu Oct 16, 2008 12:43 pm Заглавие: |
|
|
WriteLn('N ',I,'-',J'=',A[i,j]);
Изпуснал си една запетайка
Трябва да е:
WriteLn('N ',I,'-',J,'=',A[i,j]); |
|
| Върнете се в началото |
|
|
|
|
Можете да пускате нови теми
Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
You cannot attach files in this forum
Може да сваляте файлове от този форум
|
|
Правила(обновени на 11.05.2008)
Търсене
Потребители
Потребителски групи
Регистрирайте се
Профил
Влезте, за да видите съобщенията си
Вход
