строки

[pakusya]

объясните, пожалуйста, как решить задачи.
1. в зависимости от введенного символа англ. алфавита, вывести: например:
f
abcdef
bcdef
cdef
def
ef
f

я написала программу, но она выводит только первую строчку(abcdef).
а как дальше не могу понять.
2.
вывести в строку символы русского алфавита до введенного с клавиатуры символа. чтобы получилось так: аббвввггггддддд....

программа для вывода англ. алфавита у меня есть. что надо сделать, чтобы , программа выводила русский алфавит.
var j,l:integer;
i,k:char;
begin
write('k=');
readln(k);
l:=1;
for i:='a' to k do
begin
for j:=1 to l do
write(i);
l:=l+1;
end;
readln;
end.
3.с клавиатуры вводится строка. удалить из нее первый знак препинания. предварительно объявив множество знаков препинания.

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

4 если мне надо найти в строке слова с только двумя буквами "о", подскажите как объявить в программе что букв две.
5и объясните мне пожалуйста ,как понять вот эту задачу, я ее вообще не понимаю: ввести строку символов. определить, является ли она записью десятичного числа кратного пяти.

[Greblin]

1.

read(c);
for i := 'a' to c do
  begin
  for j := i to c do
    write(j);
  writeln
  end;
{i, j, c символьного типа}

2. Будет работать во FreePascal'е

var i, c: char;
     k, j: integer;
     rus: set of char;

begin
rus := ['а','б','в','г','д']; {здесь нужно честно прописать все буквы русского алфавита}
read(c);
k := 1;
for i := '*' to c do
  if i in rus then
    begin
    for j := 1 to k do write(i);
    k := k + 1;
    end;
end.

Единственная трабла - буква ё в этой кодировке в конце. Правда я не знаю, она щас в наш алфавит входит или нет

[Greblin]

3.

var prep: set of char;
begin
prep := ['.', ',', '!', '?'] {ну и всё остальное что надо}
...
end.

Дальше считываем посимвольно и каждый символ проверяем на вхождение в множество: ch in prep. Если это первое такое вхождение, то символ не выводим и строчим дальше без остановок

[Greblin]

4. Считываем посимвольно и для каждого слова считаем, сколько раз в нём встретилась буква о. Слово кончилось - смотрим 2 вхождения или нет и сбрасываем счётчик
5. Надо проверить, что каждый символ является цифрой, а последний либо '5', либо '0'

[pakusya]

большое спасибо за объяснения. я все поняла и программы работают нормально.
а можно спросить еще?
написала программу:файлы. но она такая громоздкая и не получается вывод.
const n=10;
var f:text; i,s,m,n,k,a:integer; c:=char;
assign(f,'first');
rewrite(f);
writeln(f,i);
readln(i);
writeln(f,s);
readln(s);
.......
write(f,a);
readln(a);
close(f);
begin
while(not eof(f)) do
begin
read(f,c); g:=1;
for i:=1 to h do begin
for g:=i+1 to h do
g:=g+1;
if g=2 then writeln(g,''); end;
...........
скажите,пожалуйста, что я сделала не так.
а задание такое:
создать файл, записать информацию:
135678
2333
34644
51111
6575
2
написать программу, результат:каждый элемент файла повторяется два раза через пробел.

[Greblin]

Боюсь что тут много чего не так. Не говоря уж о синтаксисе могу отметить следующее:
1.

 
assign(f,'first');
rewrite(f);
writeln(f,i); 
{что вы хотите записать сюда? у переменной i значение не определено}
readln(i); 
{если вам надо считывать с клавы, то это нормально, но по условию я 
понял, что считывать надо из файла, а при вызове rewrite(f); writeln(f, i)
содержимое файла затирается и заменяется на i
}

2.

close(f);
begin
while(not eof(f)) do 
  begin
  read(f,c);
{файл только что был закрыт, а вы пытаетесь определить не достигли ли
мы конца и читаете из него}

Напишите условие получше, что откуда брать и куда писать, разберёмся

[pakusya]

спасибо что ответили.
вообще задание такое :
создать файл FIRST , в который записать информацию:
1 3 5 6 7 8
2 3 3 3
3 4 6 4 4
5 1 1 1 1
6 5 7 5
2
написать программу, в результате которой каждый элемент файла повторяется два раза через пробел.
я просто не могу понять что и как и в каком порядке делать.

как создавать файлы я вроде понимаю, а как записывать в него и как с содержимым работать нет.
я просто учусь дистанционно и спросить нет у кого.

[Greblin]

Что-то примерно такое

program prog1;

var f, g: text;
    i: integer;

begin
assign(f, 'first');
rewrite(f);
{открываем файл на запись}
writeln(f, '1 3 5 6 7 8');
{как вариант writeln(f, 1,' ',3,' ',5,' ',6,' ',7,' '.8)}
writeln(f, '2 3 3 3');
writeln(f, '3 4 6 4 4');
writeln(f, '5 1 1 1 1');
writeln(f, '6 5 7 5');
writeln(f, '2');
close(f);
{файл с исходными данными записали}
assign(f, 'first');
assign(g, 'second');
reset(f);
{f открываем на чтение}
rewrite(g);
{g открываем на запись}
while not eof(f) do
{пока не конец файла}
  begin
  while not eoln(f) do
  {пока не конец строки}
    begin
    read(f, i);
    write(g, i,' ',i,' ')
    {считываем очередной элемент и записываем его в новый файл дважды}
    end;
  writeln(g);
  {переводим в новом файле строку}
  readln(f);
  {переводим строку в файле, который читаем}
  end;
close(f);
close(g);
end.

[pakusya]

спасибо. вроде все поняла , буду разбираться