Цитата:
Сообщение от samoel
Помогите решить задачи пожалуйста..
Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.
|
Const
Year:ARRAY[1..12] of STRING=('January', 'February', 'March', 'April', 'May',
'June', 'July', 'August', 'September', 'October', 'November', 'December');
VAR
i:BYTE;
BEGIN
Write('Number = '); ReadLn(i);
Writeln(Year[i]);
ReadLn;
END.
Цитата:
Пусть даны целое число N, символы s1, s2, …, sn. Преобразуйте последовательность s1, s2, …, sn, удалив каждый символ звездочки (*) и повторив каждый символ, отличный от звездочки.
|
Const N= ; {enter the number}
VAR
St1:ARRAY [1..N] of CHAR;
St2:ARRAY [1..N*2] of CHAR;
i,j,M:WORD;
BEGIN
FOR i:=1 TO N DO READ(St1[i]);
j:=1;
M:=0;
FOR i:=1 TO N DO
IF St1[i]<>'*' THEN
BEGIN
St2[j]:=St1[i];
St2[j+1]:=St1[i];
j:=j+2;
M:=M+2;
END;
FOR j:=1 TO M DO
WRITE(St2[j],' ');
ReadLn;
END.
Цитата:
Как добавить данные в начало файла (написать программу)
|
VAR
f,f1:TEXT;
S:STRING;
BEGIN
Assign(f1, '{enter the way to NEW file and its name, e.g. 'C:\file2'}');
ReWrite(f1);
WriteLn(f1, 'Long ago there were three pigs');
Assign(f, '{enter the way to OLD file and its name, e.g. 'C:\file1'}');
ReSet(f);
REPEAT
ReadLn(f,S);
WriteLn(f1,S);
UNTIL EoF(f);
Close(f);
Close(f1);
END.