Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Dynya
0 / 0 / 2
Регистрация: 18.04.2010
Сообщений: 13
#1

Прокомментировать - Pascal

15.05.2010, 12:34. Просмотров 338. Ответов 4
Метки нет (Все метки)

Пркоментируйте 2 строки...пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Procedure Dob;
var
n:integer;
begin
clrscr;
Writeln('Skilku  Zapusiv hochete dobavutu? ');
readln(n);
assign(f,'C:\Cex1.dat');
append(f);
for i:=1 to n do
        begin
        writeln('Prizvuche.I.P:');readln( zp.pri);
        writeln('Cex:');readln( zp.cex);
        writeln('Zarobitok:');readln( zp.zarp);
        writeln(f, zp.pri, '':15-length(zp.pri),  ВОТ ЭТО
                   zp.cex, '':11-length(zp.cex), zp.zarp);  ВОТ ЭТО 
     end;
     close(f);
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 12:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Прокомментировать (Pascal):

Прокомментировать код
Здравствуйте. Большая просьба, разъясните пожалуйста 3 задачи в паскале...

Прокомментировать код
Объясните пожалуйста подробнее операторы и циклы в 2 задачах, в них много...

Прокомментировать код
Здравствуйте. Друзья, разъясните пожалуйста чайнику каждый цикл и оператор в...

Прокомментировать код
program decision5_2; ...

Прокомментировать код
Объясните как работает эта программа Program Lab7_2; const n=10; type...

Прокомментировать код
условие: На вход программы подаются сведения о результатах соревнований по...

4
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
15.05.2010, 12:54 #2
это не полная программа. переменная zp не объявлена.
0
arcture
39 / 39 / 6
Регистрация: 27.03.2010
Сообщений: 74
15.05.2010, 13:05 #3
Запись в файл f значений zp.pri, '':15-length(zp.pri), zp.cex, '':11-length(zp.cex), zp.zarp
0
Dynya
0 / 0 / 2
Регистрация: 18.04.2010
Сообщений: 13
15.05.2010, 13:08  [ТС] #4
ДА я знаю что не полная я хочу понять как там 2 строки работают

Pascal
1
2
 writeln(f, zp.pri, '':15-length(zp.pri),  ВОТ ЭТО
                   zp.cex, '':11-length(zp.cex), zp.zarp);  ВОТ ЭТО
Добавлено через 2 минуты
Цитата Сообщение от arcture Посмотреть сообщение
апись в файл f значений zp.pri, '':15-length(zp.pri), zp.cex, '':11-length(zp.cex), zp.zarp
да я сам знаю что записываются данные в файл ток по коком прицепу..
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
15.05.2010, 13:18 #5
Во первых у вас почему-то вместо пробелов стоит обозначение пустой строки, думаю это опечатка
Pascal
1
writeln(f, zp.pri, ' ':15-length(zp.pri),zp.cex, ' ':11-length(zp.cex), zp.zarp);
Эта запись обозначает что в каждую строку текстового файла мы записываем 3 значения, выделяя под первое 15 позиций, заполняя недостающие пробелами, под второе 11 позиций.
Получится строка типа
Код
Ющенко         мужской    15000
1
15.05.2010, 13:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 13:18
Привет! Вот еще темы с решениями:

Прокомментировать код
var s:string; x:real; sumk,kint,k,code:integer; f:text; begin ...

Прокомментировать код
Здравствуйте, помогите пожалуйста с задачей, разъясните в ней каждый оператор и...

Прокомментировать код
1)начиная с while not eof(t) do и до конца условия program v4; var ...

Прокомментировать код
объясните хотя бы самые сложные строчки в данной части программы Procedure...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru