IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Создать файл сумм двух файлов, Проверить почему она не работает и сказать можно испавить
IlyasKaz
сообщение 5.06.2011 16:46
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Il`yas

Репутация: -  0  +


Cотдать два файла действительных чисел проанализируйте в программе созданные файлы, создайте файл строкового типа содержавший суммы соответствующих чисел файлов в виде 2,5+3,4=5,9 выведите на экран содержимое файлов Предусмотрите в программе вывод соответствующее сообщение если файлы пустые(не заполненные)
uses crt; 

var

SrcFile1,SrcFile2: File of real;

DestFile: File of string;

SrcFile1Name, SrcFile2Name, DestFileName: string;
elem1,elem2,summ : real;
ask: char;
itog, stroka1, stroka2 : string;

procedure CreateFileOfReal1;

var
min, max, value, sign: real;

begin

Rewrite(SrcFile1);

writeln('Vvedite min granicu zna4eniy '); readln(min);
writeln('Vvedite max granicu zna4eniy '); readln(max);

if min > max then begin
value:= min;
min:= max;
max:= value;
end;

value := random*(max-min)+min;

sign := random;

if sign>=0.5 then begin
value := -value;
write (SrcFile1, value);
end;

Close(SrcFile1);

end;

procedure CreateFileOfReal2;

var
min, max, value, sign: real;

begin

Rewrite(SrcFile2);

writeln('Vvedite min granicu zna4eniy '); readln(min);
writeln('Vvedite max granicu zna4eniy '); readln(max);

if min > max then begin
value:= min;
min:= max;
max:= value;
end;

value := random*(max-min)+min;

sign := random;

if sign>=0.5 then begin
value := -value;
write (SrcFile2, value);
end;

Close(SrcFile2);

end;

begin

clrscr;

writeln('Vvedite imya 1 fila '); readln(SrcFile1Name);
Assign(SrcFile1, SrcFile1Name);
writeln('Nujno li predvaritelno zapolnit file (y/n)'); readln(ask);
if (ask='y')or(ask='Y') then
CreateFileOfReal1;

writeln('Vvedite imya 2 fila '); readln(SrcFile2Name);
Assign(SrcFile2, SrcFile2Name);
writeln('Nujno li predvaritelno zapolnit file (y/n)'); readln(ask);
if (ask='y')or(ask='Y') then
CreateFileOfReal2;

writeln('Vvedite imya fila rezultata '); readln(DestFileName);
Assign(DestFile, DestFileName);

{$I-}
Reset(SrcFile1);
{$I+}
if IOResult<>0 then begin
writeln('Oshibka, ne vozmojno otkrit file1.');
readln;
exit;
end;

{$I-}
Reset(SrcFile2);
{$I+}
if IOResult<>0 then begin
writeln('Oshibka, ne vozmojno otkrit file2.');
readln;
exit;
end;

Rewrite(DestFile);

read (SrcFile1, elem1);
writeln ('1-y file soderjit zna4enie = ',elem1:3:1);

read (SrcFile2, elem2);
writeln ('2-y file soderjit zna4enie = ',elem2:3:1);

summ:=elem1+elem2;

str(elem1:3:1, stroka1);
str(elem2:3:1, stroka2);
str(summ:3:1, itog);

itog:= stroka1 + ' + ' + stroka2 + ' = ' + itog;

write (DestFile, itog);

writeln ('V fail rezultata zapisano: ', itog);

readln;

Close (SrcFile1);
Close (SrcFile2);
Close (DestFile);

end.


Сообщение отредактировано: Lapp - 5.06.2011 23:12
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
IlyasKaz
сообщение 5.06.2011 17:10
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Il`yas

Репутация: -  0  +


Люди ну помогите может как нибудь по другом я просто уже не знаю что с ней делать А завтра утром крайний срок сдачи Одно только радует))) Это последняя задача в этом учебном году
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IlyasKaz
сообщение 5.06.2011 18:22
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Il`yas

Репутация: -  0  +


)))напишите хоть что нибудь ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IlyasKaz
сообщение 5.06.2011 19:41
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Il`yas

Репутация: -  0  +


Что никто не поможет((("Это прискорбно!". А. Р. Бародач
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Krjuger
сообщение 6.06.2011 20:28
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 652
Пол: Мужской
Реальное имя: Алексей

Репутация: -  20  +


Лано,возник вопрос, почему если в файле храниться несколько значений ты считываеш лиш 1 из каждого?

str(elem1:3:1, stroka1);
str(elem2:3:1, stroka2);
str(summ:3:1, itog);

itog:= stroka1 + ' + ' + stroka2 + ' = ' + itog;


Зачем все это????
writeln ('V fail rezultata zapisano: ',elem1,'+',elen2,'=',itog);
И вообще надо было написать,какие у тебя проблемы.....Не компилируется,не правильно работает,что то не заполняет....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 22:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"