Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Elenkin
1 / 1 / 0
Регистрация: 20.10.2009
Сообщений: 17
#1

Циклы

22.10.2009, 01:48. Просмотров 479. Ответов 4
Метки нет (Все метки)

Задание: Написать две программы, которые выводят на экран заданный
набор символов. Одна программа должна использовать только цикл
while…do, а другая - только цикл repeat…until. Массивы и строки не
применять. Начертить блок-схемы к программам.

Надо сделать на Pascal и еще блок схемы нужны ,чтобы получилось
Pascal
1
2
3
4
5
A B C D E F G H I 
  B C D E F G H   
    C D E F G   
      D E F    
        E
пожалуйста помогите я ламер, спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2009, 01:48
Ответы с готовыми решениями:

Переведите исходные циклы в циклы других форматотв:
Переведите исходные циклы в циклы других форматотв: For i:73 to 122 do в...

Циклы с параметром (циклы ДЛЯ)
Заданные векторы X(N) и Y(N) преобразовать по правилу: большее из xi и yi...

Циклы
1).Известны оценки абитуриента на четырех экзаменах. Определить сумму набранных...

Циклы.
Доброго времени суток, уважаемые форумчане. Помогите пожалуйста с решением...

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

4
Puporev
Модератор
54407 / 41979 / 28997
Регистрация: 18.05.2008
Сообщений: 98,888
22.10.2009, 13:46 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,j:byte;
begin
clrscr;
i:=1;
while i<=5 do
 begin
  j:=1;
  while j<=9-i+1 do
   begin
    if (j>=i)and(j<=9-i+1)then write(chr(j+64):2)
    else write(' ':2);
    j:=j+1;
   end;
  writeln;
  i:=i+1;
 end;
readln
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var i,j:byte;
begin
clrscr;
i:=1;
repeat
 j:=1;
 repeat
  if (j>=i)and(j<=9-i+1)then write(chr(j+64):2)
  else write(' ':2);
  j:=j+1;
 until j>9;
 writeln;
 i:=i+1;
until i>5;
readln
end.
0
Elenkin
1 / 1 / 0
Регистрация: 20.10.2009
Сообщений: 17
22.10.2009, 16:28  [ТС] #3
спасибо, но программа выполняется не так как надо
0
Puporev
Модератор
54407 / 41979 / 28997
Регистрация: 18.05.2008
Сообщений: 98,888
22.10.2009, 16:58 #4
Elenkin, У меня обе программы выполняются как надо. Выпрямляй руки.
0
Puporev
Модератор
54407 / 41979 / 28997
Регистрация: 18.05.2008
Сообщений: 98,888
22.10.2009, 17:06 #5
У меня так получается.
0
Миниатюры
Циклы  
22.10.2009, 17:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2009, 17:06

Циклы
Найти S=факториал(2*j), где m и n заданные числа. Не просил бы...

Циклы
Доброго времени суток! Прошу помощи в решении задач: 1) Посчитать сумму...

Циклы
Не понимаю как дополнить программу. Вот условие задачи: Ввести натуральное...


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

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

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