Массив: Если в командной строке не заданы аргументы, распечатать все строки...

@valievegorka · Регистрация: 22.01.2019

Author24 — интернет-сервис помощи студентам

Дан массив символьных строк.Если в командной строке не заданы аргументы,распечатать все строки,а если задана опция -n- распечатать последние n строк.

@ZX Spectrum-128 · 22.01.2019, 18:38

Pascal

const
  n = 5;
  x: array [1..n] of string = ('One', 'Two', 'Three', 'Four', 'Five');
 
var
  value, err, i: Integer;
  s: string;
 
begin
  if ParamCount <> 0 then 
  begin
    s := ParamStr(1);
    delete(s, 1, 1);
    val(s, value, err);
    for i := n downto n - value + 1 do
      writeln(x[i]);
  end
  else
    for i := 1 to n do 
      writeln(x[i]);
end.

@eliotvaliev · 06.03.2019, 15:19

Здравствуйте,можете пожалуйста,показать как это сделать без string?

@bormant · 06.03.2019, 16:01

ParamStr() возвращает String, массив хранит String, поэтому иначе если только вприсядку.

@eliotvaliev · 06.03.2019, 19:10

Ну по этому я и решил узнать

@valievegorka 0 / 0 / 0 Регистрация: 22.01.2019 Сообщений: 10
		1
	Массив: Если в командной строке не заданы аргументы, распечатать все строки... 22.01.2019, 12:07. Показов 1845. Ответов 4 Метки нет (Все метки) Дан массив символьных строк.Если в командной строке не заданы аргументы,распечатать все строки,а если задана опция -n- распечатать последние n строк. 0

@eliotvaliev 0 / 0 / 0 Регистрация: 24.01.2019 Сообщений: 17
	06.03.2019, 15:19	3
	Здравствуйте,можете пожалуйста,показать как это сделать без string? 0

@bormant Модератор 7795 / 4618 / 2830 Регистрация: 22.11.2013 Сообщений: 13,113 Записей в блоге: 1
	06.03.2019, 16:01	4
	ParamStr() возвращает String, массив хранит String, поэтому иначе если только вприсядку. 0

@eliotvaliev 0 / 0 / 0 Регистрация: 24.01.2019 Сообщений: 17
	06.03.2019, 19:10	5
	Ну по этому я и решил узнать 0