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


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


FOR I = 1 ТО 8: PRINT "1234567890"; : NEXT I

PRINT TAB(10 + (50 - 10) / 2 - LEN(A$) / 2); A$

PRINT "Вывод с прижимом к 50-й позиции :"

FOR I = 1 ТО 8: PRINT "1234567890"; : NEXT I

PRINT TAB(51 - LEN(A$)); A$

END

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

#include <stdio.h>

#include <conio.h>

#include <string. h>

main()

{

char str[20], rule [] ="1234567890";

int i;

clrscr () ;

puts("Введите строку, содержащую не более 20 символов");

for(i=0; i<8; i++)

printf("%s",rule);

gets (str) ;

puts("Вывод, начиная с 10-й позиции :");

for(i=0; i<8; i++) printf("%s",rule);

gotoxy(10,wherey()); puts (str) ;

puts("Вывод по центру между 10-й и 50-й позициями :");

for(i=0; i<8; i++) printf("%s",rule);

gotoxy(10+(50-10)/2-strlen(str)/2,wherey());

puts(str);

puts("Вывод с прижимом к 50-й позиции :");

for (i=0; i<8; i++) printf("%s", rule);

gotoxy(51-strlen(str),wherey());

puts(str);

getch(); }

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

program text_justify;

uses Crt;

const

rule:string='1234567890'; var

s:string[20];

i:integer; begin

clrscr;

writeln('Введите строку, содержащую не более 20 символов');

for i:=0 to 7 do write(rule);

readln(s);

writeln('Вывод, начиная с 10-й позиции :');

for i:=0 to 7 do write(rule);

gotoxy(10,wherey); writeln(s);

writeln('Вывод по центру между 10-й и 50-й позициями :');

for i:=0 to 7 do write(rule);

#include <string.h>

main() {

char str[20], rule[]="1234567890";

int i ;

clrscr();

puts("Введите строку, содержащую не более 20 символов");

for(i=0; i<8; i++)

printf("%s",rule);

gets (str) ;

puts("Вывод, начиная с 10-й позиции :");

for(i=0; i<8; i++) printf("%s",rule);

gotoxy(10,wherey()); puts (str) ;

puts("Вывод по центру между 10-й и 50-й позициями :");

for (i=0; i<8; i++) printf("%s",rule);




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