Информатика | 10 - 11 классы
Переделать из программы Pascal в C#
Задание : Шифр атбаш
const s1 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZабвгдеёжзийклмнопрстуфхцчшщъыьэюя' ; s2 = 'ZYXWVUTSRQPONMLKJIHGFEDCBAяюэьыъщшчцхфутсрпонмлкйизжедгвба' ;
var i, p : integer ; s : string ;
begin Write('Введите текст : ') ; Readln(s) ; for i : = 1 to Length(s) do begin p : = Pos(s[i], s1) ; if p>0 then s[i] : = s2[p] end ; Writeln('Результат : ', s)
end.
Определите, какое число будет напечатано на экране в результате выполнения следующей программы :var a, b : integer ;begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; wr?
Определите, какое число будет напечатано на экране в результате выполнения следующей программы :
var a, b : integer ;
begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; writeln(a) ;
end.
65) (Д?
65) (Д.
Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы :
var i, k : integer ;
function f(x : integer) : integer ;
var m : integer ;
begin
if x < 10 then f : = x
else begin
m : = f(x div 10) ;
if m < x mod 10 then
f : = x mod 10
else f : = m ;
end ;
end ;
begin
k : = 0 ;
for i : = 1000 to 9999 do
if f(i mod 100) = 1 then
if f(i div 100) = f(i mod 100) then
k : = k + 1 ;
writeln(k) ;
end.
Объясните, пожалуйста.
Определите, что будет напечатано в результате работы следующей программы?
Определите, что будет напечатано в результате работы следующей программы.
Текст программы приведен на трех языках программирования.
Алгоритмический язык Бейсик Паскаль
алг
нач цел s, k s : = 0 нц для k от 5 до 12 s : = s + 7 кц вывод s
кон DIM s, k AS INTEGER
s = 0
FOR k = 5 TO 12 s = s + 7
NEXT k
PRINT s
END var s, k : integer ;
begin s : = 0 ; for k : = 5 to 12 do s : = s + 7 ; write(s) ;
end.
Помогите найти ошибку (Информатика, Паскаль)?
Помогите найти ошибку (Информатика, Паскаль).
Var s, k, a : integer ;
Begin
s : = 0 ;
k : = 0 ;
Read(a) ;
while a0 do
Begin
if a mod 8 = 0 then
Begin
s : = s + a ;
k : = k + 1 ;
end ;
Readln(a) ;
end ;
var y : real ;
begin
y : = s / k ;
Read(s) ;
if s>0 then
Writeln(y)
else
Writeln('NO')
end ;
end.
Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)var n, s : integerbeginn : = 0 ;s : = 402 ;while s>0 dobegins : = s - 10 ;n : = ?
Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)
var n, s : integer
begin
n : = 0 ;
s : = 402 ;
while s>0 do
begin
s : = s - 10 ;
n : = n + 3
end ;
write(n)
end.
А как быть с этим?
А как быть с этим?
Определите пожалуйста, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 120 :
var i, k : integer ;
function F(x : integer) : integer ;
begin if x < 1 then F : = 1 else F : = F(x - 1) + 3 * F(x - 2) ;
end ;
begin i : = 0 ; readln(K) ; while F(i) < K do i : = i + 1 ; writeln(i) ;
end.
Перевод кода паскаль в c + +2)var i, sum : integer ;n : real ;beginsum : = 0 ;for i : = 1 to 15 dobeginreadln(n) ;if n = trunc(n) then sum : = sum + 1 ;end ;writeln(sum) ;end?
Перевод кода паскаль в c + +
2)var i, sum : integer ;
n : real ;
begin
sum : = 0 ;
for i : = 1 to 15 do
begin
readln(n) ;
if n = trunc(n) then sum : = sum + 1 ;
end ;
writeln(sum) ;
end.
2
Var
a1, b2, c, d : integer ;
begin
write('Введите числа через пробел : ') ;
read(a1) ;
for d : = 2 to 10 do begin
read(b2) ;
if b2>a1 then inc(c) ;
a1 : = b2 ;
end ;
if c = 9 then writeln('Да') else writeln('Нет') ;
end.
СрочноProgram sredarifment ;Var a : array[1?
Срочно
Program sredarifment ;
Var a : array[1.
10] of real ;
i, k : integer ;
C, S, sred : real ;
Begin
For i : = 1 to 10 do begin write ('a[', i, '] = ') ; readln (a[i]) ; end ;
write('введите C : ') ; readln (C) ;
For i : = 1 to 10 do begin If a[i]>C then begin S = S + a[i] ; K = K + 1 ; end ; end ;
sred = S / k ;
Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred) ;
End.
Помогите чтобы программа запускалась.
Выходит что не верно.
Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на языке программирования ПаскальVar s, k, x : integer ;begins : = 1 ;x : = 2 ;for k : = 1 to 9 dos : = s * x?
Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на языке программирования Паскаль
Var s, k, x : integer ;
begin
s : = 1 ;
x : = 2 ;
for k : = 1 to 9 do
s : = s * x ;
writeln(s) ;
end.
Нужно составить описание к программеprogram pr1 ;const n = 5 ;var a : array[1?
Нужно составить описание к программе
program pr1 ;
const n = 5 ;
var a : array[1.
N] of integer ;
i, s1, s2 : integer ;
begin
randomize ;
s1 : = 0 ;
s2 : = 0 ;
for i : = 1 to n do begin
a[i] : = random(20) - 8 ;
writeln(a[i] : 4, ' Порядковый номер ', i) ;
end ;
writeln ;
for i : = 1 to n do begin
if i mod 20 then s1 : = s1 + sqr(a[i]) * a[i] ;
if i mod 2 = 0 then s2 : = s2 + sqr(a[i]) ;
end ;
writeln('Сумма 1 = ', s1) ;
writeln('Сумма 2 = ', s2) ;
end.
Вы находитесь на странице вопроса Переделать из программы Pascal в C#Задание : Шифр атбашconst s1 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZабвгдеёжзийклмнопрстуфхцчшщъыьэюя' ; s2 = 'ZYXWVUTSRQPONMLKJIHGFEDCBAяюэьыъщшчцхфутсрпонмлкйизжедгвба' ;var? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Цитата Из Вик.
Ипедии : "Правило шифрования 'Атбаш'состоит в заменеi - й буквы алфавита буквой с номеромn - i + 1, гдеn— число букв в алфавите".
На самом деле, n - i —смещение относительно первой буквы, которое будет иметь i - тая в алфавите буква после шифровки.
Для того, чтобы получить номер буквы, нужно прибавить к смещению порядковый номер первой буквы.
В случае с обычным алфавитом —1.
(А ещё можно делать наоборот : искать отрицательное смещение и прибавлять номер последнего элемента)
С программой все чуть - чуть посложнее (но не так, чтобы сильно).
Номер символа в ней определяется не положением в алфавите, а используемой кодировкой.
Обычно, символы идут в таблице кодировки друг за другом, но есть и исключения.
Например, буква "ё" обычно идет отдельно от остального алфавита.
Программа читает стандартный ввод (клавиатура) построчно.
Если буквы латинские, достаточно простой арифметики с кодами символов и перевод результата в символьных формат.
Для русских символов выделена переменная, содержащая алфавит в правильном порядке (хотя можно было бы извернуться и решить первым способом, но зачем?
). Если символ подходит входит в один из двух алфавитов, то шифруется.
Нет - выводится без изменений.
Программа будет работать до тех пор пока не будет введен символ с кодом 0 (Ctrl + @).
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
using System ;
using System.
Collections.
Generic ;
using System.
Linq ;
using System.
Text ;
namespace Brainly { class Program { static void Main(string[] args) { string buff, alfa = "абвгдеёжзийклмнопрстуфхцчъыьэюя", / / алфавит key = new string(alfa.
ToCharArray().
Reverse().
ToArray()) ; / / перевернутый алфавит bool isEnd = false ; while (!
IsEnd) { Console.
Write("Введите текст : ") ; buff = Console.
ReadLine() ; Console.
Write("Результат : ") ; for (int i = 0 ; i < buff.
Length ; + + i) { if (buff[i] = = ' \ 0') isEnd = true ; / / Выход?
If (buff[i] > = 'a' && buff[i] = 'A' && buff[i] = 'а' && buff[i] = 'А' && buff[i].