Найти ошибки в коде

@devo4ka · Регистрация: 21.04.2012

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

в этой задачи нужно использовать файловые процедуры

Pascal

uses crt;
var c,m:real;
begin
clrscr;
write('vvedit m');
readln(m);
c:=5*m/430;
writeln('c=',c);
readln;
end.
 
 
использовала 
uses  crt;
var f, f1:text;
c,m:real;
begin
assign (f,'1.txt');
assign(f1, '2.txt');
reset (f);
read(f,m);
c:=5*m/430;
close (f);
rewrite(f1);
writeln (f1,c);
close(f1);
end.

почему не работает незнаю....

Bringoff · 11.11.2012, 20:37

По идее, надо:

Pascal

 uses crt;
c,m:real;
begin
assign (input,'1.txt');
reset(input);
assign(output, '2.txt');
rewrite(output);
read(m);
c:=5*m/430;
close (input);
writeln (c);
close(output);
end.

@devo4ka · 11.11.2012, 20:48 **[ТС]**

file not found,пишет почему то....

Bringoff · 11.11.2012, 20:51

А в папке с исходником есть файл 1.txt и 2.txt?

@devo4ka · 11.11.2012, 20:58 **[ТС]**

насчет исходника незнаю,так как незнаю что это...я создала эти файлы туда где находится сам паскаль тоесть диск с\програм файлс\тп7\бин)))

Bringoff · 11.11.2012, 21:03

Ты скопировала код в среду паскаля. Теперь сохрани этот текст под именем каким-то с,окончанием pas.,
В ту же папку кинь файлы 1 и 2. Тогда заработает.

@devo4ka · 11.11.2012, 21:16 **[ТС]**

омг....простите,я ничего не поняла..какой текст?где создавать???

Bringoff · 11.11.2012, 21:21

Ну вы как пытаетесь выполнить программу? Через такой себе блокнотик. Там в меню есть пункт save. Сохраните в любую папку. Туда же бросьте 1.txt и 2.txt. И выполните, в смысле меню run.

@devo4ka · 11.11.2012, 21:30 **[ТС]**

если я снова не туплю то я сделала так как вы сказали...в папке бин создала "новую папку",туда переместила мою програмку и 1.txt 2.txt файл..так ведь.....???если да,то никаких имзменений...

Kodzaev · 11.11.2012, 21:36

devo4ka, распакуйте архив, сохраните этот файл в папку BIN. Откройте его через паскаль и запустите

@devo4ka · 11.11.2012, 21:43 **[ТС]**

все тоже самое,file not found....и вы по ходу скинули мне тут изначальную мою прогу..

Kodzaev · 11.11.2012, 21:45

Сообщение от devo4ka

и вы по ходу скинули мне тут изначальную мою прогу.

В том то и дело что она работает... Это вы что-то не так делаете

@devo4ka · 11.11.2012, 21:50 **[ТС]**

(((((незнаю...я следую указаниям........а чего не получается....((

Kodzaev · 11.11.2012, 21:54

Давайте еще раз сначала:
1. Создайте в папке BIN файл 1.txt и запишите в него одно число. Закройте файл.
2. Запустите вашу программу
3. Зайдите в папку BIN. Там должен лежать файл 2.txt. В нем и результат

Bringoff · 11.11.2012, 21:58

По-моему, я не заметил ошибку.
Вот это, что я приложил, сбросьте в папку, созданную ранее.
У меня работает отлично
Удачи вам. И пожалуйста, хоть что-нибудь почитайте по паскалю и по среде турбо паскаль.

@devo4ka · 11.11.2012, 22:03 **[ТС]**

о Боги!!!! СВершилось!!!!хуух....

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 21:50 [ТС]	13
	(((((незнаю...я следую указаниям........а чего не получается....(( 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	11.11.2012, 21:54	14
	Давайте еще раз сначала: 1. Создайте в папке BIN файл 1.txt и запишите в него одно число. Закройте файл. 2. Запустите вашу программу 3. Зайдите в папку BIN. Там должен лежать файл 2.txt. В нем и результат 1

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 20:48 [ТС]	3
	file not found,пишет почему то.... 0

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	11.11.2012, 20:51	4
	А в папке с исходником есть файл 1.txt и 2.txt? 0

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 20:58 [ТС]	5
	насчет исходника незнаю,так как незнаю что это...я создала эти файлы туда где находится сам паскаль тоесть диск с\програм файлс\тп7\бин))) 0

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	11.11.2012, 21:03	6
	Ты скопировала код в среду паскаля. Теперь сохрани этот текст под именем каким-то с,окончанием pas., В ту же папку кинь файлы 1 и 2. Тогда заработает. 0

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 21:16 [ТС]	7
	омг....простите,я ничего не поняла..какой текст?где создавать??? 0

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	11.11.2012, 21:21	8
	Ну вы как пытаетесь выполнить программу? Через такой себе блокнотик. Там в меню есть пункт save. Сохраните в любую папку. Туда же бросьте 1.txt и 2.txt. И выполните, в смысле меню run. 0

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 21:30 [ТС]	9
	если я снова не туплю то я сделала так как вы сказали...в папке бин создала "новую папку",туда переместила мою програмку и 1.txt 2.txt файл..так ведь.....???если да,то никаких имзменений... 0

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 21:43 [ТС]	11
	все тоже самое,file not found....и вы по ходу скинули мне тут изначальную мою прогу.. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	11.11.2012, 21:45	12
	Сообщение от devo4ka и вы по ходу скинули мне тут изначальную мою прогу. В том то и дело что она работает... Это вы что-то не так делаете 0

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	11.11.2012, 22:03 [ТС]	16
	о Боги!!!! СВершилось!!!!хуух.... 0

Опции темы