PASCAL. Задание по строкам. Напишите программу, которая переводит натуральное число N ( 1 ≤ N ≤ 3999 ) из римской системы счисления в десятичную. Входные данные Входная строка содержит число N , записанное в римской системе счисления. Выходные данные Программа должна вывести десятичную запись числа N . Пример: Ввод MCMLXIX Вывод 1969 Ввод CDLIV Вывод 454 Ввод DCCCXVII Вывод 817

program rome_arabic;

Uses crt;

Const

{римские цифры}

RomeDigits:string='IVXLCDM';

{числа - соответствующие римским цифрам}

ArabicNumbers:array [1..7] of integer =

(1, 5, 10, 50, 100, 500, 1000);

(*

Функция определения правильности ввода арабского числа

*)

function IsArabic(s:string):boolean;

var i,t,c:integer;

begin

IsArabic:=true;

for i:=1 to length(s) do

if not(s[i] in ['0'..'9'])then

begin

IsArabic:=false;

exit;

end;

val(s,t,c);

if (c<>0)or(t<1) then

begin

IsArabic:=false;

exit;

end;

end;

(*

Функция перевода арабского числа в римское

*)

function ArabicToRome (s: string): string;

var

i,n,c: integer;

res: string;

begin

val(s,n,c);

res:='';

i:=7; {Проверяем от больших чисел к меньшим}

while n>0 do

begin

{находим следующее число - из которого будем формировать римскую цифру}

while ArabicNumbers[i]>n do i:=i-1;

res:=res+RomeDigits[i];

n:=n-ArabicNumbers[i];

end;

ArabicToRome := res;

end;

(*

Функция определения правильности ввода римского числа

*)

function IsRome(s:string):boolean;

var i:integer;

begin

IsRome:=true;

if s='' then

begin

IsRome:=false;

exit;

end;

for i:=1 to length(s) do

if not (s[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M']) then

begin

IsRome:=false;

break;

end;

end;

(*

Функция перевода римского числа в арабское

*)

function RomeToArabic (s: string): integer;

var

b:array[1..100] of integer;

i,j:integer;

res:integer;

begin

for i:=1 to length(s) do

begin

if s[i]='I' then b[i]:=1;

if s[i]='V' then b[i]:=5;

if s[i]='X' then b[i]:=10;

if s[i]='L' then b[i]:=50;

if s[i]='C' then b[i]:=100;

if s[i]='D' then b[i]:=500;

if s[i]='M' then b[i]:=1000;

end;

res:=b[1];{массив локальная переменная и

сравнение первого элемента с нулевым искажает число,

почему-то считает, что b[0]=1 и автоматом вычитает 2}

for i:=2 to length(s) do

begin

res:=res+b[i];

if b[i-1]<b[i] then res:=res-2*b[i-1]{вот здесь}

end;

RomeToArabic:=res;

end;

{Основная программа}

var

arabic: string; {арабское число}

rome: string; {римское число}

ask: char; {режим перевода чисел}

begin

clrscr;

writeln('Программа переводит римское число в арабское или арабское в римское');

repeat

clrscr;

writeln('Выберите режим перевода:');

writeln('1 - римское число в арабское');

writeln('2 - арабское число в римское');

writeln('другое - выход');

ask:=readkey;

case ask of

'1': begin {Римское в арабское}

write('Введите римское число: ');

readln(rome);

if IsRome(rome) then

writeln('Арабское число = ',RomeToArabic(rome))

else writeln('В римской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

'2':begin {арабское в римское}

write('Введите арабское число: ');

readln(arabic);

if IsArabic(arabic) then

writeln('Римская запись = ',ArabicToRome(arabic))

else writeln('В арабской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

else exit;

end;

until not(ask in ['1','2']);

end.

сероссийская олимпиада школьников – самая известная олимпиада в стране. Ее проведение даже прописано в Законе об образовании. В ней принимает участие множество школьников, при этом часто они даже не осознают, что участвуют именно во Всероссийской олимпиаде, не понимают, по каким правилам она проходит. Мы описали ключевые моменты, которые позволят если не разобраться досконально, то хотя бы получить общее представление о том, что же такое Всероссийская олимпиада школьников и чего можно от нее ожидать.

1. По каким предметам проводится олимпиада

Она проводится по 24 предметам. При этом олимпиады проходят, в том числе, и по некоторым дисциплинам, не входящим в программу: например, по астрономии, экономике, всевозможным иностранным языкам. Так что всегда есть возможность найти себе олимпиаду по душе.

2. Как устроена олимпиада

Олимпиада  

Всероссийская олимпиада школьников

Министерство отменогут пригодиться при подготовке.

С чего начать

9. Победа в финале гарантирует поступление?

Льготы при поступлении в вузы →

В целом, да. Вузы должны принимать победителя без экзаменов, достаточно лишь получить аттестат. Но это верно только для «направления, которое соответствует профилю олимпиады». А какое направление – профильное, решает каждый конкретный вуз самостоятельно. Допустим, с математикой все олимпиада обеспечивает поступление на математические факультеты, но как учитывается ОБЖ, МХК или физкультура? ответ можно получить только в приемной комиссии интересующего вуза.  

При этом засчитывается победа именно  в заключительном этапе, предыдущие могут добавить до 10 баллов к портфолио.

10. Если без экзаменов принимают только побед

Объяснение:

с=пропустите начало! Ведь если вы не выигрывали более старшие этапы в году, то без школьного этапа вас на них не пустят! Дальше план такой: в ноябре-декабре проходит муниципальный этап, в январе-феврале – региональный, а в марте-апреле – заключительный.

5. С какого возраста можно принимать участие?

Начинать участвовать можно уже с 4-5 класса. При этом для разных этапов возрастные ограничения отличаются. На муниципальном этапе задания предназначены для 7 класса и старше, а начиная с регионального — для 9–11 классов.

6. Как восьмиклассники попадают на финал? Можно ли участвовать за старший класс?

Места проведения финала Всероссийской олимпиады в 2018 году →

Можно. Только определиться надо сразу. Например, если школьник уже начал участвовать за 8 класс, то на региональный этап его не пустят. А если он с самого начала выполнял задания 9 класса, то может и до финала дойти. Кстати, в истории олимпиады был случай, когда в заключительном этапе участвовал четвероклассник! И он выполнял задания 9 класса, начиная со школьного этапа.

7. Кто придумывает задания?

Тот же, кто определяет критерии отбора на следующий этап. Для школьного этапа задания составляет район, для муниципального – область, а для регионального и заключительного – Минобрнауки. Задания школьного этапа должны быть одинаковые для всего района, задания муниципального – единые для всей области, а задания регионального – одни и те же для всей страны.

8. С чего начать подготовку к участию?

Прежде всего, полезно посмотреть задания школьного этапа лет: их можно найти на странице нашего специального проекта. Там же есть ссылки на интернет-ресурсы и книги, которые могут пригодиться при подготовке.

С чего начать

9. Победа в финале гарантирует поступление?

Льготы при поступлении в вузы →

В целом, да. Вузы должны принимать победителя без экзаменов, достаточно лишь получить аттестат. Но это верно только для «направления, которое соответствует профилю олимпиады». А какое направление – профильное, решает каждый конкретный вуз самостоятельно. Допустим, с математикой все олимпиада обеспечивает поступление на математические факультеты, но как учитывается ОБЖ, МХК или физкультура? ответ можно получить только в приемной комиссии интересующего вуза.  

При этом засчитывается победа именно  в заключительном этапе, предыдущие могут добавить до 10 баллов к портфолио.

10. Если без экзаменов принимают только побед

Почему на телевизоре черный экран, а звук остался?

Вы столкнулись с такой проблемой в телевизоре: экран телевизора черный, но звук есть. Естественно, из-за данной неисправности программ не представляется возможным. В данной статье мы расскажем, что делать с этой проблемой. Вследствие чего пропала картинка? Давайте рассмотрим внутренние и внешние причины появления неполадки.

Чтобы понять, что же вышло из строя, первое: смотрим на технику. Если техника абсолютно новая, данная неисправность может появиться вследствие брака производителя.

Если же аппарат служит вам несколько лет, есть вероятность того, что вышли из строя элементы питания или подсветки.

Из практики следует, что сама техника чаще всего абсолютно не при чем: данная неисправность не всегда является следствием выхода из строя техники. Бесперебойное воспроизведение изображения зависит не только от внутренних элементов (плат, схем, блоков), но и от внешних (антенный кабель, распределительный щиток и др.)

Не расстраивайтесь, если при включении телевизора виден черный экран.

Есть вероятность того, что решение проблемы совсем рядом:

Антенный кабель (шнур);

Распределительный щиток;

Штекер;

Внешняя антенна, расположенная на крыше — это самые уязвимые элементы в данной проблеме.

Осмотрите эти элементы, особенно, штекер. В основном, он подключен с задней стороны в спецразъем (гнездо).

Черный экран телевизора

Сперва нужно вытащить его с разъема и вставить обратно. Есть вероятность, что из-за плохого контакта сигнал, подающийся через штекер, идет слабый. Это может быть одним из источников исчезновения изображения.

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

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

Черный экран телевизора из-за антенны

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

Почему появляется черный экран на телевизоре и работает звук

Попробуйте узнать, не имеет ли ваш телевизор функцию отключение изображения. Это присуще более новым моделям ЖК/LED-телевизоров, таких, как:

Philips (Филипс);

Toshiba (Тошиба);

Sony (Сони);

LG (ЭлДжи);

Samsung (Самсунг).

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

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

Черный экран телевизора, а звук работает

Часто встречающаяся причина неисправности новых телевизоров, из-за чего исчезает изображение при наличии звука, — это выход из строя ламп или светодиодов подсветки экрана.

Самый установить, проблема в подсветке или нет это: взять любой источник света (лампа, ручной фонарик или даже фонарик на телефоне) и при включенном телевизоре поднести источник света к экрану.

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

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

Правильное обращение с телевизором — залог его долго службы!

Часто техника выходит из строя из-за неправильной эксплуатации.

Черный экран телевизора из-за неправильной эксплуатации