Помощь - Поиск - Пользователи - Календарь
Полная версия: как использовать прогу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
blackhard
var
i,j,k,L:integer;
s,t:string;
f,g:text;
One:boolean;
begin
if ParamCount<>3 then WriteLn('Use 3 parameters: N infile outfile')
else begin
Val(ParamStr(1),L,i);
Assign(f,ParamStr(2)); Reset(f);
Assign(g,ParamStr(3)); ReWrite(g);

может кто обьяснит по поводу этого куска че такое ParamCount,ParamStr(1),ParamStr(2),ParamStr(3) и как их задать
КМА
У меня написано ParamStr (Indx: word):string; функция, которая возвращает параметр командной строки номер Indx или пустую строку, если Indx больше чем ParamCount или равен нулю. А ParamCount возвращает число параметров командной строки.
volvo
Цитата
че такое ParamCount,ParamStr(1),ParamStr(2),ParamStr(3) и как их задать
Это - параметры командной строки... Если запускаешь программу из оболочки Паскаля - то Run -> Parameters, и через пробел перечисляешь те параметры, которые хочешь передать программе (в твоем случае - одно число и 2 имени файлов). После запуска по ParamStr(1) получишь значение первого параметра, по ParamStr(2) - второго и т.д.
КМА
Если не понятно, то это параметры командной строки, чтобы их задать, нужно типа такого:

# name_your_prog.exe param1 param2 param3.

В данном случае у тебя и получается, что первый парамет это param1, второй param2. Чтобы получить, скажем второй, необходимо использовать ParamStr(2), я так полагаю, что второй и третий у тебя есть имена файлов. А первая строчка твоего кода обозначает, что если параметров не 3, тогда неверный ввод.
blackhard
Цитата(КМА @ 31.10.2007 0:26) *

Если не понятно, то это параметры командной строки, чтобы их задать, нужно типа такого:

# name_your_prog.exe param1 param2 param3.

В данном случае у тебя и получается, что первый парамет это param1, второй param2. Чтобы получить, скажем второй, необходимо использовать ParamStr(2), я так полагаю, что второй и третий у тебя есть имена файлов. А первая строчка твоего кода обозначает, что если параметров не 3, тогда неверный ввод.

спасибо за подсказку может кто еще подскажет как текст из файла вывести на экран smile.gif
Lapp
Цитата(blackhard @ 31.10.2007 1:19) *
как текст из файла вывести на экран
Например, вот так:
while not EoF(f) do begin
while not EoLn(f) do begin
Read(f,s);
Write(s);
end;
ReadLn(f);
WriteLn
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.