Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Формирование строки символов

Автор: nesh 11.02.2008 20:36

Помогите, пожалуйста, исправить программу!
Процедура, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.
Я составил, но он выдает мне символ не тот, что я ввожу, а только тот, что запрагроммирован в самой программе, как это исправить подскажите, пожалуйста?! А второе, в самой программе у меня почему-то не получается обратиться к процедуре! Что мне нужно подправить?!
Вот текст этой программы:

program nomer13;
procedure nom(str: string; i,n: integer; var z: char);
begin
for i:=1 to n do
str:= str+chr(ord('z'));
end;
var z: char;
n: integer;
begin
writeln('Vvedite simvol');
readln(z);
writeln('Vvedite ix kolichestvo');
readln(n);
writeln(nom(z));
end.

Автор: klem4 11.02.2008 20:47

 uses crt;
procedure my_write(ch: char; n: Integer);
begin
while n > 0 do begin
write(ch); dec(n);
end;
writeln;
end;

begin
my_write('f', 2);
end.


Автор: nesh 11.02.2008 21:51

А теперь можешь пояснить, что означает эта строчка:
dec(n);
И вот эта:
my_write('f', 2); Что такое в ней f и при чем здесь 2 ?!

Автор: renesko1 12.02.2008 0:20

dec(n) уменьшает n на 1

my_write('f', 2) вызывает одноименную процедуру с параметрами в скобках

как я понял 'f' 'это символ который будет печаться 2 раза

Автор: andriano 12.02.2008 11:56

1. Не путай между собой символ 'z' и переменную z. еременная - лишь место в памяти, куда можно записать любой символ.
2. Вспомогательные переменные (например, переменную циула) принято описывать внутри процедуры, а не передавать в нее в качестве параметра.
3. Если хочешь вернуть значение переменной в параметре, именно эту переменную надо описывать как var.
4. У тебя не совпадает количество и тип параметров в заголовке процедуры и при ее вызове. И, соответственно, недоописанные при вызове процедуры параметры должны быть определены в основной программе.
5. Процедура не возвращает значения. Можно сделать либо так, как ниже, либо переопределить nom как функцию.

program nomer13;
procedure nom(var str: string; n: integer; z: char);
var i : integer;
begin
for i:=1 to n do
str:= str+z;
end;
var z: char;
n: integer;
s:string;
begin
writeln('Vvedite simvol');
readln(z);
writeln('Vvedite ix kolichestvo');
readln(n);
nom(s,n,z);
writeln(s);
end.

PS. Набивал прямо здесь, не проверял.

Автор: volvo 12.02.2008 13:04

По заданию нужна не процедура, которая формирует строку, которая ПОТОМ где-то в другом месте печатается, а

Цитата
Процедура, которая выводит строку, состоящую из одинаковых символов
. Так что, andriano, зря старался dry.gif Мимо кассы. Правильный ответ уже дан во втором посте...

Кстати, к тебе - как к поборнику кроссплатформенности и СУПЕР-правильных программ - вопрос: "А инициализировать строку не надо?" Где-то сказано что компилятор ОБЯЗАН инициализировать переменные?

Автор: andriano 13.02.2008 3:35

Цитата(volvo @ 12.02.2008 9:04) *

По заданию нужна не процедура, которая формирует строку, которая ПОТОМ где-то в другом месте печатается, а . Так что, andriano, зря старался dry.gif Мимо кассы. Правильный ответ уже дан во втором посте...

Кстати, к тебе - как к поборнику кроссплатформенности и СУПЕР-правильных программ - вопрос: "А инициализировать строку не надо?" Где-то сказано что компилятор ОБЯЗАН инициализировать переменные?

Когда автор дает две совершенно различные трактовки того, что ему нужно, довольно трудно выбрать из них нужную, не обладая телепатическими способностями.
В исходном коде символы ДОПИСЫВАЛИСЬ в конец строки, не уничтожая того, что там до этого было. И это логично, т.к. для процедуры именно это - наиболее универсальное решение. Инициализация строки - дело основной программы, если строка передается как формальный параметр, и дело функции, если строка - возвращаемое функцией значение.

Не может быть одного единственно верного ответа на некорректно сформулированный вопрос либо на вопрос, допускающий неоднозначность. Так что твое сообщение я расцениваю исключительно как желание придраться. Я понимаю, что молодым людям свойственна, порой, излишняя категоричность, но иногда полезно ставить под сомнение и собственную непогрешимость.