Runtime error 105 delphi

Error 105 Delphi Решение и ответ на вопрос 64399

Pupul of LIT

3 / 3 / 2

Регистрация: 27.10.2009

Сообщений: 37

1

16.11.2009, 17:21. Показов 16600. Ответов 2

Метки нет (Все метки)


Доброго дня суток! Делал прогу, вроде все правильно, вот код:

Delphi
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
program Project2;
 
 
uses
  SysUtils;
 
var m,i,n:integer;
 x0,y0,r,d,dx,b,dy,a :real ;
 
 
 begin
 
writeln('Input number of balloons');
readln(n);
writeln('Input coordinates of laser');
readln(dx,dy);
  m:=0;
 for i:=1 to n do
 begin
 readln(x0,y0,r);
 b:=-1*dx ;
 a:=dy;
 D:=((2*b*x0)/a)*((2*b*x0)/a)-(4*(y0*y0+x0*x0-r*r)*(b*b-a*a/a*a)) ;
 if D>0 then
 begin
 inc(m) ;
 writeln(m);
 end
 else
 writeln('0');
 end;
 
 readln
 
end.

Но столкнулся с такой ошибкой, причем не компилируется только на моем компе, даже преподу давал, друзьям, все норм у них! А выдает вот что:
http://pic.ipicture.ru/uploads… RuxfMT.jpg

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь



0



Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.11.2009, 17:21

Ответы с готовыми решениями:

I/o error 105
Из-за чего может быть эта ошибка? У меня на компе всё работает, но другу скидываю у него это i/o…

Пресловутая I/O error 105
Доброго времени суток, форумчане!
Заранее просьба не ругаться, ибо автор крайне плохо знает…

Ошибка I/O Error 105
unit U8_2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,…

Опять I/O Error 105
program ProjectX;

uses
Windows,
SysUtils;
type
telem=Integer;
tlist=^Node;

2

Mawrat

13091 / 5872 / 1706

Регистрация: 19.09.2009

Сообщений: 8,808

16.11.2009, 20:00

2

Директиву компилятору надо дописать: {$APPTYPE CONSOLE} — чтобы это приложение как консольное компилировалось:

Delphi
1
2
3
4
5
6
7
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
...



1



3 / 3 / 2

Регистрация: 27.10.2009

Сообщений: 37

16.11.2009, 20:43

 [ТС]

3

аааа, действительно, спасибо, по ходу удалил его как-то!



0



IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.11.2009, 20:43

3

Posted by jpluimers on 2021/07/29

Since I always forget where to get the full list: there is none in the documentation. Only parts.

Usually the mapping is from run-time errors to exceptions:

In addition, exceptions are converted to run-time errors when the exception handling mechanism in the SysUtils unit is not up.

This can happen early in start-up, or late un shut-down of an application.

The one I encountered most is the runtime error 216 during shutdown: it is an Access Violation (EAccessViolation).

Run-time errors (not changed since Delphi 2007)

  • [WayBack] Delphi 2007: Exceptions

    When an application uses the SysUtils unit, most runtime errors are automatically converted into exceptions. Many errors that would otherwise terminate an application – such as insufficient memory, division by zero, and general protection faults – can be caught and handled.

  • [WayBack] Delphi 2007: Delphi Runtime Errors

    Runtime errors take the form:

    Runtime error nnn at xxxxxxxx

    where nnn is the runtime error number, and xxxxxxxx is the runtime error address.

    Applications that use the SysUtils class map most runtime errors to Exceptions, which allow your application to resolve the error without terminating.

    Delphi runtime errors are divided into the following categories:

    • I/O errors, numbered 100 through 149
    • Fatal errors, numbered 200 through 255
    • Operating system errors
  • [WayBack] Delphi 2007: I/O Errors

    I/O errors cause an exception to be thrown if a statement is compiled in the {$I+} state. (If the application does not include the SysUtils class, the exception causes the application to terminate).

    In the {$I-} state, the program continues to execute, and the error is reported by the IOResult function.

    Number

    Name

    Description

    100

    Disk read error

    Reported by Read on a typed file if you attempt to read past the end of the file.

    101

    Disk write error

    Reported by CloseFile, Write, WriteIn, or Flush if the disk becomes full.

    102

    File not assigned

    Reported by Reset, Rewrite, Append, Rename, or Erase if the file variable has not been assigned a name through a call to Assign or AssignFile.

    103

    File not open

    Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

    104

    File not open for input

    Reported by Read, Readln, Eof, Eoln, SeekEof, or SeekEoln on a text file if the file is not open for input.

    105

    File not open for output

    Reported by Write or Writeln on a text file if you do not generate a Console application.

    106

    Invalid numeric format

    Reported by Read or Readln if a numeric value read from a text file does not conform to the proper numeric format.

  • [WayBack] Delphi 2007: Fatal errors

    Number

    Name

    Exception

    200

    Division by zero

    EDivByZero

    201

    Range check error

    ERangeError

    202

    Stack overflow

    EStackOverflow

    203

    Heap overflow error

    EOutOfMemory

    204

    Invalid pointer operation

    EInvalidPointer

    205

    Floating point overflow

    EOverflow

    206

    Floating point underflow

    EUnderflow

    207

    Invalid floating point operation

    EInvalidOp

    210

    Abstract Method Error

    EAbstractError

    215

    Arithmetic overflow (integer only)

    EIntOverflow

    216

    Access violation

    EAccessViolation

    217

    Control-C

    EControlC

    218

    Privileged instruction

    EPrivilege

    219

    Invalid typecast

    EInvalidCast

    220

    Invalid variant typecast

    EVariantError

    221

    Invalid variant operation

    EVariantError

    222

    No variant method call dispatcher

    EVariantError

    223

    Cannot create variant array

    EVariantError

    224

    Variant does not contain array

    EVariantError

    225

    Variant array bounds error

    EVariantError

    226

    TLS initialization error

    No exception to map to.

    227

    Assertion failed

    EAssertionFailed

    228

    Interface Cast Error

    EIntfCastError

    229

    Safecall error

    ESafecallException

    230

    Unhandled exception

    No exception to map to.

    231

    Too many nested exceptions

    Up to 16 permitted.

    232

    Fatal signal raised on a non-Delphi thread

    No exception to map to.

For completeness, some DOS Borland/Turbo Pascal errors from [WayBack] where are the runtime error codes, eh? – delphi

Borland Pascal 7 runtime errors; most applicable to Delphi:
*** DOS ***
1   Invalid function number
2   File not found
3   Path not found
4   Too many open files
5   File access denied
6   Invalid file handle
12  Invalid file access code
15  Invalid drive number
16  Cannot remove current directory
17  Cannot rename across drives
18  No more files
*** I/O ***
100 Disc read error
101 Disc write error
102 File not assigned
103 File not open
104 File not open for input
105 File not open for output
106 Invalid numeric format read from file
*** CRITICAL ***
150 Write protected
151 Unknown unit/Bad drive request struct length
152 Drive not ready
153 Unknown command
154 CRC error in data
155 Bad drive request structure length
156 Disc seek error
157 Unknown media type
158 Sector not found
159 Printer out of paper
160 Device write fault
161 Device read fault
162 Hardware failure (C-DOS: file/device opened by another process)
*** FATAL ***
200 Division by zero
201 Range check
202 Stack overflow (on entry to a procedure or function)
203 Heap overflow (from New() or GetMem())
204 Invalid pointer operation (from Dispose() or FreeMem())
205 Floating point overflow
206 Floating point underflow
207 Invalid floating point operation
208 Overlay manager not installed (usually when calling OvrInit)
209 Overlay file read error
210 Object not initialized
211 Call to abstract method
212 Stream registration error
213 Collection index out of range
214 Collection overflow error
215 Arithmetic overflow error
216 General Protection fault

The run-time error 216

  • [WayBack] Delphi Runtime error 216 thrown in SysUtils.FinaliseUnits, line number not in mapfile – Stack Overflow
  • [WayBack] madshi.net • View topic – Runtime Error 216

–jeroen

This entry was posted on 2021/07/29 at 06:00 and is filed under Delphi, Development, Software Development.
You can follow any responses to this entry through the RSS 2.0 feed.

You can leave a response, or trackback from your own site.


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

Модераторы: Poseidon, Snowy, bems, MetalFan

Страницы: (2) [Все] 1 2 
( Перейти к первому непрочитанному сообщению )

Поиск:

Ответ в темуСоздание новой темы
Создание опроса
> IO Error 105, как избавиться 

:(

   

Опции темы

Штабс
Дата 14.12.2004, 16:20 (ссылка)
   |    (голосов: 0)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Unregistered

Пипл срочно надо избавиться от этой ошибки

код вроде верный

try

AssignFile(f, FileName);
Reset(f);
except
Rewrite(f) ;
end;

Файл существует
но на любую попытку скинуть в него хоть что то мессадже

IO Error 105

что не так?!

  Вверх
Bes
Дата 14.12.2004, 16:23 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Опытный
**

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Подожди, т.е. теоретически возможна команда ReWrite без Assign-а?…
Это ли не ошибка?
Тем более если файл существует, то он откроется для чтения и понятно, что писать он в себя ничего не дает это ошибка два.

PM MAIL   Вверх
Штабс
Дата 14.12.2004, 16:46 (ссылка)
   |    (голосов: 0)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Unregistered

Ой прошу пардону

AssignFile(f, FileName);
try
Reset(f);
except
Rewrite(f) ;
end;

Rewrite() отрабатывает

ругань конкретно идет на WriteLn(f,BlaBlaBlaBlaBlaBlaBla) при Reset(f) при пошаговой трассировке F8

напоминаю 105 ошибка это невозможность открыть файл для записи

AssignFile(f, FileName) OK
try OK
Reset(f); OK
except OK

структура отработала (т.е. существующий файл получил указатель и открыт для работы)

WriteLn(f,BlaBlaBlaBlaBlaBlaBla)

IO Error 105

PS кстати аналогичное построение с $I- …. $I+ результат аналогичный

  Вверх
Bes
Дата 14.12.2004, 17:23 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Опытный
**

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Че-то я не пойму:
что за конструкция, для чего она, или я чего-то не понимаю или она лишена логики. т.е. программа должна попробовать открыть файл для чтения и если не получилось то открыть для записи….? Странно как-то это.

try
Reset(f);
except
Rewrite(f) ;
end;

а почему отрабатывает Rewrite(f) ; т.е. для чтения он открытьсяне может?
а для записи может?…..

далее WriteLn(f,BlaBlaBlaBlaBlaBlaBla)
BlaBlaBlaBlaBlaBlaBla-это переменная или имеется ввиду WriteLn(f,’BlaBlaBlaBlaBlaBlaBla’)?

Мне кажется но все-таки открывается для чтения и ругается при попытке записать что-либо в него, что вообщем-то естественно.

PM MAIL   Вверх
devmstr
Дата 14.12.2004, 17:46 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Developer
**

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Если хочешь писать пиши:

Код

AssignFile(f, FileName);

Rewrite(f);

write(f, '.....');
end;

[s]

———————

Think different ©Steve Jobs 
user posted image

PM MAIL WWW   Вверх
Vit
Дата 14.12.2004, 18:01 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Vitaly Nevzorov
****

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

f — какого типа?

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

PM MAIL WWW ICQ   Вверх
Zero
Дата 15.12.2004, 02:00 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Собственно по ошибкам в/в, можно исп. дерективы компилятора {$I-} и {$I+}
Добавлено @ 02:05

Цитата(Vit @ 14.12.2004, 18:01)
f — какого типа?

Имхо, тип здесь не играет особой роли…

PM MAIL ICQ   Вверх
Vit
Дата 15.12.2004, 03:06 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Vitaly Nevzorov
****

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата(Zero @ 14.12.2004, 17:00)
Имхо, тип здесь не играет особой роли…

Считаешь что мне делать нечего?

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

PM MAIL WWW ICQ   Вверх
Vit
Дата 15.12.2004, 03:24 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Vitaly Nevzorov
****

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Ошибка в общем-то проста и очевидна, я не зря про тип спрашивал, не совсем был уверен, хотя и догадывался откуда ноги растут, сейчас добрался до Дельфи проверил…

Вот код:

Код

 var f:TextFile;
begin
 AssignFile(f, 'c:myfile.txt');
 Reset(f);
 write(f, 'sssss');
end;

Если этот код запустить, и файл ‘c:myfile.txt’ существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

PM MAIL WWW ICQ   Вверх
Bes
Дата 15.12.2004, 07:27 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Опытный
**

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Об чем и говорим на каждом собрании… :-)

PM MAIL   Вверх
Штабс
Дата 16.12.2004, 13:20 (ссылка)
   |    (голосов: 0)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Unregistered

Только что вернулся от заказчика….
прошу извинить за долгое молчание

и так
тип файла
My_File:TextFile
т.е. текстовой

Директивы компилятора {$I} позволяют отлавливать Error Code
2: Файл не найден
3: Неверное имя
4: Слишком много открытых файлов
5: Файл не доступен
100: Достигнут конец файла (EOF)
101: диск переполне
106: ошибка ввода

105 относится к расширенной таблице ошибок

Если этот код запустить, и файл ‘c:myfile.txt’ существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

спасибо VIT
большое
но насчет очевидности
smile
я к примеру не знал этого ….
хотя стаж еше с TP4
еще раз большое спасибо

  Вверх
Vit
Дата 16.12.2004, 14:13 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Vitaly Nevzorov
****

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата
но насчет очевидности

я к примеру не знал этого ….
хотя стаж еше с TP4

smile У меня опыт больше! Я с TP3 smile

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

PM MAIL WWW ICQ   Вверх
devmstr
Дата 16.12.2004, 19:47 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Developer
**

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Vit
Приятно, когда тебя окружают такие проффесионалы! smile

———————

Think different ©Steve Jobs 
user posted image

PM MAIL WWW   Вверх
Zero
Дата 17.12.2004, 23:34 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Vit @ 15.12.2004, 03:06)
Считаешь что мне делать нечего?

Извени Vit, нехотел тебя обидеть, до меня и до самого сразу недошло что от типа многое зависит, покрайней мере в данном случае…
Просто мне обычно когда требется избавится от ошибок в/выв, то на ум всегда первое что приходит ─ отключение на их проверку, а дальше что-нибудь ещё предумывать приходится…
Ещё раз, извени…

Это сообщение отредактировал(а) Zero — 17.12.2004, 23:35

PM MAIL ICQ   Вверх
Vit
Дата 19.12.2004, 05:00 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Vitaly Nevzorov
****

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата(Zero @ 17.12.2004, 14:34)
Ещё раз, извени…

smile Не страшно, сам такие ляпы делаю систематически smile

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

PM MAIL WWW ICQ   Вверх
кварк
Дата 20.12.2004, 14:32 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …




Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 2.8.2002

Репутация: нет
Всего: нет

Извините, что вcтреваю, но зачем Assign?

tf: TextFile;

{$I-}
Reset(tf,’C:temp.out’);
{$I+}
If IOResult <> 0
then // Не открыт
else // Открыт

Rewrite — то же самое. Аррend’у почему-то нужен assign.

P.S. Всегда был в этом уверен, только что полез в справку и не нашел упоминаний об этом. Но работает еще с ТР: у меня даже в шаблон это забито :-)

P.P.S.
Кстати, try..except эти функции не ловятся. Только через IOResult. Очень уж они старые. Хотя, не исключено, что их переписали «на новый лад».

Это сообщение отредактировал(а) кварк — 20.12.2004, 14:35

PM MAIL   Вверх



















Страницы: (2) [Все] 1 2 

Ответ в темуСоздание новой темы
Создание опроса
Правила форума «Delphi: Общие вопросы»
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) — крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

    msm.ru

    Нравится ресурс?

    Помоги проекту!

    >
    RunTime Error 105
    , (разделено)

    • Подписаться на тему
    • Сообщить другу
    • Скачать/распечатать тему



    Сообщ.
    #1

    ,
    18.09.06, 19:17

      Newbie

      Рейтинг (т): нет

      Люди хелпните, мне 14 лет токо начал заниматься програмированием, вот увидел пользу паскаля…
      плз хелп я пока сам написал простейшую программу по …. короче смотрите!
      вроде в тексте программы ошибок нету, а пишет такое:
      >>ЖМИ СЮДА<<

      када пишу в поиске адрес ошибки мне выделяет строку
      writeln(‘Введите длины трех сторон треугольника’);

      хотя там вроде ошибок нету блин!!!! :wall: :wall: :wall:

      Эта тема была разделена из темы «ЧАВО+»


      KiRiK



      Сообщ.
      #2

      ,
      18.09.06, 19:52

        Senior Member

        ****

        Рейтинг (т): 25

        Хм.. что это у тебя за IDE такая?
        Поясни что в ней значит эта ошибка.


        Булат Шакиров



        Сообщ.
        #3

        ,
        19.09.06, 03:17

          Работаешь в BPW? А Uses WinCRT Кто будет ставить?


          AVA12



          Сообщ.
          #4

          ,
          19.09.06, 05:01

            Цитата

            Run-time error 105: File not open for output

            This error occurs if you try to use standard input and output functions like Readln and Writeln without the Uses WinCRT; statement.

            To correct this error, add Uses WinCRT; to your program.

            © Borland Pascal Help (bpw.hlp).


            zJIoy4eJI



            Сообщ.
            #5

            ,
            19.09.06, 12:09

              Newbie

              Рейтинг (т): нет

              А по подробнее, как код будет выглядеть??? :wall:


              Булат Шакиров



              Сообщ.
              #6

              ,
              19.09.06, 12:13

                zJIoy4eJI

                ExpandedWrap disabled

                  Uses WinCrt;

                  {Твой код здесь}


                zJIoy4eJI



                Сообщ.
                #7

                ,
                19.09.06, 12:16

                  Newbie

                  Рейтинг (т): нет

                  То есть

                  Цитата

                  Uses WinCrt;
                  {writeln(‘Введите длины трех сторон треугольника’)}

                  да? и это при аждом использовании оператора Writeln И readln ???

                  Добавлено 19.09.06, 12:17
                  или

                  Цитата

                  program E1;
                  var a,d,c: real;
                  Uses WinCrt;
                  {begin
                  writeln(‘Введите длины трех сторон треугольника’);
                  readln(a,d,c);
                  write (‘Треугольник со сторонами ‘, a,d,c);
                  if(a + d > c) and (d + c > a) and (c + a > d)
                  then writeln (‘сушествует’)
                  else writeln (‘не сушествует’)
                  end.}

                  Добавлено 19.09.06, 12:31
                  А! вот я понял! меня осинило!!! какие вы все добрые!!! ;) :D

                  Guru

                  volvo877



                  Сообщ.
                  #8

                  ,
                  19.09.06, 12:43

                    Moderator

                    *******

                    Рейтинг (т): 878

                    zJIoy4eJI,
                    я бы сделал так:

                    ExpandedWrap disabled

                      program E1;

                      Uses WinCrt;

                      var a,d,c: real;

                      begin

                        writeln(‘Введите длины трех сторон треугольника’);

                        readln(a,d,c);

                        write (‘Треугольник со сторонами ‘, a,d,c);

                        if(a + d > c) and (d + c > a) and (c + a > d)

                          then writeln (‘сушествует’)

                          else writeln (‘не сушествует’)

                      end.

                    все-таки, иначе компилятор тебя не поймет :whistle:


                    zJIoy4eJI



                    Сообщ.
                    #9

                    ,
                    19.09.06, 12:49

                      Newbie

                      Рейтинг (т): нет

                      вот вот я так и сделал
                      вот токо я непонимаю что в этом уравнении неправельно :huh:

                      Добавлено 19.09.06, 12:53
                      а не я уже придумал как сделать :yes:

                      Добавлено 19.09.06, 12:58
                      знак делить это / ???


                      e-moe



                      Сообщ.
                      #10

                      ,
                      19.09.06, 13:32

                        Цитата zJIoy4eJI @ 19.09.06, 12:49

                        знак делить это / ???

                        да конечно ;)
                        есть еще div — целочисленное деление и mod — остаток от деления.


                        zJIoy4eJI



                        Сообщ.
                        #11

                        ,
                        19.09.06, 13:41

                          Newbie

                          Рейтинг (т): нет

                          Цитата e-moe @ 19.09.06, 13:32

                          Цитата zJIoy4eJI @ 19.09.06, 12:49

                          знак делить это / ???

                          да конечно ;)
                          есть еще div — целочисленное деление и mod — остаток от деления.

                          А теперь обьясни тупому 9-и класснику что озночает целочислительское деление??


                          Anykey



                          Сообщ.
                          #12

                          ,
                          19.09.06, 13:46

                            Full Member

                            ***

                            Рейтинг (т): 26

                            Цитата zJIoy4eJI @ 19.09.06, 13:41

                            А теперь обьясни тупому 9-и класснику что озночает целочислительское деление??

                            Выдает только целую часть от деления :)
                            например:
                            5 div 2 = 2;
                            13 div 4 = 3
                            т.е. отбрасывает дробную часть и выдает целое число

                            Guru

                            volvo877



                            Сообщ.
                            #13

                            ,
                            19.09.06, 13:47

                              Moderator

                              *******

                              Рейтинг (т): 878

                              Цитата zJIoy4eJI @ 19.09.06, 13:41

                              что озночает целочислительское деление??

                              Деление, когда делимое, делитель и частное — целые числа…

                              ExpandedWrap disabled

                                Var i, j: integer;

                                begin

                                  i := 7;

                                  j := i / 2; { <— Ошибка }

                                  j := i div 2; { <— Правильно}

                                end.


                              Alex_Speaker



                              Сообщ.
                              #14

                              ,
                              27.12.06, 15:37

                                zJIoy4eJI,
                                я сам начинающий программист, да и годиков мне побольше, но начинал с книги (не в целях рекламы, честно) С.Н.Лукина Turbo Pascal. Там в простой форме многое что написано. И читается легко.

                                0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

                                0 пользователей:

                                • Предыдущая тема
                                • Pascal
                                • Следующая тема

                                Рейтинг@Mail.ru

                                [ Script execution time: 0,0659 ]   [ 15 queries used ]   [ Generated: 10.02.23, 01:55 GMT ]  

                                Понравилась статья? Поделить с друзьями:

                                Читайте также:

                              • Runtime error 1046
                              • Runtime error 1044
                              • Runtime error 103 pascal
                              • Runtime error 101
                              • Runtime error 1004 нельзя установить свойство rowheight класса range

                              • 0 0 голоса
                                Рейтинг статьи
                                Подписаться
                                Уведомить о
                                guest

                                0 комментариев
                                Старые
                                Новые Популярные
                                Межтекстовые Отзывы
                                Посмотреть все комментарии