Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/21: Рейтинг темы: голосов - 21, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 23.04.2016
Сообщений: 28
1

Встречено 'else', а ожидалось ';'

23.04.2016, 18:12. Просмотров 3790. Ответов 6
Метки нет (Все метки)


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
type 
   matrix= array [1..5, 1..5] of integer; 
var 
   a,x: matrix; 
   i,j,k,l: integer;
begin 
   for i :=1 to 5 do
      for j :=1 to 5 do
      begin
         a[i,j]:=random(33);
         write('a[,i,j]=',a[i,j]);
         end;
         for i:=1 to 5 do
         begin
         x[i]:=random(5);
         write('x[i]=',x[i]);
         end;
         k:=0;
         l:=0;
         for i:=1 to 5 do
         begin
         for j:=1 to 5 do
         begin
         if (i<3) and (i<>3) then
         k:=k+a[i,j];
         if (i>3) then 
         l:=L+a[i,j]
         end;
         end;
         if (i=5) then 
         write('k=',k,'l=',l);
         if (k>l) then 
         begin
         for i:=1 to 5 do
         begin
         for j:=1 to 5 do
         begin
         a[i,j]:=a[i,j]+x[i];
         write(a[i,j]);
         end;
         end;
         else
        
         write('nichego ne delaem');
         
         end
         
         end.
Ошибочка вышла,вот,что он выдает Program1.pas(42) : Встречено 'else', а ожидался оператор
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2016, 18:12
Ответы с готовыми решениями:

Ошибка: Встречено ';', а ожидалось ')'
const M = 10; N = 20; L = 1; T1 = 1000; D = 10; Ro = 100; nu = 1e-6; deltat...

Встречено 'WRITELN', а ожидалось ')'
PROGRAM LVP; VAR A:INTEGER; B,x,y:READ; BEGIN WRITE('A= '); READLN(A); WRITE('B=...

Встречено 'Writeln', а ожидалось ';'
Program Primer2; Uses CRT; var a,d,x:Real; begin Clrscr; Writeln('Введите a:'); Readln(a);...

Ошибка- Встречено 'zap', а ожидалось begin
Помогите, пожалуйста, исправить.Должно появляться окно exe для записи данных о работниках-фамилия,...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
6
90 / 86 / 79
Регистрация: 10.01.2016
Сообщений: 486
Записей в блоге: 13
23.04.2016, 18:18 2
Цитата Сообщение от darkdig**** Посмотреть сообщение
x[i]:=random(5);
- уже здесь ошибку выдает компилятор! Массив объявлен, как двумерный, а Вы присваиваете random(5) одномерному массиву.

Перед else точка с запятой не ставится.
0
0 / 0 / 0
Регистрация: 23.04.2016
Сообщений: 28
23.04.2016, 18:23  [ТС] 3
тык я с фортрана перешел,не совсем все таки понял ошибку,с else

Добавлено через 1 минуту
Цитата Сообщение от SW Developer Посмотреть сообщение
- уже здесь ошибку выдает компилятор! Массив объявлен, как двумерный, а Вы присваиваете random(5) одномерному массиву.

Перед else точка с запятой не ставится.
тогда вот такая вот ошибка Program1.pas(44) : Встречено 'else', а ожидалось ';'
0
90 / 86 / 79
Регистрация: 10.01.2016
Сообщений: 486
Записей в блоге: 13
23.04.2016, 18:26 4
Попробуйте так:

Pascal
1
2
3
4
5
6
7
8
9
if (k>l) then
     for i:=1 to 5 do
          for j:=1 to 5 do
          begin
               a[i,j]:=a[i,j]+x[i];
               write(a[i,j]);
          end
else
    write('nichego ne delaem');
0
0 / 0 / 0
Регистрация: 23.04.2016
Сообщений: 28
23.04.2016, 18:37  [ТС] 5
Огромное спасибо,даже и не знаю в чем ошибка была,пробовал и без begin-end,но вот сейчас заработала,ещё раз благодарствую

Добавлено через 5 минут


а вот ещё что,как сделать так,чтобы выводилось аккуратненько,то есть как массив,а не просто поочередно в строку?
0
90 / 86 / 79
Регистрация: 10.01.2016
Сообщений: 486
Записей в блоге: 13
23.04.2016, 18:45 6
Pascal
1
2
3
4
5
6
7
8
9
     for i :=1 to 5 do
     begin
         for j :=1 to 5 do
         begin
              a[i,j]:=random(33);
              write('a[,i,j]=',a[i,j]);
         end;
         WriteLn;
     end;
Добавлено через 6 минут
Вот так будет лучше:
Pascal
1
2
3
4
5
6
7
8
9
     for i :=1 to 5 do
     begin
         for j :=1 to 5 do
         begin
              a[i,j]:=random(33);
              write('a[', i, ',', j, ']= ', a[i,j]:2, '   ');
         end;
         WriteLn;
     end;
0
0 / 0 / 0
Регистрация: 23.04.2016
Сообщений: 28
23.04.2016, 19:07  [ТС] 7
огромное спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2016, 19:07

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

Робота с файлами. Что за ошибка "Встречено 'end', а ожидалось ';'"?
program file_1; uses crt; var f,fl:file of integer; x,x_l,s,i:integer; r:byte; c:char;...

Встречено 'until', а ожидалось ';'
var x,y,u:real; k,c:string; code: integer; begin write('Введите x='); readln(k);...

Program1.pas(63) : Встречено 'else', а ожидалось ';'
var a:array of integer; st:array of integer; rez:array of integer; sum,i,j,k,x,s,n:integer;...

Встречено var, а ожидалось выражение
Встречено 'var',а ожидалось выражение function insSort(a : array of Integer) : array of Integer;...


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

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

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