Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/40: Рейтинг темы: голосов - 40, средняя оценка - 4.55
0 / 0 / 1
Регистрация: 17.03.2017
Сообщений: 20

Ошибка: Нет перегруженной подпрограммы с такими типами параметров

21.03.2017, 17:06. Показов 8295. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
program Zadchahz;
var k,n,er,a:integer;
s,x,e,f,y1,b:real;
y:string;
begin
 
read (y);
n:=length(y)-1;
for k:=1 to n do
begin
s:=10*10;
val(y,y1,er);
end;
x:=9*y1/(10-1/s);
write (x);
int(x);
for k:=1 to n+1 do 
begin 
b:=b+x;
FloatToStr(x);
a:=Length(x);
 
write (y);
end;
read (b);
end.
Program1.pas(21) : Нет перегруженной подпрограммы с такими типами параметров, ума не приложу как ее исправить, весь гугл облазил.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.03.2017, 17:06
Ответы с готовыми решениями:

Ошибка: нет перегруженной подпрограммы с такими типами параметров
program lr4z1; var n,k:integer; s,x:real; begin n:=15; x:=2.1; s:=0; for k:=1 to n do s:=s+(exp(k)*(x))*(sqr(cos))*k*x;...

Нет перегруженной подпрограммы с такими типами параметров
Program KP2; VAR x,q,a,b,y,r:real; begin writeln('Введите значение q,a,b,y,r'); readln (q,a,b,y,r); ...

Program1.pas: Нет перегруженной подпрограммы с такими типами параметров
1.program P1; 2.const 3. n = 5; 4. m = 6; 5. var 6. a: array of integer; 7. b: array of integer; 8. i, j: integer; ...

5
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
21.03.2017, 17:12
у вас x типа real, а вы применяете к нему функцию length, которая возвращает длину строки

Добавлено через 1 минуту
Pascal
20
FloatToStr(x);
не срабатывает, компилятор всё равно ругается
1
0 / 0 / 1
Регистрация: 17.03.2017
Сообщений: 20
21.03.2017, 17:12  [ТС]
Цитата Сообщение от Hitoku Посмотреть сообщение
у вас x типа real,
В строке 20 используется FloatToStr(x);, что должно переводить Real in String
Цитата Сообщение от Hitoku Посмотреть сообщение
не срабатывает, компилятор всё равно ругается
Как же мне тогда x перевести в string ?
0
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
21.03.2017, 17:17
Pascal
20
a:=Length(FloatToStr(x));
1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
21.03.2017, 17:18
Цитата Сообщение от paronroman Посмотреть сообщение
используется FloatToStr(x);, что должно переводить Real in String
Не должно, потому что не используется.
Цитата Сообщение от paronroman Посмотреть сообщение
Как же мне тогда x перевести в string ?
y:=FloatToStr(x);
1
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
21.03.2017, 17:20
Лучший ответ Сообщение было отмечено paronroman как решение

Решение

Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
y:=FloatToStr(x);
paronroman, либо str(x,y);

Добавлено через 32 секунды
Но если вам нужна только длина строки, то лучше сделать, как я написал выше
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.03.2017, 17:20
Помогаю со студенческими работами здесь

Program1.pas(23) : Нет перегруженной подпрограммы с такими типами параметров
program lol; function deletel(n:integer):integer; var a,i,g,b,c:integer; begin writeln ('Введите два натуральных числа'); readln...

Program5.pas(14) : Нет перегруженной подпрограммы с такими типами параметров
program msy; uses crt; const n = 10; type mas = array of integer;

Ошибка: Нет перегруженной подпрограммы с таким количеством параметров
var x,y,a,b:real; begin assign (a,b, 'input.txt'); reset (a); reset (b); if (a=0) or (b=0) then writeln ('no solution') else...

Нет перегруженной подпрограммы с таким количеством параметров
Подскажите, что за ошибка. uses graphABC; var gx,gy,x0,y0:integer;{переменным присваиваем целочисленный тип данных} A,x:real; ...

Нет перегруженной подпрограммы с таким количеством параметров Val
Type sotr=record FIO,pol:string; //Марка и модель klass:integer; //класс dateR:string; //Цена ...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
BOINC: 22 года — и всё ещё работает
Programma_Boinc 12.03.2026
BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru