Уберите только строку с циклом For, забыл убрать)
Примечание:
"Почему то не распечатывается. Только А первая стоит и все((( "
>> А ваша версия работает нормально?
Примечание:
Кажется, нашел ошибку)
Забирайте:
program Victor;
uses crt;
var s:string;
i:integer;
j:integer;
s1:string;
begin
Writeln('Лабораторная работа №3. Цикл с параметром. Символьный тип данных');
Writeln('Выполнил студент гр. ИСТд-12 Виктор Смирнов');
Writeln;
Writeln ('Распечатать таблицу символов');
s:='DCBABCD';
s1:=' ';
i:=0;
repeat
j:=Abs((Length(s)) div 2 - i);
write(copy(s1,1,j));
write(copy(s,j+1,length(s)-2*j));
readln;
i := i + 1;
until i < Length(s)
end.
Примечание:
При изменении кода забыл i инициализовать)
Примечание:
=====================
=====================
Откопал паскаль, финальная версия =)
=====================
=====================
program Victor;
uses crt;
var s:string;
i:integer;
j:integer;
s1:string;
begin
Writeln('Лабораторная работа №3. Цикл с параметром. Символьный тип данных');
Writeln('Выполнил студент гр. ИСТд-12 Виктор Смирнов');
Writeln;
Writeln ('Распечатать таблицу символов');
s:='DCBABCD';
s1:=' ';
i:=0;
repeat
j:=Abs((Length(s)) div 2 - i);
write(copy(s1,1,j));
write(copy(s,j+1,length(s)-2*j));
readln;
i := i + 1;
until i >= Length(s)
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.