Важная информация
Показано с 1 по 7 из 7

Тема: помогите решить задачи пожалуйста

  1. #1 помогите решить задачи пожалуйста 
    Новичок
    Регистрация
    21.02.2012
    Сообщений
    12
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    1.Составить программу с использованием модуля DOP.TPU
    для вывода таблицы значений факториала
    чисел от 1 до 10
    2.Составить процедуру на Паскале для вывода
    прямоугольника заданного размера и цвета в заданную
    область экрана с проверкой корректности
    параметров вызова
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Ещё актуально?
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    21.02.2012
    Сообщений
    12
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    да, даже очень актуально
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Сейчас будет
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Первая. Я не знаю, что такое мудуль DOP.TPU, поэтому сделал без него
    Код pascal:
    program aaa;
    uses crt;
    var i,j:longint;
    begin
    j:=1;
    clrscr;
    for i:=1 to 10 do begin
    j:=j*i;
    writeln('fac(',i,')=',j);
    end;
    readln;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #6  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    А вот вторая:
    Код pascal:
    procedure pryamougolnik(x,y,x1,y1,c:integer);
    begin
    if (x<1)or(x>640)or
       (x1<1)or(x1>640)or
       (y<1)or(y>480)or
       (y1<1)or(y1>480)then
        begin
        writeln('Параметры заданы неверно');
        exit;
        end;
    setcolor(c);
    line(x,y,x1,y);
    line(x1,y,x1,y1);
    line(x1,y1,x,y1);
    line(x,1y,x,y);
    end;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  7. Пользователь сказал cпасибо:

    vetal (28.04.2012)

  8. #7  
    Новичок
    Регистрация
    21.02.2012
    Сообщений
    12
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо огромное!!!!!!!!!!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 6
    Последнее сообщение: 22.05.2012, 16:15
  2. Помогите решить задачи с циклами
    от Дмитрий 1993 в разделе QBasic
    Ответов: 10
    Последнее сообщение: 19.02.2012, 22:51
  3. Помогите решить задачи по BASIC -y
    от Denis в разделе QBasic
    Ответов: 1
    Последнее сообщение: 19.01.2012, 06:35
  4. Ответов: 0
    Последнее сообщение: 21.12.2011, 17:47
  5. Помогите пожалуйста решить задачи на QBasic
    от Дмитрий 1993 в разделе QBasic
    Ответов: 9
    Последнее сообщение: 23.11.2011, 18:53
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •