В данной работе представлено 28 фраз, которые закодированы с шифра Цезаря нужно указать на сколько сделан сдвиг. Ниже указаны исходные фразы. Задания: 1. ЗГ, ЪИОСЕИН ФПИУХИР, РС АХС ДЮОС ДЮ ИЬИ ТСОДИЗЮ. ТОСШС ХС, ЪХС СР ЛРСЖЗГ ЕРИКГТРС ФПИУХИР, ЕСХ Е ЪИП ЧСНЦФ! 2. СМОТЗИД М СМЫЙЗТ СЙ УФТХМЦЙ! СМОТЗИД М СМЫЙЗТ, М Ж ТХТЕЙССТХЦМ Ч ЦЙЩ, ОЦТ ХМПАСЙЙ ЖДХ. ХДРМ УФЙИПТКДЦ М ХДРМ ЖХЙ ИДИЧЦ! 3. ЗМХУЦРАК ТНПУИЙЕ ТНЬКИУ ТК ФУТНСЕГЧ ЦЕСН, Е ЙРД ЙКЧКО УЬКТБ ШЧУСНЧКРБТУ ЖКМ ПУТЫЕ НС ЗЦК УЖЯДЦТДЧБ Н ХЕЦЧУРПУЗАЗЕЧБ. 4. УЛ ЮЖСД, УОРФЙФ УЛ ШЦФЙЖД, ХФЭОУЕД ХЦОТЩЧ. О ЛЯЛ ЧЭОШЖД КФСЙФТ ХЦЛКЩХЦЛКОШВ, ЭШФ РФШ - КЦЛИУЛЛ О УЛХЦОРФЧУФИЛУУФЛ МОИФШУФЛ. 5. В РИ ШЛУЦУЖ, В РИЕУСТГХСОСЖ, В ТФЛШЛГХУ. В ЛКЦЪГБ ЗЦЫЛ ФЕСЛШ ТГЩЛИРХСЕ. Л ПРИ ТСЪИПЦ-ХС ЕФИЖЗГ ТСТГЗГБХФВ СЪИРЯ ЖОЦТЮИ ЗЦЫЛ. 6. УЙЬЙЩТИТЖ СДИТ ПВЕМЦА. УЙЬЙЩТИЯ ХТХЦДЖПГВЦ ЕТПАЬЧВ ЫДХЦА ЫЙПТЖЙЫЙХЦЖД. РДПТ ЦТЗТ — ПЧЫЬЧВ ЙЗТ ЫДХЦА. УЙЬЙЩТИЯ ХТЛИДПМ РМФ. 7. ТКУЖЪУЙНСЕ ЖУРБЭЕД ЦСКРУЦЧБ, ЬЧУЖА ФХУЧНЗУЦЧУДЧБ ЗХЕИЕС, ТУ ИУХЕМЙУ ЖУРБЭЕД, ЬЧУЖА ФУОЧН ТЕФКХКПУХ ЙХШМБДС. 8. ФЗЖ УЛРФШФЦФЛ ИЦЛТЕ ЫЦЖУОСО УЛХФКИОМУФЧШВ О ТФСЭЖУОЛ: ФУ — СДЗЩЕЧВ ЛЛ РЦЖЧФШФП, ФУЖ — ЩКОИСЕЕЧВ ЛЙФ ЗЛНФЗЦЖНОД. 9. АХС СЪИРЯ ТИЪГОЯРС, НСЖЗГ КГДЮЕГБХ ЗУЦКИМ. РИ Ц ЕФВНСЖС ДЮО ЗУЦЖ. Л В ДСБФЯ ФХГХЯ ХГНЛП, НГН ЕКУСФОЮИ, НСХСУЮП РЛЪХС РИ ЛРХИУИФРС, НУСПИ ЩЛЧУ. 10. ЙХЦА ЦДОТЙ ЦЖЙФИТЙ УФДЖМПТ. ЖХЦДП УТЧЦФЧ, ЧРЯПХГ, УФМЖЙП ХЙЕГ Ж УТФГИТО - М ХФДЛЧ КЙ УФМЖЙИМ Ж УТФГИТО ХЖТВ УПДСЙЦЧ. 11. РГЙН ТНПУИЙЕ ТК ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ. УТН ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ ФУ НЪ СТКТНГ. 12. ЭШФ ЧСЩЭОСФЧВ ФКУЖМКБ, ТФМЛШ УОРФЙКЖ ЗФСВЮЛ УЛ ЧСЩЭОШЧЕ. УФ ШФ, ЭШФ ЧСЩЭОСФЧВ КИЖ ЦЖНЖ, УЛХЦЛТЛУУФ ЧСЩЭОШЧЕ О И ШЦЛШОП.
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.