Найти ошибку:(

@Брусникина · Регистрация: 19.12.2010

Студворк — интернет-сервис помощи студентам

program n2;
var
a,x,b: integer;
c: real;
s: string;
txt: Text;
Begin
Assign(txt, 'C:\Data.txt');
reset(txt);
ReadLn (txt,s,a,b);
close(txt);
c:=cos(A*x)*sin(B*x/A);
Writeln('Уже не первая программа!');
writeln(S+', результат равен ',c);
writeln('Также результат можно посмотреть в файле Data.txt');
rewrite(txt);
writeln(txt,'уже не первая программа!');
writeln(txt,S+',результат равен',c);
close(txt);
readln
end.

с виду все хорошо,но выдает ошибку в 10 строке, что входная строка имеет неверный формат...
вообще не могу понять что сделать%)

@MegaAce · 19.12.2010, 15:19

Эта??

Сообщение от Брусникина

ReadLn (txt,s,a,b);

Как вы собираетесь записывать файл с клавиатуры?

@Брусникина · 19.12.2010, 15:24 **[ТС]**

...и где же мне его создать?(

@MegaAce · 19.12.2010, 15:35

Сори, я немножко забыл Паскаль.

Забейте на предыдуший пост
Возможное решение
Попробуйте читать с txt даные по одному

Сообщение от Брусникина

ReadLn (txt,s,a,b);

Pascal
1
2
3
Read (txt,s);
Read (txt,a);
ReadLn (txt,b);

Не по теме:

Чувствую что чем больше пишу, тем больше вас виду в заблуждение(( сегодня не мой день

@Брусникина · 19.12.2010, 15:54 **[ТС]**

попробывала...эффект тот же..
ну да ладно
все равно спасибо!

@MegaAce · 19.12.2010, 16:23

Какая у вас среда?
У меня на TurboPascal там нет ошибки, но я немножко изменил код.

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
program n2;
var
a,x,b: integer;
c: real;
s: string[10];
txt: Text;
Begin
{c:=0; }
x:=1;
Assign(txt, 'Data.txt');
reset(txt);
ReadLn (txt,s,a);
ReadLn (txt,b);
close(txt);
writeln(s,' ',a,' ',b);
c:=cos(a*x) * sin(b*x/a);
Writeln('Uje ne pervaya programa!');
writeln(S+', rezult raven ',c);
writeln('rezult mojno posmotret v fayle  Data.txt');
rewrite(txt);
writeln(txt,'uje ne pervaya programa!');
writeln(txt,S+',result raven',c);
close(txt);
readln
end.

Data в папке паскаля, идет 10 символов, дальше число, во второй строке второе число
Data.txt

Pascal
1
2
Dataaaaaaa4
4

@Брусникина · 19.12.2010, 16:26 **[ТС]**

у меня ABC.NET

@MegaAce · 19.12.2010, 16:31

Сообщение от Брусникина

у меня ABC.NET

ИМХО он полностью совместим с TurboPascal

@Брусникина · 19.12.2010, 16:34 **[ТС]**

только мне для ABC.NET желательно...Лабу делаю

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:

@Брусникина 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 6

	Найти ошибку:( 19.12.2010, 15:08. Показов 829. Ответов 8 Метки нет (Все метки) program n2; var a,x,b: integer; c: real; s: string; txt: Text; Begin Assign(txt, 'C:\Data.txt'); reset(txt); ReadLn (txt,s,a,b); close(txt); c:=cos(Ax)sin(B*x/A); Writeln('Уже не первая программа!'); writeln(S+', результат равен ',c); writeln('Также результат можно посмотреть в файле Data.txt'); rewrite(txt); writeln(txt,'уже не первая программа!'); writeln(txt,S+',результат равен',c); close(txt); readln end. с виду все хорошо,но выдает ошибку в 10 строке, что входная строка имеет неверный формат... вообще не могу понять что сделать%) 0

@Брусникина 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 6
	19.12.2010, 15:24 [ТС]
	...и где же мне его создать?( 0

@Брусникина 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 6
	19.12.2010, 15:54 [ТС]
	попробывала...эффект тот же.. ну да ладно все равно спасибо! 0

@Брусникина 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 6
	19.12.2010, 16:26 [ТС]
	у меня ABC.NET 0

@Брусникина 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 6
	19.12.2010, 16:34 [ТС]
	только мне для ABC.NET желательно...Лабу делаю 0