Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/47: Рейтинг темы: голосов - 47, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19

Ошибка "Error: Wrong number of parameters specified for call to "FloatToStrF""

07.02.2018, 20:00. Показов 9697. Ответов 3

Студворк — интернет-сервис помощи студентам
и снова я. задание: создайте программу, в которой можно найти максимальное из четырех заданных ризных целых чисел пр условии, что каждое число подается в положительном виде, даже если пользователь введет отрицательные.

т.е пользователь вводит 4 числа а программа ищет максимальное из них. и если пользователь введет отрицательные числа (-4, -100...), то программа должна их обработать как положительные (4, 100...)


покопавшись на форумах.... как всегда ошибка в строке 51, и звучит как

unit1.pas(51,19) Error: Wrong number of parameters specified for call to "FloatToStrF"

код ниже:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  a, b, c, d, max: real;
  i: byte;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.height:=height+165;
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  c:=strtofloat(edit3.text);
  d:=strtofloat(edit4.text);
  if a>b then max:=a else max:=b;
  if b>c then max:=b else max:=c;
  if c>d then max:=c else max:=d;
  if d>a then max:=a else max:=a;
  label2.caption:=FloatToStrF(max,ffFixed,5000);
  label2.Visible:=true;
end;
 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.02.2018, 20:00
Ответы с готовыми решениями:

Error: Wrong number of parameters specified for call to "Image1MouseUp"
Ситуация в следующем такова: при создании графического редактора в Лазарь я добавил функцию загрузки изображения, но при попытке задать для...

Error: Wrong number of parameters specified for call to "Image5Click" при назначении обработчика
Динамически создаем Image. Необходимо чтобы при нажатии на нее вызывалась procedure TForm1.Image5Click(Sender: TObject); Помогите...

Код с ошибкой, Error: Found declaration, Error: Wrong number of parameters specified for call
Задние: Заполнить двумерный массив случайными числами. Размерность массива и диапазон генерации вводятся с клавиатуры. Составить программу,...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33414 / 21523 / 8237
Регистрация: 22.10.2011
Сообщений: 36,923
Записей в блоге: 12
07.02.2018, 20:11
У функции FloatToStrF от четырех и более параметров, а у тебя три. Компилятор не понимает, что за функция такая, которая принимает три параметра.
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 20:31  [ТС]
и что же делать?

Добавлено через 1 минуту
* строку 33 убрал - она ненужна
в строке 32 поменял значение на integer
0
Модератор
 Аватар для D1973
9929 / 6467 / 2457
Регистрация: 21.01.2014
Сообщений: 27,424
Записей в блоге: 3
08.02.2018, 05:57
Цитата Сообщение от stkapler Посмотреть сообщение
из четырех заданных ризных целых чисел
Цитата Сообщение от stkapler Посмотреть сообщение
call to "FloatToStrF"
stkapler, ни о чем не говорит?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.02.2018, 05:57
Помогаю со студенческими работами здесь

Wrong number of parameters specified for call to
Врмени суток, программисты. Я тут пишу первый раз, и пишу, к сожалению по необходимости. Задание лабораторной: вычислить значение...

Исправить ошибку: Wrong number of parameters specified for call to "StrToInt"
var s:string; i,k:integer; begin s:=Edit1.Text; k:=0; for i:=1 to length(s) do if copy (s,i,2)='AA' then begin inc(k);

Метод Гаусса и ошибка Wrong number of parametres specified for call to 'ff'
помогите,пожалуйста, выводит 'wrong number of parametres specified for call to 'ff' type vect=array of real; ...

Ошибка: wrong number or types of arguments in call to 'PUT_LINE'
Написала функцию в анонимном блоке declare type AssocEmp IS TABLE OF hr.employees.last_name%TYPE index by pls_integer; ...

Светофор: ошибка "Wrong number of parameters specified"
Подсвечивает ошибку(Wrong number of parameters specified for call to "OnShape"), помогите исправить пожалуйста var Form1: TForm1; ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru