Форум программистов, компьютерный форум, киберфорум
Наши страницы

Другие языки программирования

Войти
Регистрация
Восстановить пароль
 
MorioCutiro
0 / 0 / 0
Регистрация: 06.11.2017
Сообщений: 1
#1

Перевод программы из Паскаля в КуМир - Программирование

06.11.2017, 07:59. Просмотров 129. Ответов 0
Метки нет (Все метки)

перевод программы из паскаля в кумир
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt; 
const cf=['0'..'9']; 
bk=['a'..'z']; 
var s:array[1..3] of string; 
x:string; 
i:byte; 
begin 
clrscr; 
writeln('Введите в любом порядке с новой строки: '); 
writeln('- фамилию из малых латинских букв длиной до 49 символов'); 
writeln('- дату в формате ДД. ММ. ГГГГ'); 
writeln('- номер банковской карты, число из 6-14 цифр'); 
for i:=1 to 3 do 
readln(s[i]); 
if s[1][1] in cf then 
for i:=2 to 3 do 
if s[1] in bk then
begin 
x:=s[1]; 
s[1]:=s[i]; 
s[i]:=x;
end; 
if pos('.',s[2])=0 then
for i:=1 to 3 do 
if pos('.',s[i])>0 then
begin 
x:=s[2]; 
s[2]:=s[i];
s[i]:=x; 
end; 
writeln('Поля заполнены по порядку: '); 
for i:=1 to 3 do 
writeln(s); 
readln 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2017, 07:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод программы из Паскаля в КуМир (Программирование):

Перевод с Паскаля на КуМир - Программирование
var st: string; i: integer; begin readln(st); for i:=1 to length(st) do if st = 'А' then st:='Б' else if st...

Перевести программу из паскаля в кумир - Программирование
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do begin a:=random(3)+10; writeln('a = ', a); end; ...

Перевести программу из паскаля в кумир - Программирование
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array of integer; begin repeat write('Размер массива до...

[КуМир] Квадраты и кубы - Программирование
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, …

[КуМир] Двумерные массивы. Снова - Программирование
Получить массив В(3), перемножая элементы 1-й строки и 2-го столбца матрицы А(3,3). Напишите полный алгоритм, не могу решить никак....

[КуМир] Две одинаковые цифры числа - Программирование
Ввести целое число и определить, верно ли, что в его записи есть ​две одинаковые цифры, НЕ обязательно стоящие рядом.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2017, 07:59
Привет! Вот еще темы с ответами:

[КуМир] Написать программу расчета стоимости конфет - Программирование
Напечатать таблицу стоимости 100, 200, 300, ...,2000 г конфет (стоимость 1 кг конфет вводится с клавиатуры) В КУМИРЕ

[КуМир] Найти сумму всех положительных чисел - Программирование
Здравствуйте, помогите решить задачу. Последовательно вводятся N целых чисел. Найти сумму всех положительных среди них. Найти кол-во...

[КуМир] Найти все простые трехзначные числа - Программирование
Я новичок здесь, не нашел подходящей темы для программы KUMIR. Решил сюда написать (извините если что). Вообщем помогите решить задачу в...

[КуМир] Составить программу нахождения суммы элементов массива - Программирование
Здравствуйте! Мне нужно составить программу нахождения суммы элементов массива на языке КуМир. Такое же задание на других языках я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.