Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Июнь 2010   →
 1
 2
 3
 4
04.06.2010
00:04:42
21:29:10
 5
 6
 7
 8
08.06.2010
00:18:54
23:04:16
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

lamed
Статус: Профессионал
Рейтинг: 2754
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2494
∙ повысить рейтинг » 		star9491
Статус: Профессионал
Рейтинг: 2280
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль)

Номер выпуска:1106
Дата выхода:12.06.2010, 00:30
Администратор рассылки:Boriss, Академик
Подписчиков / экспертов:201 / 175
Вопросов / ответов:3 / 3

Вопрос № 178938: Помогите пожал.Нужно сделать программку по теме графика в текстовом режиме. Нужно вывести слово посередине,сверху,снизу,слева и справа....

Вопрос № 178942: Помогите пожал.Нужно сделать программку по теме нетепезированые файлы. Задание: Скопировать содержимое файла f1 в файл f2.Чтобы во второй файл передавалось пять блоков по 64 байта....
Вопрос № 178951: Помогите пожалусйта) есть n элементов нужно выбрать k элементов по принципу l n> 20 k>10 l>6 ...
Вопрос № 178938:

Помогите пожал.Нужно сделать программку по теме графика в текстовом режиме.
Нужно вывести слово посередине,сверху,снизу,слева и справа.

Отправлен: 05.06.2010, 22:46
Вопрос задал: sannek2, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Шичко Игорь, Практикант :
Здравствуйте, sannek2.
Попробуйте такой код. Вместо моих слов вставьте необходимые.

program grafik;

uses graph;

var
driver, mode, errorcode: integer;
xm, ym: integer;

begin
driver:= 9;
mode:= 2;
initgraph(driver, mode, 'c:\bp\bgi'); //инициализация графического режима
errorcode:= graphresult;
if errorcode <> grok then // если графика не открылась, то выходим
begin
writeln('Error');
closegraph;
end;
xm:= getmaxx; // пределяем максимальные значения по осям x и y
ym:= getmaxy;
outtextxy(xm div 2, 10, 'vverh '); //рисуем текст в пяти положениях
outtextxy(xm-50, ym div 2, 'vpravo');
outtextxy(xm div 2, ym-10, 'vniz');
outtextxy(0, ym div 2, 'vlevo');
outtextxy(xm div 2, ym div 2, 'seredina');
readln;
closegraph; // закрываеь графический режим

end.

Удачи.

Ответ отправил: Шичко Игорь, Практикант
Ответ отправлен: 06.06.2010, 10:12
Номер ответа: 261920

Оценка ответа: 5
Комментарий к оценке:
Спасибо

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 261920 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 178942:

    Помогите пожал.Нужно сделать программку по теме нетепезированые файлы.
    Задание:
    Скопировать содержимое файла f1 в файл f2.Чтобы во второй файл передавалось пять блоков по 64 байта.

    Отправлен: 06.06.2010, 01:31
    Вопрос задал: sannek2, Посетитель
    Всего ответов: 1
    Страница вопроса »

    Отвечает Boriss, Академик :
    Здравствуйте, sannek2.
    Вот в приложении код программы в Borland Pascal. В АВС будет чуть иначе
    И еще, лучше используйте BP.EXE, а не TURBO.EXE - он лучше работает под Windows

    Приложение:

    -----
    Вывод - то место в тексте, где вы устали думать

    Ответ отправил: Boriss, Академик
    Ответ отправлен: 06.06.2010, 11:52
    Номер ответа: 261922

    Оценка ответа: 5
    Комментарий к оценке:
    Спс

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 261922 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 178951:

    Помогите пожалусйта)

    есть n элементов нужно выбрать k элементов по принципу l

    n> 20
    k>10
    l>6

    Отправлен: 06.06.2010, 14:46
    Вопрос задал: BlackCanary, Посетитель
    Всего ответов: 1
    Страница вопроса »

    Отвечает LfiN, Профессионал :
    Здравствуйте, BlackCanary.
    Программа выводит на экран все n-элементов, которые содержит массив mas. Потом проверяет принцип l, то есть выводит все элементы больше 6. Потом проверяет условие k>10, если выполнено то выдает сообщение что "Условие k выполнено!", если не выполненно то "Условие k не выполнено!"
    Код:
    program q178951;
    uses crt;
    const n=30;//Количество элементов
          k=10;//Количество элементов, которые должны удовлетворять принципу l
          l=6; //Сам принцип
    var mas: array [1..n] of integer;//Массив, в который будут забиваться элементы
        i: Integer;//Счетчик
        j: Integer;//Считает элементы, удовлетворяющие принципу l
    begin
     ClrScr;
     Randomize;
     Write('Набор элементов: ');<
 br> for i:=1 to n do
      begin
       mas[i]:=Random(10)+1;//Забиваем массив значениями от 1 до 10
       Write(mas[i],', ');
      end;
     WriteLn;
     j:=0;
     Write('Элементы, удовлетворяющие принципу l: ');
     for i:=1 to n do
      if(mas[i]>l) then //Если выполняется принцип l, то
       begin
        write(mas[i],', '); //Выводим этот элемент
        inc(j)              //Увеличиваем счетчик
       end;
     WriteLn;
     if j>k then WriteLn('Условие k выполнено!')
    
else WriteLn('Условие k не выполнено!');

     ReadKey;
    end.

    Всего доброго!!!

    Ответ отправил: LfiN, Профессионал
    Ответ отправлен: 06.06.2010, 16:17
    Номер ответа: 261933

    Оценка ответа: 5

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 261933 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.16 от 26.05.2010
    В избранное