Turbo Pascal! нужна срочно помощь! - Форум
Среда, 07.12.2016, 11:38
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Turbo Pascal! нужна срочно помощь! (([20.10.2011] Процедуры и функции))
Turbo Pascal! нужна срочно помощь!
Bella_YsagiДата: Вторник, 18.10.2011, 12:09 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Вновь взываю о помощи!!
две из трех задач я сама написала, а вот третью что-то никак не могу((
ПОМОГИТЕ!

Написать программу - редактор псевдографики, способный по желанию пользователя рисовать строку выбранного символа выбранной длинны, переводить курсор на новую строку и завершать выполнение программы.

p.s. данную прогу надо написать с использованием ПРОЦЕДУР!
 
KOT_B_MEIIIKEДата: Вторник, 18.10.2011, 21:13 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
рисовать от начала строки?
 
Bella_YsagiДата: Среда, 19.10.2011, 06:30 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
KOT_B_MEIIIKE,
как я поняла, ДА!
 
KOT_B_MEIIIKEДата: Воскресенье, 23.10.2011, 07:43 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code

program psevdo;
procedure ris;
var c:char;n:integer;
begin
write('Vvedite simvol:');read(c);
write('Vvedite kol-vo:');read(n);
for i:=1 to n do
      write(c);
writeln;
end;
var i,n:integer;c:char;
begin
ris;
end.
так норм?
 
Bella_YsagiДата: Воскресенье, 23.10.2011, 08:11 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
надо в работе эту прогу посмотреть, но надеюсь пойдет)
спасибо)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Turbo Pascal! нужна срочно помощь! (([20.10.2011] Процедуры и функции))
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016