Практика программирования (Бейсик, Си, Паскаль)


         

Отображение разноцветных букв на допустимой


RЕМ Разноцветный текст А$ = "ПРОГРАММИРОВАНИЕ"
CLS

' Отображение разноцветных букв на допустимой фоновой гамме
FOR CF=0 TO 7
FOR CS=0 TO 15
COLOR CS,CF LOCATE CF+1,2*CF+CS+1
PRINT MID$(A$,CS+1,1)
NEXT CS
NEXT CF

'Отображение мигающих разноцветных букв
FOR CF=0 TO 7

FOR CS=0 TO 15
COLOR CS+16,CF
LOCATE CF+1,2*CF+CS+41
PRINT MID$(A$,CS+1,1)
NEXT CS
NEXT CF

Программа 3_09.с

/* Разноцветный текст */

#include <conio.h>

main() {

int i ;

textbackground(0);
clrscr () ;

for(i=0; i<24; i++) {

gotoxy(2*i+l,i+l);
textcolor(128+i);
textbackground(i+2);

cprintf("Цветовая гамма в текстовом режиме"); }

getch(); }

Программа 3_09а.с

/* Разноцветный текст */
#include <conio.h>

main() {

int i;

textbackground(0) ;
clrscr();

for(i=0; i<24; i++) {

gotoxy(2*i+l,i+1);

textattr(128+i + ((i+1) « 4));

cprintf("Цветовая гамма в текстовом режиме");

}

getch (); }

Программа 3_09.pas

program colorl;

{ Разноцветный текст }

uses crt;

var

i:integer; begin

textbackground(0); clrscr;

for i:=0 to 23 do
begin

gotoxy(2*i+l,i+l);
textcolor(128+i);
textbackground(i+l);
writeln('Тест цветовой гаммы ');
end;
readln;
end.

Задание 3.10. Преобразование обычной дроби в десятичную

Составить функцию символьного (строкового) типа, преобразующую два своих целочисленных аргумента — числитель m и знаменатель п правильной дроби (m < n < 100) в строку, представляющую запись десятичной дроби. Для бесконечной дроби период следует заключить в круглые скобки. Например:

m=3 n=5 значение функции - "0.6"

m=1 n=6 значение функции - "0.1(6)"

Совет 1 (общий)

Очевидно, что количество цифр в десятичной дроби не превосходит 100, т. к. при последовательном делении на п мы можем получить не более чем п разных остатков (от 0 до п-1). Поэтому разумно завести массив для хранения остатков и при получении очередного остатка, отличного от 0, проверять, нет ли такого же среди ранее получавшихся. Как только новый остаток совпадет с одним из предыдущих, будет обнаружен период.

Содержание  Назад  Вперед