|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.01.2016, 19:47 | #1 (permalink) |
Member
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Типизированные файлы на языке Pascal
помогите, пожалуйста.. var K:array[1..5] of integer; A,B,C: file of integer; h,m,g,i:integer; begin assign(A,'failA'); assign(B,'failB'); assign(C,'failC'); writeln ('введите m'); readln(m); writeln ('введите h'); readln(h); rewrite(B); rewrite(C); reset(A); for i:=1 to 5 do begin readln(K[i]); write(A,K[i]); end; reset(A); while not eof(A) do read(A,g); if (g mod m=0) then write(B,g); if (g mod h=0) then write(C,g); close(A); reset(B); reset(C); writeln; write('файл В(g/',m, '):'); while not eof(B) do begin read(B,g); write(g); end; writeln; write('файл C(g/',h, '):'); while not eof(C) do begin read(C,g); write(g); end; close(B); close(C); end. |
07.01.2016, 19:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Содержание вашей темы очень схоже с другими темами, можете потратить минутку и ознакомиться Помогите написать программы на языке Pascal Записи на языке Pascal Создание программы. Тема: типизированные файлы. Pascal ABC Практические задачи на языке Pascal Нужно написать программы на языке Pascal Типизированные файлы, Паскаль |
07.01.2016, 20:10 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста.
Ваша программа написана в принципе правильно, но крайне неряшливо с кучей ошибок. Поймите, программирование требует кинжальной точности, никаких "что-то типо" компьютер (и транслятор) не понимают, а потому каждый значок, каждый оператор и т.п. должны быть выверены. Код:
Const N=38; Var A,B,C: file of integer; h,m,g,i:integer; Begin assign(A,'failA'); assign(B,'failB'); assign(C,'failC'); write(' m = '); readln(m); write(' h = '); readln(h); writeln; rewrite(A); rewrite(B); rewrite(C); Randomize; for i:=1 to N do begin g:=Random(99)+1; write(A,g); end; Close(A); Reset(A); while not eof(A) do begin read(A,g); if (g mod m)=0 then write(B,g); if (g mod h)=0 then write(C,g); end; Close(B); Close(C); Reset(A); Reset(B); Reset(C); Writeln; Writeln('File A:'); While not EoF(A) do begin Read(A,g); Write(g:4); end; Writeln; Writeln('File B:'); While not EoF(B) do begin Read(B,g); Write(g:4); end; Writeln; Writeln('File C:'); While not EoF(C) do begin Read(C,g); Write(g:4); end; Close(A); Close(B); Close(C); Readln End. |
08.01.2016, 08:57 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
А если Вы хотите получить читабельные файлы, то используйте файловый тип TEXT. Но! если Вы посылаете в файл blablabla.txt последовательность чисел, то не забывайте записывать туда же пробелы между ними, иначе они сольются и файл к чтению станет непригодным. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.01.2016, 14:26 | #6 (permalink) |
Member
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|