Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2019, 20:46   #1
AskaS
Пользователь
 
Регистрация: 28.02.2018
Сообщений: 14
По умолчанию Помогите разобраться в программе Паскаль

Помогите разобраться в программе Паскаль. Что означают: 4,9(почему пустое значение?), 12,13,14,24 строки
Код:
1.	const
2.	vtext: string = 'АБВГДЖЗЙКЛМНПРСТФХЦЧШЩЪЬ' ; 
3.	vcode: string = '!»№;%:?*(.)_+@,#$^&-=\|}' ;
4.	function Code(Str, strT, strC : String; Ch : Char) : String;
5.	var
6.	Res : String;
7.	i, P : Byte;
8.	begin
9.	Res := '';
10.	for i := 1 to Length(Str) do
11.	begin
12.	P := Pos(Str[i], strT);
13.	if P = 0 then
14.	Res := Res + Ch
15.	else
16.	Res := Res + strC[P];
17.	end;
18.	Code := Res;
19.	end;
20.	var
21.	S : String;
22.	begin
23.	Write('Задайте текст: ');  Readln(S);
24.	S := Code(S, vtext, vcode, '!');
25.	Writeln('Закодированная строка: ', S);
26.	S := Code(S, vcode, vtext, 'А');
27.	Writeln('Декодированная строка: ', S);
28.	end.
AskaS вне форума Ответить с цитированием
Старый 21.01.2019, 22:09   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Цитата:
Сообщение от AskaS Посмотреть сообщение
4
объявление функции

Цитата:
Сообщение от AskaS Посмотреть сообщение
9(почему пустое значение?)
потому что если ничего нет, то и закодировано - ничего

Цитата:
Сообщение от AskaS Посмотреть сообщение
12
http://www.delphibasics.ru/Pos.php

Цитата:
Сообщение от AskaS Посмотреть сообщение
13
вы не знаете if? серьезно? может сменить специальность пока не поздно?

Цитата:
Сообщение от AskaS Посмотреть сообщение
14
https://ru.wikipedia.org/wiki/%D0%9A...86%D0%B8%D1%8F

Цитата:
Сообщение от AskaS Посмотреть сообщение
24
вызов функции

Вы совсем не открывали книги и на лекции боолт положили?
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите разобраться и доделать цикл в программе. Задача на числа Nil09511 Помощь студентам 1 19.03.2015 20:22
помогите пожалуйста разобраться в программе vaseel1ch Паскаль, Turbo Pascal, PascalABC.NET 1 19.12.2013 11:44
Помогите разобраться в программе... Tee Jay Помощь студентам 0 25.06.2009 19:20
помогите разобраться в программе iwaniwan Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 15.04.2009 19:38
Помогите разобраться в программе Gekada Общие вопросы C/C++ 1 09.12.2008 19:23