Ну если тебе правдо надо то пиши мне на мыло или сюда.
Это элементарно.
Есть следующие вопросы:
По первой задаче:
1. Сколько n?
2. Данные вводятся в массив или читаются из файла и куда пишутся на монитор или в файл?
По второй задаче:
1. Откуда
строчка берется вводится или читается из файла и куда выводится?
2. Я правильно понял что к полученной строчке надо прибавить в конец вот этот символ "/"?
program numero_uno;
//Еще должен быть какой-то uses - не помню, хоть убей, какой.
//Спросите у сокурсников, если не заработает
const
n = 10;
type
TIntArray = array [1..n] of integer;
var
i : integer;
arr_n : TIntArray =
(-1,-2,-3,-4,0,1,7,8,9,10);
begin
for i := 1 to n do
begin
write(arr_n[i], ' ');
if arr_n[i] < 2 then arr_n[i] := 0;
writeln(arr_n[i]);
end;
readln;
end.
program numero_DVA;
//Еще должен быть какой-то uses - не помню, хоть убей, какой.
//Спросите у сокурсников, если не заработает
var
i, cnt: integer;
IniStr : string;
begin
IniStr := 'Сколько же пробелов в этой долбаной строке? И вообще, нахрена
девицам Паскаль???';
cnt := 0;
i := 0;
writeln('Дано: строка "' + IniStr + '"');
while (i < Length(IniStr))and(IniStr[i] <> '/') do
begin
if IniStr[i] = ' ' then cnt := cnt + 1;
i := i + 1;
end;
if
pos('/', IniStr) = 0 then IniStr := IniStr + '/';
writeln('Пробелов в строке "' + IniStr + '": ', Cnt);
readln;
end.
Так как не совсем ясно, что нужно делать с косой чертой, то в этом модуле
1) Пробелы считаются только до косой черты "/"
2) Если косой черты "/" не найдено, то пробелы считаются до конца строки, после чего в конец прибавляется "/"
to PSH:
Первая работать не будет я тебе точно говорю, это паскаль, а не делфи тебе, так писать нельзя: arr_n : TIntArray = (-1,-2,-3,-4,0,1,7,8,9,10); Ошибка будет.
Для очистки экрана надо подключить библиотеку:
USES Crt; {в самом начале программы}
А для очистки
экрана вызвать процедуру, где это надо:
Clrscr;
Внимание! сейчас Вы не авторизованы и не можете подавать сообщения как зарегистрированный пользователь.
Чтобы авторизоваться, нажмите на эту ссылку (после авторизации вы вернетесь на
эту же страницу)
