Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Dynya
0 / 0 / 0
Регистрация: 18.04.2010
Сообщений: 13
#1

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

15.05.2010, 12:34. Просмотров 316. Ответов 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):

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

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

Прокомментировать код - Pascal
program decision5_2; {Название программы} uses crt; ...

Прокомментировать код - Pascal
Объясните как работает эта программа Program Lab7_2; const n=10; type vektor=arrayof integer; procedure sort(var s:vektor;var...

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

Прокомментировать код - Pascal
Здравствуйте, помогите пожалуйста с задачей, разъясните в ней каждый оператор и цикл: function FindMin(x,y:integer):integer; begin if...

4
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
15.05.2010, 12:54 #2
это не полная программа. переменная zp не объявлена.
0
arcture
39 / 39 / 1
Регистрация: 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 / 0
Регистрация: 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
Модератор
52402 / 40249 / 13581
Регистрация: 18.05.2008
Сообщений: 93,048
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
Привет! Вот еще темы с ответами:

Прокомментировать код - Pascal
1)начиная с while not eof(t) do и до конца условия program v4; var s:string; t:text; b:char; k,i:integer; begin ...

Прокомментировать код - Pascal
объясните хотя бы самые сложные строчки в данной части программы Procedure Vvod(x,y:integer;max:integer;mode:string;var...

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

Прокомментировать код - Pascal
var s:string; x:real; sumk,kint,k,code:integer; f:text; begin assign(f,'111.txt'); reset(f); while not eof(f)...


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

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

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