powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Квадратный корень
13 сообщений из 13, страница 1 из 1
Квадратный корень
    #40053392
shekifovai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый вечер всем)
Подскажите пожалуйста, что я делаю не так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 
var
a: integer;
j: double;
Begin
 j:=FloatToStr(Edit2.Text);// тут значение точка с запятой (например 9,9)
a:=StrToInt(Edit1.Text);// тут целое значение
       sqr:= Sqrt(j/a)
Edit3.Text:=IntToStr(sqr)
End;


Компилирую код и выход ошибка:
Код: pascal
1.
 [dcc32 Error] Unit1.pas(158): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
...
Рейтинг: 0 / 0
Квадратный корень
    #40053397
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А где у тебя объявлено sqr?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Квадратный корень
    #40053399
shekifovai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dimitry Sibiryakov,

Код: pascal
1.
2.
3.
4.
var
a: integer;
j: double;
sqr:extened; 


не доконца скопировала.
...
Рейтинг: 0 / 0
Квадратный корень
    #40053400
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во FloatToStr строка пихается.
Ошибка не оттуда.
...
Рейтинг: 0 / 0
Квадратный корень
    #40053401
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А теперь сравни по буквам " Int ToStr" и " Extended ". И спроси себя "с какого
перепугу я пытаюсь запихнуь в одно другое". Не пихать круглые блоки в квадратные отверстия
приучают обычно ещё в детском саду.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Квадратный корень
    #40053891
shekifovai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dimitry Sibiryakov, код исправила, но теперь выдает ошибку: "10,3 is not a valid integer value'

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var
a: integer;
j: double;
sqr:extened; 
  Begin
 j:=StrToInt(Edit9.Text);   // 10,3
       a:=StrToInt(Edit1.Text);//12
       sqr:= Round (Sqrt (j/a));
       Edit10.Text:=CurrToStr(sqr);
End;


Помогите пожалуйста, что опять делаю не так.
...
Рейтинг: 0 / 0
Квадратный корень
    #40053895
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
shekifovai
Dimitry Sibiryakov, код исправила, но теперь выдает ошибку: "10,3 is not a valid integer value'

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var
a: integer;
j: double;
sqr:extened; 
  Begin
 j:=StrToInt(Edit9.Text);   // 10,3
       a:=StrToInt(Edit1.Text);//12
       sqr:= Round (Sqrt (j/a));
       Edit10.Text:=CurrToStr(sqr);
End;



Помогите пожалуйста, что опять делаю не так.


10,3 - это НЕ целое значение.
Пояснение для блондинок: целое - это когда нет разделителя, точечки или запяточечки.
10 - это целое число, а 10,3 - уже дробное, то есть 10 и ещё чуть-чуть
...
Рейтинг: 0 / 0
Квадратный корень
    #40053897
shekifovai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,
то есть мне надо использовать:
Код: pascal
1.
 Edit10.Text:=FloaTToStr(sqr);?


или хотя бы тыкните где ошибка...
...
Рейтинг: 0 / 0
Квадратный корень
    #40053909
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
shekifovai
defecator,
то есть мне надо использовать:
Код: pascal
1.
 Edit10.Text:=FloaTToStr(sqr);?



или хотя бы тыкните где ошибка...


нужно строку преобразовать в число - StrToFloat
...
Рейтинг: 0 / 0
Квадратный корень
    #40053943
zedxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
shekifovai
или хотя бы тыкните где ошибка...

А разве компилятор не пишет номер строки, где возникла ошибка?
...
Рейтинг: 0 / 0
Квадратный корень
    #40053944
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это тро-ло-ло.
гоните его нафуй.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Квадратный корень
    #40053949
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мимопроходящий,

её)
...
Рейтинг: 0 / 0
Квадратный корень
    #40053953
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
16.03.2021 12:00, asutp2 пишет:
> её)

тролли первичных половых признаков не имеют.
как и вторичных.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Квадратный корень
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]