|
Вопрос # 6 165/ вопрос решён / |
|
Здравствуйте!
Помогите, пожалуйста, составить блок-схему к программе.
Приложение: Переключить в обычный режим- Program proba;
- Uses crt;
- Const n=33;
- Var
- W:array[1..n] of integer;
- I, nom_max, nom_min:integer;
- Begin
- Randomize;
-
- For i:=1 to n do
- W[i]:=random(100);
- Nom_max:=1;
- Nom_min:=1;
- For i:=1 to n do
- If W[i]>W[nom_max] then nom_max:=1
- Else
- If W[i]<W[nom_min] then nom_min:=1;
- For i:=1 to n do
- Begin
- If (i=nom_max) or (i=nom_min) then TextColor(Green)
- Else TextColor(Blue);
- Write(W[i]:5);
- End;
- Writeln;
-
-
- Readln;
- End.
 |
Вопрос задала: Мамонова Елена Николаевна (статус: Посетитель)
Вопрос отправлен: 27 мая 2012, 18:13
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Ладно. Исключительно от нефиг делать (скучаю на работе).
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 28 мая 2012, 09:34
Оценка за ответ: 5
Комментарий к оценке: Большущее спасибо!!!
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 27 мая 2012, 21:00; участников в обсуждении: 2.
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 19:12 [#1]:
Я помочь не могу, т.к. не знаю, в чём затруднения. Я могу только составить блок-схему к программе. Ленка, ты, уж, определись, чем и как тебе помочь-то, ёмаё!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 20:19 [#3]:
Цитата (Мамонова Елена Николаевна):
Составьте, пожалуйста)
Что взамен?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 20:36 [#5]:
Цитата (Мамонова Елена Николаевна):
А что хотите?
Если ты из Рязани, то "ничего".
Если нет - тогда пива! 2 литра.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
28 мая 2012, 21:03: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором DNK
31 мая 2012, 16:54: Статус вопроса изменён на решённый (изменил модератор DNK)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
