2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему
 
 Помогите пожалуйста найти ошибку в программе...
Сообщение15.12.2009, 00:10 
Аватара пользователя


14/12/09
10
Program Mnozhestva;
uses crt;
var
S1,S2,S3 : Set Of 1..100;
i,n,k : integer;
begin
clrscr;
S1:=[];
Writeln('Vvedite elementu mnozhestva A:');
repeat
readln(k);
S1:=S1+[k];
S2:=[];
Writeln('Vvedite elementu mnozhestva B:');
Repeat
readln(k);
S2:=S2+[k];
S3:=S1+S2;
For i:=1 to 100 do
if i in S3 then
Write(i,' ');
readln;
end.


Выбивает ошибку Error 113: Error in statement. Но я не понимаю в чем моя ошибка...Помогите пожалуйста...

 Профиль  
                  
 
 Re: Помогите пожалуйста найти ошибку в программе...
Сообщение15.12.2009, 00:29 


17/01/09
119
А кто будет закрывать два открытых цикла repeat? :wink:

 Профиль  
                  
 
 Re: Помогите пожалуйста найти ошибку в программе...
Сообщение15.12.2009, 18:46 
Аватара пользователя


14/12/09
10
:) пашет-))Фантом, большое спасибо!-))

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group