Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2011, 21:10   #1
ilya1995
Новичок
Джуниор
 
Регистрация: 15.11.2011
Сообщений: 2
По умолчанию Error 113 in statement

Вот программа до добавления корректного ввода

Код:
program lab4;
uses crt;
var n,ch,i,k:integer;
fl: boolean;
begin
clrscr;
writeln('Vvedi chislo K');
readln(k);
fl:=true;
n:=1;
repeat
writeln('Vvedite chislo');
readln(ch);
if ch>k then
if fl=true then
begin
i:=n;
fl:=false;
end;
n:=n+1;
until ch=0;
writeln('Nomer pervogo chisla v nabore bolshego ', K,'   ',i);
readln;
end.
 после добавления корректного ввода ошибка Error 113
program lab4;
uses crt;
var n,ch,i,k:integer;
fl: boolean;
begin
clrscr;
writeln('Vvedi chislo K');
readln(k);
fl:=true;
n:=1;
repeat
write('Vvedite chislo');
{$I-}
readln(ch);
{$I+}
until ioresult=0;
if ch>k then
if fl=true then
begin
i:=n;
fl:=false;
end;
n:=n+1;
until ch=0;
writeln('Nomer pervogo chisla v nabore bolshego ', K,'   ',i);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 15.11.2011 в 23:24.
ilya1995 вне форума Ответить с цитированием
Старый 15.11.2011, 21:46   #2
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

Что вы хотите?
Вадим Мошев вне форума Ответить с цитированием
Старый 15.11.2011, 22:04   #3
ilya1995
Новичок
Джуниор
 
Регистрация: 15.11.2011
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Вадим Мошев Посмотреть сообщение
Что вы хотите?
суть проблемы :
вот программа:
Код:
program lab4;
uses crt;
var n,ch,i,k:integer;
fl: boolean;
begin
clrscr;
writeln('Vvedi chislo K');
readln(k);
fl:=true;
n:=1;
repeat
writeln('Vvedite chislo');
readln(ch);
if ch>k then
if fl=true then
begin
i:=n;
fl:=false;
end;
n:=n+1;
until ch=0;
writeln('Nomer pervogo chisla v nabore bolshego ', K,'   ',i);
readln;
end.
в нее вместо
writeln('Vvedite chislo');
readln(ch);
нужно сделать корректный ввод


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 15.11.2011 в 23:24.
ilya1995 вне форума Ответить с цитированием
Старый 15.11.2011, 22:08   #4
Naive
Раздолбайских Дел
Старожил
 
Аватар для Naive
 
Регистрация: 22.05.2009
Сообщений: 3,828
По умолчанию

Во второй проге 1 repeat и 2 until.
Код оформляй.
Alar, верни репу!
Naive вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти min и упорядочить список.Error 113 beLOVEd Паскаль, Turbo Pascal, PascalABC.NET 1 03.10.2011 17:46
Ошибка before statement NARKOM JavaScript, Ajax 0 27.09.2011 09:12
No SQL statement available MixanMM БД в Delphi 2 07.06.2011 07:53
выдаёт error 113 sergio11 Паскаль, Turbo Pascal, PascalABC.NET 4 21.03.2010 11:48
Statement Global blutang Microsoft Office Excel 4 07.02.2009 12:33