Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
Особые предложения 2 Открыть
5,99 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:749650
 
Автор:
Оценка:
Опубликованно: 03.04.2007.
Язык: Латышский
Уровень: Университет
Литературный список: 8 единиц
Ссылки: Не использованы
Фрагмент работы

Programmas kods:

program latin;
uses crt;
var mas:array[1..100,1..100] of char;
r,k:integer;
c1,c2:integer;
izv1,izv2:integer;
rstr,kstr:string;
trg,key:char;
procedure auto;
var x,y,ran:byte;
begin
for y:=1 to r do
for x:=1 to k do
begin
ran:=random(25)+97;{samekle skaitli randoma}
trg:=chr(ran);{so samekletos skaitli parvers par latinu burtu}
mas[x,y]:=trg;{ar latinu burtiem aizpilda masivu}
gotoxy(5+2*x,5+y);
writeln(mas[x,y]);…

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация