Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Танюшка Ник
0 / 0 / 0
Регистрация: 20.11.2012
Сообщений: 15
1

Вывести на экран монитора указанного в варианте набора символов

21.11.2012, 11:30. Просмотров 730. Ответов 4
Метки нет (Все метки)

Написать программу при помощи операторов цикла for (без
применения массивов) для распечатки на экране монитора указанного в
варианте набора символов. Начертить блок-схему к программе.

Распечатать на экране монитора таблицу символов, используя только
циклы (без использования массивов и строк)
A B C D E F
B C D E F G
C D E F G H
D E F G H I
E F G H I J
F G H I J K
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2012, 11:30
Ответы с готовыми решениями:

Вывести на экран монитора две вертикальных строки текста длиной не более десяти символов светло-зеленого цвета
Нужна помощь по Паскалю, т.к. я - :-| Вывести на экран монитора две...

Выдать на экран строку без указанного количества символов в конце строки
• Считать строку S и число N. Выдать на экран эту строку без указанного...

Посчитать сумму указанного в варианте ряда для заданного значения x и точности (количества слагаемых)
Вот: у(х)=1-х+(Х*Х)/2!-(х*х*х)/3!+(х*х*х*х)/4!-......., abs(x)<бесконечности...

Вывести на экран монитора преобразованное множество
1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на...

Вывести на экран монитора круговой сектор
"Вивести на екран монитора коловий сектор таким чином шоб вин змінював свій...

4
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
21.11.2012, 15:33 2
А переменные целого типа можно?
Вот всего с одной такой:
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
var
   i, j: char;
   jj: integer;
 
begin
   jj := 0;
   for i := 'A' to 'F' do
   begin
      for j := 'A' to 'K' do
      begin
         if (i <= j) and (i <= 'F')   then
         begin
            write(j, ' ');
            inc(jj);
         end;
         if jj = 6 then
         begin
            jj := 0;
            break;
         end;
      end;
      writeln;
   end;
   readln;
end.
1
Танюшка Ник
0 / 0 / 0
Регистрация: 20.11.2012
Сообщений: 15
21.11.2012, 21:11  [ТС] 3
наверно можно!!! не понимаю ничего здесь(((((
0
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
21.11.2012, 21:18 4
Цитата Сообщение от Танюшка Ник Посмотреть сообщение
не понимаю ничего здесь(((((
Это два обычных цикла, только здесь мы не числа перебираем а символы. В циклах всего два условия: чтобы буквы стояли должным образом, как в Вашем образце, и чтобы это все выглядело как матрица из 6 строк и столбцов (для этого как раз переменная jj нужна).
1
Танюшка Ник
0 / 0 / 0
Регистрация: 20.11.2012
Сообщений: 15
22.11.2012, 22:51  [ТС] 5
спасибо огромное!!!!!!!!1
0
22.11.2012, 22:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2012, 22:51

Из типизированного файла вывести булевские значения на экран монитора
Записать в типизированный файл несколько булевских (логических) значений,...

Вывести на экран монитора правильный шестиугольник желтого цвета
Вывести на экран монитора правильный шестиугольник желтого (Yellow) цвета,...

Вывести на экран монитора квадрат белого (White) цвета
Вывести на экран монитора квадрат белого (White) цвета со сторонами в виде...


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

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

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