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


Задачи, советы и ответы - часть 15


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, проверять, нет ли такого же среди ранее получавшихся. Как только новый остаток совпадет с одним из предыдущих, будет обнаружен период.




- Начало -  - Назад -  - Вперед -