* #
* #
* #
* #
* #
* #
* #
* #
* #
* #
* #
Запуск
Program chartype;
uses crt;
const
x='*';
var
y:char;
i:byte;
begin
writeln('Введите символ');
readln(y);
clrscr;
for i:=1 to 10 do
begin
writeln (x, ' ', y);
end;
end.
Блок-схема
Листинг программы
начало
конец
y
x=*
x, y
i=1,10,1
Запуск функций
uses crt;
var
ch,gh:char;
begin
writeln('Введите строчные буквы, для завершения нажмите Z’);
repeat
ch:=readkey;
write(Upcase(ch));
until ch='z';
end.
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть