Изучение информатики в школе, подготовка к ЕГЭ и олимпиадам по информатике, материалы.

DECLARE SUB MakeBmp (NameBmp$) DECLARE SUB Prepare ' Процедуры печати DECLARE SUB DrawChar (x%, y%, Ch%, Poz%, Mshtb!) DECLARE SUB DrawClock (xDr%, yDr%, Tm$, Mashtab!) ' Массивы CONST DataDL = 228 DIM SHARED Sizes%(1 TO 7), Sost%(9, 1 TO 7), i%, k% DIM SHARED X1%(1 TO 7, 1 TO 6), X2%(1 TO 7, 1 TO 6) DIM SHARED Y1%(1 TO 7, 1 TO 6), Y2%(1 TO 7, 1 TO 6) DIM SHARED PZx%(1 TO 7), PZy%(1 TO 7) ' Paint zone - зона закраски SCREEN 12 ' 640x480x16цв. Prepare ' Читаем размерности FOR i% = 1 TO 7 READ Sizes%(i%) NEXT ' Читаем координаты FOR i% = 1 TO 7 zx% = 0: zy% = 0 FOR k% = 1 TO Sizes%(i%) READ X1%(i%, k%), Y1%(i%, k%), X2%(i%, k%), Y2%(i%, k%) zx% = zx% + X1%(i%, k%) + X2%(i%, k%) zy% = zy% + Y1%(i%, k%) + Y2%(i%, k%) NEXT PZx%(i%) = zx% / (Sizes%(i%). 2): PZy%(i%) = zy% / (Sizes%(i%). 2) NEXT ' Читаем состояния i% = 0 DO: READ k% IF k% = -1 THEN i% = i% + 1 ELSE IF k% -2 THEN Sost%(i%, k%) = 1 END IF LOOP UNTIL k% = -2 DO: Kb$ = INKEY$ G! = TIMER: WHILE G!

1. Раскрашивание рисунка Раскрашивание рисунков производится при помощи оператора раinт (x, y), с1, с2, где С1 — цвет закраски; С2 — цвет границы. Этот оператор заполняет цветом С1 участок экрана, ограниченный замкнутой линией. С2 — цвет, которым нарисована эта линия (цвет границы), а (X,.
2. Учим qbasic вместе Урок 6 игра. Сообщество программистов на qbasic. Алгоритмы, решение задач.

SCREEN 12 Kc = 15 'количество цветов для фрактала a = 640: b = 480 'размер экрана в пикселах по x и y 'Нужно задавать (менять) значения p,q 'для получения различных рисунков 'p =.1: q = -1.92 'p =.5: q =.1 'p =.5: q =.9 'p =.5: q =.9 p =.5: q = 1 100 Xmin = -1.75: Ymin = -1.25 ' миним. Фрактала Xmax = 1.75: Ymax = 1.25 ' максим.коорд. Фрактала M = 100 'максимальное расстояние для поиска атрактора dx = (Xmax - Xmin) / (a - 1) 'размер пиксела по оси x dy = (Ymax - Ymin) / (b - 1) 'размер пиксела по оси y FOR Nx = 1 TO a - 1 'цикл сканирования всех пикселов для FOR Ny = 1 TO b - 1 'определения их цвета xk = Xmin + Nx. dx yk = Ymin + Ny. dy k = 0 200 'формулы определения координат атрактора xk1 = xk.

xk - yk. yk + p yk1 = 2. xk. yk + q k = k + 1 'число итер. Для данного начального пиксела c = k 'цвет пиксела, соответствующий данному числу 300 r = xk1. xk1 + yk1. yk1 'расст.от нач.

До кон.точки xk = xk1: yk = yk1 IF r M THEN c = k: GOTO 400 'условие сходимости IF k = Kc THEN c = 0: GOTO 400 'повторение палитры GOTO 200 400 PSET (Nx, Ny), c NEXT Ny NEXT Nx Ещё один фрактал - папоротник. DECLARE SUB Mouse (ax%, bx%, cx%, dx%) DECLARE SUB MouseActive (a%) DECLARE SUB MouseReset DECLARE SUB MouseShowCursor DECLARE SUB MouseHideCursor DECLARE SUB MouseBorders (x1%, y1%, x2%, y2%) DECLARE SUB MouseGetStat (b%, x%, y%) DECLARE SUB MouseSetXY (x%, y%) DECLARE SUB MouseSetMickey (x%, y%) TYPE RegType ax AS INTEGER: bx AS INTEGER: cx AS INTEGER: dx AS INTEGER bp AS INTEGER: si AS INTEGER: di AS INTEGER: f AS INTEGER END TYPE DIM SHARED regs AS RegType MouseActive a%: IF a% = 0 THEN PRINT 'Need a mouse to run!' ' ' This subroutine initializes COM port PORT (1, 2, 3, or 4) for ' communication at transmission rate BAUD (1200 or less), data bits DBITS ' (5 - 8), parity PAR$ = 'E' (even), 'O' (odd), or 'N' (none), and stop ' bits SBITS (1 or 2). All parameters but PAR$ are of INTEGER type.

(Do ' not use COMREAD$ or COMPRINT with a PORT parameter before using COMOPEN ' to initialize that port.) ' ' These routines require the ASM code in QBUTIL.INC. ' SUB COMOPEN(PORT AS INTEGER,BAUD AS INTEGER,DBITS AS INTEGER,PAR$,SBITS AS INTEGER) DIM OS AS INTEGER,S AS STRING.1 ' ' Bios thinks port numbers are zero-based. Make that conversion and ' constrain port number to valid values. ' PT=PORT-1: IF PT3 THEN PT=3 ' ' Define port in machine code routine. ' DEF SEG=VARSEG(MCODE(1)) OS=VARPTR(MCODE(1)) POKE OS+10,PT: POKE OS+11,0 ' ' Stop bits are also zero-based at bios level.

Constrain to valid range ' and convert to string representing binary number. ' SL=SBITS-1: IF SL1 THEN SL=1 S=LTRIM$(RTRIM$(STR$(SL))) ' ' Constrain baud rate to valid value. (Default is 600 baud.) ' BD=BAUD IF BD110 AND BD150 AND BD300 AND BD1200 THEN BD=600 ' ' Convert initialization parameters to binary string. ' INTSTR$=' IF BD=150 THEN INTSTR$='001' IF BD=300 THEN INTSTR$='010' IF BD=600 THEN INTSTR$='011' IF BD=1200 THEN INTSTR$='100' P$=MID$(LTRIM$(RTRIM$(UCASE$(PAR$))),1,1) IF P$='N' THEN INTSTR$=INTSTR$+'10' IF P$='E' THEN INTSTR$=INTSTR$+'11' IF P$='O' THEN INTSTR$=INTSTR$+'01' INTSTR$=INTSTR$+S IF DBITS7 THEN INTSTR$=INTSTR$+'11' ' ' Convert binary initialization string to decimal value. ' INIT=0 FOR I=1 TO 8 INIT=INIT+2^(8-I).VAL(MID$(INTSTR$,I,1)) NEXT I ' ' Finish machine code set up and call it. ' POKE OS+1,INIT: POKE OS+2,0: POKE OS+16,&H14 CALL ABSOLUTE(OS) DEF SEG END SUB ' ' This function returns directly the character STRING read from COM port ' PORT (1, 2, 3, or 4). N is the number of characters in the string to ' input from the port and return to the calling routine and TERMCHR is the ' ascii code for a termination character.

This latter parameter is not ' used if N is positive. If N is zero or negative, rather than input a ' specific number of N characters, COMREAD$ simply returns a string ' containing all characters input from the COM port up until a character ' with ascii code TERMCHR is input. (TERMCHR is not included in the ' returned string. All parameters are of INTEGER type.) ' FUNCTION COMREAD$(PORT AS INTEGER,N AS INTEGER,TERMCHR AS INTEGER) DIM OS AS INTEGER,AX AS INTEGER,BX AS INTEGER,CX AS INTEGER,DX AS INTEGER ' ' Define port, bios function number, and interrupt in machine code ' routine.

' PT=PORT-1: IF PT3 THEN PT=3 DEF SEG=VARSEG(MCODE(1)) OS=VARPTR(MCODE(1)) POKE OS+10,PT: POKE OS+11,0: POKE OS+16,&H14 POKE OS+2,2 ' ' Input data from COM port. ' STRNG$=' IF N0 THEN ' ' Number of characters to input is predefined. ' FOR I=1 TO N CALL ABSOLUTE(AX,BX,CX,DX,OS) STRNG$=STRNG$+CHR$(AX AND &HFF) NEXT I ELSE ' ' Number of characters to input is determined by input of TERMCHR.

' C=-1 WHILE CTERMCHR CALL ABSOLUTE(AX,BX,CX,DX,OS) ' ' Character read is in subregister AL. ' C=AX AND &HFF IF CTERMCHR THEN STRNG$=STRNG$+CHR$© WEND END IF DEF SEG COMREAD$=STRNG$ END FUNCTION ' ' This subroutine sends character STRING STRNG$ out COM port PORT (1, 2, ' 3, or 4-an INTEGER variable). If STRNG$ is terminated with a ';', ' carriage return and line feed characters are not sent out the port after ' STRNG$; otherwise, they are. ' SUB COMPRINT(PORT AS INTEGER,STRNG$) DIM OS AS INTEGER ' ' Define port, bios function number, and interrupt in machine code ' routine.

' PT=PORT-1: IF PT3 THEN PT=3 DEF SEG=VARSEG(MCODE(1)) OS=VARPTR(MCODE(1)) POKE OS+10,PT: POKE OS+11,0: POKE OS+2,1: POKE OS+16,&H14 ' ' Send character string out COM port one character at a time. Process ' last character separately in case it is ';'. ' L=LEN(STRNG$)-1 IF L0 THEN FOR I=1 TO L C=ASC(MID$(STRNG$,I,1)) POKE OS+1,C CALL ABSOLUTE(OS) NEXT I END IF RT=ASC(RIGHT$(STRNG$,1)) IF RT59 THEN POKE OS+1,RT CALL ABSOLUTE(OS) POKE OS+1,13 CALL ABSOLUTE(OS) POKE OS+1,10 CALL ABSOLUTE(OS) END IF DEF SEG END SUB Qbutil.inc (дополнительный файл). ' ' This is an include file to be used with the COMPORT.BAS, PALREAD.BAS, ' and READSCRN.BAS routines. (Put it at the top of your MAIN routine.) ' DECLARE FUNCTION COMREAD$(PORT AS INTEGER,N AS INTEGER,TERMCHR AS INTEGER) DECLARE FUNCTION READSCRN$ ' ' Set up machine code. Various bytes are changed by routines in ' COMPORT.BAS, PALREAD.BAS, or READSCRN.BAS.

Мокрушина А.Е. СБОРНИК ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ НА ЯЗЫКЕ QBASIC Нижний Новгород I. ОБЩИЕ СВЕДЕНИЯ О ЯП QBASIC. Какие из перечисленных сочетаний могут быть идентификаторами языка: а) x; x 1; x1; x’; б) x1x2; ab; abcd; ab+cd; в) sin; sin(x); sinx; г) объем; delta; volume; д) a1%; abc$; 2d$; dx1a. Среди приведенных ниже имен величин выпишите те, которые могут быть идентификаторами а) символьных переменных; б) целочисленных переменных; в) вещественных переменных; a1; a1%; a$; abc; pcx; ddd1%; b$; x; y; xyz$; xy%; word$; word%; word. А) 15е+3; г) 1е+5 ж) 1.7е+2 к) 5.9е+3 б) 1.5е+2 д) -3е+4 з) -5.3е+2 л) 12.8е+4 в) 1.5е-2 е) -5е-2 и) 100е-2 м).4е+4. Переведите числа из экспоненциальной формы записи в форму с фиксированной точкой: 4.

Переведите числа в форму с плавающей точкой а) со степенью 2; б) со степенью -2: 3; -0,005; 4,5; 72342; 35000; -4700; -0,00034. Сравните числа: а) 3.5 и 0.035е+2 б) 7.4 и 0.134е+3 в) 1.7е+3 и 2000 г) 3.7е+2 и 371 д) 3е-5 и 0.0005 е) 35е-3 и 0.035. Какие из следующих последовательностей символов являются выражениями, записанными по правилам ЯП QBASIC: а) 1; б) a; в)ab; г)1+  y ; д)2xy; e) -2.xy; ж) xy2; з) x 2 +y 2; и) -abs(x)+sin(y); k) abs(x)+cos(abs(y-1,7)); л)x+y.z; м)1/2+beta? Переведите выражения в линейную форму: а); б); в); г); д); е); ж); з); и) mg cos ; к); л); м) н). Переведите из линейной формы записи в обычную: а) a/b.c; б) a/b^c; в) a/b^c^d; г) a+b/c; д) (a+b)/c.

Переведите из линейной формы записи в обычную: а) 1/sqr(1+x^2); б) sqr(x^2+y^2); в) x^(1/3); г) 1/x^(1/3); д) (a+b)/(c+d); е) a+b/c+d; ж)a/sin(a). Переведите из линейной формы записи в обычную: а) sqr(tg(a+b))/ sqr(tg(a-b)); б)1/2.a.b.sin(c); в) 4.R.sin(  /2).sin(  ).sin(  ) г) sgr(a.x^2+b.x+c).  ОПЕРАТОР ПРИСВАИВАНИЯ. Какие из следующих последовательностей символов могут быть операторами присваивания: а) a:=b б) a=c+1 в) a/b+a/c г) a+b=c д) d=1 е) x=a+c ж) y=x з) a$=c$. Найдите ошибки в программах: а) а$=11 б) а=“дом” в$=“простое число” в$=“№5” с$=a$+в$ с=а+в$ в) в=13 г) х%=1.3 а%=100/в у%=х%.10 д) а$=“число” е) в%=“100” в=15 а=“-10” с=а$.в с$=в$+а 13.

Значение величины равно 3. Чему оно будет равно после выполнения команд: а) х=5; б) х=х+5; в) у=х. Значение х равно 3. Чему было равно х до выполнения команд: а) х=х+5; б) х=-х; в) у=х; г) у=1: х=х+у; д) у=х: х=у. Какие значения последовательно получает переменная х после выполнения команд: а) х=1 б) х=5 в) х=10 у=5 х=х+4 у=х/2 х=х+у х=х/3 z=у.5 х=х.х+1 х=х+у+ z. После выполнения оператора приcваивания х=х+у значение величины х стало равно 3, а значение у =5. Чему были равны значения величин х и у до выполнения оператора?

Значение величины х равно а, значение у равно b. После выполнения каких их указанных ниже последовательностей команд значения величин х и у поменяются, т.е. Х станет равно b, а значение у станет равно а: а) х=у б) t=x в) x=y+x г) t=x y=x x=y y=x-y y=t y=t x=x-y x=y.

Задать в виде оператора присваивания следующие действия: а) Переменной z присвоить значение, равное полусумме значений переменных х. Б) Удвоить значение переменной. В) Значение переменной х увеличить на 0,1. Г) изменить знак значения переменной t. Задать с помощью операторов присваивания следующие действия: а) переменной а присвоить значение разности, а переменной b — полусуммы значений переменных х. Б)переменной а присвоить значение удвоенного произведения значений переменных х и у, а переменной b — значение 0. Написать оператор присваивания, в результате выполнения которого переменная Y получает значение, равное значению переменной Х, возведенному в пятую степень.

Напишите операторы присваивания после выполнения которых значения переменных А и В поменяются. Составить программу обмена значениями трех переменных величин a, b и c по следующей схеме: а) переменной b присвоить значение c, переменной а — значение b, переменной c — значение a. Б) переменной b присвоить значение a, переменной c — значение b, а переменной а —.  ОПЕРАТОРЫ PRINT И INPUT. Какие из перечисленных последовательностей символов являются операторами вывода: а) PRINT X, Y б)PRINT (X,Y) в)PRINT “A=“;A г)PRINT A, “symbols” д) PRINT a=b е) input a ж)PRINT a;b;c з)PRINT “ “;k;” “ 24. Напишите программу подсчета пути S, если время t =1.2 с, а скорость v =391 м/с. Отредактируйте программу т.о., чтобы подсчитать путь при t =1.7 ч и скорости v =62 км/ч.

Напишите программу, подсчитывающую объем прямоугольного параллелепипеда с измерениями а=1.3, b=2.7, с=3.4 и выводящую результат в виде: 26. Каменный уголь погрузили в вагон высотой 0.76м, длиной 6.43м, шириной 2.74м. Сколько тонн угля погрузили, если удельный вес угля 1.3т/куб.м? Подсчитать площадь круга радиусом R=1.47см.

Оформить в виде: 28. Вывести на экран свою визитную карточку. Например:. Смирнов Алексей Олегович. менеджер по кадрам.

фирма “НОВОЕ ВРЕМЯ”. тел. 673-54-21.

29. Какие числа будут выведены на экран в результате выполнения последовательности операторов: INPUT x x=x-1.2 x=sqr(x-1).x+1 PRINT x, 2-3.x если в качестве исходного данного использовалось число: а) 1.2; б) 2.2; в) 5.2; г) 10.2? Какие числа будут выведены на экран в результате выполнения последовательности операторов: INPUT x, y x=x+y y=x-y x=x-y PRINT x, y если в качестве исходного данного использовалось число: а) 3.5 и 2.4; б) 6.7 и -10.1? Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. По двум катетам найти гипотенузу и площадь прямоугольного треугольника. Даны два числа х.

Вычислить их сумму, разность и произведение. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. Вычислить значение выражения y=, используя для исключения повторяющихся вычислений промежуточную величину. Известны количество жителей в государстве и площадь его территории. Определить плотность населения в этом государстве.

Дано расстояние в сантиметрах. Найти число полных метров в нем. Дана масса в килограммах, Найти число полных тонн в ней. Дано расстояние в метрах, Найти число полных километров в нем.

Дано четырехзначное число. Найти а) сумму его цифр; б) произведение его цифр. Выполните упражнения № 24-27, вводя данные с клавиатуры.

В киоске продают различные журналы стоимостью 12 рублей. Напишите программу, анализирующую покупку и выдающую на экран результат в виде: IV СИМВОЛЬНЫЕ ВЕЛИЧИНЫ И ФУНКЦИИ. Путем копирования и склейки выделить: а) из слова “ ПУТЕВОДИТЕЛЬ ” слова “ ПУТЬ”, “ВОДИТЕЛЬ”, “ДЕЛО”, “ПУДЕЛЬ”, “ДЕТИ ”.

Б) из слова “ ФОРМАТИРОВАНИЕ ” слова “ФОРМА”, “ТИР”, “ВАТА”, “ТЕМА”, “ФОРМИРОВАНИЕ”. В) из слова “ПОСЛЕДОВАТЕЛЬНОСТЬ” как можно больше слов. Определите, что будет изображено на экране после выполнения программы: а) a$=“РАДИУС” b$=“ВЕКТОР” c$=LEFT$(a$, 4)+MID$(b$, 5,1) PRINT c$ б) x$=“НАСТРОЕНИЕ “ y$= MID$(x$, 5,2)+ MID$(x$, 3,2) PRINT y$ в) text$ =“БОЙ ЧАСОВ” PRINT MID$( text$, 6,1); PRINT MID$( text$, 4,1); PRINT LEFT$( text$, 1); PRINT MID$( text$, 4,1); PRINT RIGHT$( text$,1) г) DATA A, B, C, 1, 2, 3 READ x$, y$, z$, x1, y1, z1 PRINT x$+y$+z$ PRINT x1+ y1+z1 д) г) DATA 1, 2, 3 READ a$, b$, c$ PRINT a$+ b$+ c$ 45. Какой оператор пропущен, если на экране после выполнения программы получилось слово а) МЕЧТА: б) ЛЕТО: REM фрагмент а) REM фрагмент б) a$=“ПОЧТА” x$=“ВОССТАНОВЛЕНИЕ” b$=“МЕРА” а1$=mid$(x$, 10, 2). PRINT c$ a3$= mid$(x$, 8, 1) PRINT a1$+a2$+a3$ 46. Исследовать введенное с клавиатуры слово, т.е. Определить количество букв в слове, с какой буквы оно начинается и на какую заканчивается.

Построить прямоугольник с вершинами в точках (80,80), (170,150), (80,150), (170, 80), цветом 10. Построить закрашенный прямоугольник с вершинами диагонали (60,80) и (150,250) цветом 4. Построить и закрасить квадрат со стороной 60 пикселей, центр которого совмещен с центром экрана. Цвет — любой.

Построить и закрасить прямоугольник со сторонами 100 и 50 пикселей, правый верхний угол которого совмещен с правым верхним углом экрана. Построить круг радиусом 100 пикселей, центр совмещен с центром экрана, цвет 5. Построить треугольник с вершинами в точках (100,100), (150,100), (80,170).

Построить шестиугольник с вершинами в точках (120,100), (140,120), (140,140), (120,160), (100,140), (100,120). Построить пятиугольник с вершинами в точках (100,100), (100,120), (120,140), (150,100), (120,60). Построить кольцо толщиной 20 пикселей и внешним радиусом 80 пикселей. Построить кольцо толщиной 50 пикселей и радиусом внутренней окружности 20 пикселей.

Построить и закрасить круг радиусом 50 пикселей, центр совмещен с центром экрана. Построить три вложенных квадрата разного цвета со сторонами 100, 50 и 25 пикселей. Верхняя вершина общая, имеет координату (50,50). Построить три вложенных квадрата со стороной 100, 50 и 25 пикселей. Центр квадратов — общий, имеет координату, совпадающую с центром экрана. Построить три вложенных окружности с радиусами 50, 80 и 110 с одной общей точкой: а) б) 61.

Напишите программу рисования картинки: а) б) в) г) д) е) ж) з) и) к) л) м) н) о) п) р) с) VI СЧЕТНЫЙ ЦИКЛ FOR.NEXT. Что будет изображено на экране после выполнения программы: a) FOR I=1 TO 10 STEP 1 PRINT I; NEXT I б) FOR I=1 TO 100 STEP 1 PRINT “УРА!” NEXT I в) FOR I=10 TO 0 STEP 1 PRINT I+I; NEXT I 63. Нарисовать 15 прямоугольников с координатами диагонали (20,20) и (300,180), окрашенных последовательно в цвета от 1 до 15. Нарисовать 4 вложенных окружности с центром (50,100), радиусы которых 10, 20, 30 и 40.

Разлиновать экран в режиме SCREEN 7 горизонтальными полосками, расстояние между которыми 10 пикселей. Разлиновать экран в режиме SCREEN 7 вертикальными полосками, расстояние между которыми 10 пикселей. Разлиновать экран в клетку, используя программы задач №65 и №66. Нарисовать лесенку: Примечание: длина ступеньки — 30 пикселей, высота — 15 пикселей. Нарисовать пять касающихся окружностей одного радиуса: Примечание: Центр первой окружности (50,50), радиус каждой окружности 30. Подсчитать сумму первых N натуральных чисел.

 ввести с клавиатуры. Составьте программу, выводящую на экран таблицу перевода милей в километры (1 миля=1.603 км) от 1 мили до 10. Подсчитать N! (N!=1.2.3.N), N ввести с клавиатуры. Дано натуральное N. Вычислить: а) 1.+; б). Написать программу вычисления суммы всех двузначных чисел.

Написать программу вычисления суммы всех двузначных а) четных; б) нечетных чисел. Написать программу вычисления суммы для n=1,3,5.15. Составьте программу, выводящую таблицу умножения на N. N вводится с клавиатуры. Напишите программу обращения слова. Например: АБРАКАДАБРА — АРБАДАКАРБА, МАША — АШАМ. Изобразить на экране отрезок, пересекающий с постоянной скоростью экран слева направо параллельно горизонтальной оси.

Длина отрезка 15 пикселей. Получить изображение прямоугольника, движущегося: а) слева направо; б) сверху вниз; в) справа налево; г) снизу вверх. Получить изображение: а) надувающегося шарика; б) сдувающегося шарика; в) надувающегося и сдувающегося шарика максимальный радиус задает пользователь с клавиатуры. Напишите программу с использованием динамического элемента (горящая свеча, снаряд, вылетающий из пушки, движущийся утюг.). Вывести на экран 100 случайным образом расположенных точек. Построить 40 отрезков, выходящих из центра экрана и имеющих различные длины и направления. Написать программу, в результате выполнения которой слово “QBASIC” пробежит по экрану слева направо и справа налево.

Написать программу, имитирующую бегущую строку произвольного содержания. Построить на экране множество случайных треугольников. Построить N случайных треугольников с одной общей вершиной в центре экрана. N — ввести с клавиатуры. В белом прямоугольнике с координатами диагонали (50,50) и (150, 100) выводить случайные точки до нажатия клавиши. В голубом прямоугольнике с координатами диагонали (50,50) и (150, 100) выводить случайные отрезки до нажатия клавиши.

Из левого верхнего угла экрана рисовать случайные отрезки до нажатия клавиши. Написать программу, рисующую случайные круги до нажатия клавиши.

Написать программу, имитирующую движение отрезка по горизонтали слева направо до нажатия клавиши и выводящую координаты точки, в которой он закончил движение. VII ВЕТВЛЕНИЕ.

Определите, какие из перечисленных ниже операторов могут быть операторами условного перехода: а) IF A=B THEN A=B; б) IF A=B THEN A=B ELSE B=A; в) IF A=B TO C=A+B; г) IF AB THEN A=ABS(B) д) IF A0 THEN Y=1/A ИНАЧЕ ЕND. Составить программу вычисления значения функции Y для х, вводимого с клавиатуры: а) Y=; б) Y=; в) Y= г) Y=. Написать программу удвоения меньшего из двух чисел.

Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны.

Отрицательные числа оставить без изменения. Найти наименьшее из трех чисел. Найти значение функции у=, в точке x. Значение х ввести с клавиатуры. Даны два числа. Заменить второе число нулем, если оно не меньше первого, и оставить его прежним, если это не так.

Первое число оставить без изменений. Даны два числа.

Вывести на печать первое число, если оно больше второго, и оба числа, если это не так. Вычислить У, если: а) x 2, при -2  x  2 У= 4, в противном случае. Б) х 2 +4х+5, при х  2 У=, при х 0 в противном случае. В) 0 при х  0 У= х при 0 х 4 в противном случае.

Дано действительное x. Для функций y=f(x), графики которых представлены на рисунках, вычислить f(x). А) у б) у у=4 у=-х у=х 2 y=x 2 у =1/x 2 у=-х 2 -1 2 104. Запишите условия, которым удовлетворяют точки, принадлежащие фрагментам плоскостей, изображенных на рисунках: а) у б) у х x у у в) г) х х д) у у е) х x ж) у у з) 2 у=х х -2 x и) к) у у 2 -2 -1 1 2 x -2 2 x 105. Определить, принадлежит ли заданная точка фигуре.

Решить задачу для точек с координатами (-0,5; 0,8) и (0,5; 0,4). У 1 -1 0 1 х 106. Определить, принадлежит ли заданная точка фигуре. Решить задачу для точек с координатами (-0,2; 0,3), (-2,5; 0,4) и (1,5;-0,2). У 1 -1 0 1 х -1 107. Заданы площади круга R и квадрата S. Определить, поместится ли круг в квадрате.

Задачу решить при а) R=3,2; S=3,5; b) R=3,2; S=4; c) R=6; S=9. По условному оператору, устанавливающему зависимость Y от X, построить график: a) IF X=2 THEN Y=X-4 ELSEIF X-1 THEN Y=-X ELSE Y=-1/X END IF; d) IF X10 THEN Y=X ELSEIF X0 THEN Y=2.X-10 ELSE Y=-10 END IF. Даны переменные х. Выяснить, принадлежит ли точка с координатами (х,у) кольцу с центром в начале координат с внешним радиусом 3 и с внутренним радиусом 2,5 пикселя. Напишите программу подсчета вхождения буквы “А” в заданный текст. Например: БАРАБАН — рез. 3 МОРЕ — рез.

Составьте программу проверяющую, является ли заданное слово перевертышем. Например: ШАЛАШ — да, МОРЕ — нет. Составьте программу замены в слове букв “А” на “Б”.

Например: МАМА — МБМБ, БАРАН — ББРБН. Напишите программу подсчета числа вхождений слова Х$ в слово У$. Например: Х$=“КОЛОКОЛ” У$=“КОЛ” рез.=2 Х$=“КОЛ” У$=“КОКОН” рез.=0 114.

Составьте программу замены в слове слогов “БА” на “БУ”. Например, БАРАБАН - БУРАБУН. Дана строка символов. Заменить в ней все “А” на “ААА”. Например, МАША - МАААШААА. Составить программу, удваивающую каждую букву слова.

Например, ИГРА - ИИГГРРАА. Составить программу, удаляющую из слова буквы “Д”. Например, ДОВОД - ОВО.

Составить программу, вставляющую перед каждой буквой “О” букву “Р”. Например, ОВОД - РОВРОД. Вывести номера первой и последней запятой.

Напишите программу, проверяющую в выражении количество открытых и закрытых скобок. Предложение состоит из слов, между словами один пробел, а после последнего слова — точка. Найти длину самого длинного слова. Дано натуральное N.

Разложить его на простые множители. Даны натуральные числа M и N. Определить их наименьшее общее кратное. Даны натуральные числа M и N.

Определить их наибольший общий делитель. Составить программу контроля знаний столиц европейских государств. Например Англия — Лондон, Франция — Париж, Испания — Мадрид. Составить программу, реализующую эпизод из сказки: спрашивает, куда предпочитает пойти пользователь (направо, прямо или налево) и печатает, что его ждет в каждом случае.

Ответ компьютера присвоить символьной переменной и напечатать. Текст вопросов и ответов компьютера задать самостоятельно. VIII ПОДПРОГРАММЫ. Найти значения функции y=sin(x) для значений х= 1,2; 3,14; 6,28; 0,6 радиан. Найти значения функции y=x 2 +x/2 для значений х=-4; 0.5; 12,02.

Найти значения функции y=sqr(x) для значений х=12,4; 345; 45,8; 999. Нарисовать улицу из N домиков, используя подпрограмму:. Напишите программу, рисующую N картинок с использованием подпрограммы. Напишите программу, рисующую картинку с использованием подпрограммы: 133. Напишите программу, рисующую картинку с использованием подпрограммы. Напишите программу, рисующую картинку с использованием подпрограммы: 135.

Нарисовать N флажков. N задает пользователь с клавиатуры:. Нарисовать N елочек. N задает пользователь с клавиатуры:. Нарисовать N конфет.

N задает пользователь с клавиатуры: 138. Нарисовать N конфет. N задает пользователь с клавиату ры: 139.

Нарисовать N пирамидок. N задает пользователь с клавиатуры: 140. Нарисовать “флот” из N корабликов. N задает пользователь с клавиатуры:.

Нарисовать забор из N досок. N задает пользователь с клавиатуры.  ЛИНЕЙНЫЕ МАССИВЫ. Напишите программу заполнения линейного массива натуральными числами 1. Размерность массива ввести с клавиатуры. Заполнить массив элементами, равными их удвоенным порядковым номерам. Даны два числовых массива а(n) и b(n).

Заполнить массив с(n), где с(i)=a(i)+b(i). Вывести на печать все массивы. Напишите программу, прибавляющую ко всем элементам массива по единице. Выведите на экран оба массива. Напишите программу, удваивающую все элементы массива. Выведите на экран оба массива. Измените элементы массива на противоположные по знаку.

Составьте программу замены нулевых элементов массива единицами. Напишите программу поиска элементов таблицы, значение которых совпадает с индексом. Дан произвольный массив чисел длины N. С клавиатуры задано число А. Определить, входит ли А в массив. Найдите число ненулевых элементов в произвольном массиве. В произвольном линейном массиве найдите количество нечетных элементов.

В произвольном линейном массиве найдите максимальный и минимальный элементы. В произвольном линейном массиве найдите значение максимального элемента.

Если таких несколько, то определить сколько их. В произвольном линейном массиве найдите максимальный элемент и поставьте его первым.

Известны данные о среднемесячной температуре за год. Определить, какая температура была самой высокой за лето и самая низкая за зиму. В произвольном линейном массиве найдите сколько в нем имеется пар одинаковых элементов. Дан одномерный массив. Все его элементы, равные нулю, переписать в начало массива, а остальные — в конец. Напишите программу подсчета положительных, отрицательных и нулевых элементов массива.

Упорядочить по возрастанию элементы массива. Упорядочить по убыванию элементы массива. Подсчитать среднюю сумму элементов одномерного массива произвольного размера и заполнения.

В массиве символов, заполненном латинскими буквами, расположить все элементы по алфавиту. Даны символы s 1, s 2., s 30. Получить символы данной последовательности в обратном порядке. Даны символы s 1, s 2., s 80. Определить количество неверных равенств среди: s 1 =s 41, s 2 =s 42., s 40 =s 80. В массиве слов найти слова, содержащие последним символом букву “А”.

Вывести на печать эти элементы и их номера, распечатать весь массив. В массиве слов найти все слова, содержащие букву “У”. Вывести на печать эти элементы и их номера, распечатать весь массив.  ДВУМЕРНЫЕ МАССИВЫ. Заполните массив из 5 строк и 6 столбцов натуральными числами и выведите его на экран. Заполнить массив А(N,N) таким образом, чтобы все элементы, расположенные выше главной диагонали были равны 1, а остальные элементы — случайные на интервале от (0, 10).

Заполнить массив В(М, N) таким образом, чтобы нечетные столбцы состояли из единиц, а четные — из двоек. В квадратной матрице А(N,N) заменить элементы, вычтя из каждого элемент а 11.

Дана целочисленная матрица NxN. Найти номера столбцов: а) все элементы которых равны 0; б) все элементы которых равны; в) все элементы которых меньше нуля. Найти наибольший элемент квадратной матрицы. Найти наименьший элемент квадратной матрицы. Дана целочисленная матрица MxN.

Найти в ней наименьший элемент и определить его местоположение. Если таких элементов несколько, то вывести на экран положение каждого из них. Дана целочисленная матрица MxN, состоящая из латинских букв. Отсортировать каждую строку в алфавитном порядке. Подсчитать количество положительных, отрицательных и нулевых элементов двумерного массива произвольного размера. Вывести на экран элементы главной диагонали квадратной матрицы произвольного размера и заполнения.

Подсчитать среднее значение элементов произвольного двумерного массива. Дан массив чисел А(N,N), заданных случайным образом на интервале (-10,10). Подсчитать произведение тех элементов, которые не превышают среднее значение элементов массива. В двумерном массиве А(3, 20) заданы координаты точек и их цвета ( 1 и 2 строки — x1 и y1, 3 строка — цвет). Построить заданные точки. В двумерном массиве А(5, 10) заданы координаты концов отрезков и их цвета ( 1 и 2 строки — x1 и y1, 3 и 4 строки — x2 и y2, 5 строка — цвет). Построить заданные отрезки.

В двумерном массиве А(4, 15) заданы координаты центра, радиусы окружностей и их цвета ( 1 и 2 строки — центр, 3 строка — радиус, 4 строка — цвет). Построить заданные окружности.