Введите строку, содержащую не более

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);

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

---

---

---

---