помогите, пожалуйста, исправить ошибку

@Ronaldo_7 · Регистрация: 24.11.2010

Author24 — интернет-сервис помощи студентам

Если задаётся строковая переменная "столбик"-выводить двадцать символов "*" в столбик, "Строка"-двадцать символов "*" в строку

program x;
var
a:string;
i: integer;
begin
write ('Введите способ вывода: столбик или строка ');
readln (a);
case a of
'Столбик': begin
for i:= 1 to 20 do
writeln ('*');
end;
'строка': for i := 1 to 20 do write ('*');
end;
readln
End.

на строке "case a of" ошибка 39

@Dekio · 22.12.2010, 19:54

в сase нельзя использовать тип string;

@Ronaldo_7 · 22.12.2010, 19:55 **[ТС]**

и что тогда сделать?)

@Dekio · 22.12.2010, 19:57

использовать другой тип
если строка то 1
если столбик то 0.
и нет проблем

@Ronaldo_7 · 22.12.2010, 19:58 **[ТС]**

а именно чтобы строка или столбик не сделать?

@Dekio · 22.12.2010, 20:00

нет .

@Ronaldo_7 · 22.12.2010, 20:01 **[ТС]**

ну и на том спасибо)

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
		1
	помогите, пожалуйста, исправить ошибку 22.12.2010, 19:50. Показов 724. Ответов 6 Метки нет (Все метки) Если задаётся строковая переменная "столбик"-выводить двадцать символов "" в столбик, "Строка"-двадцать символов "" в строку program x; var a:string; i: integer; begin write ('Введите способ вывода: столбик или строка '); readln (a); case a of 'Столбик': begin for i:= 1 to 20 do writeln (''); end; 'строка': for i := 1 to 20 do write (''); end; readln End. на строке "case a of" ошибка 39 Миниатюры 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	22.12.2010, 19:54	2
	в сase нельзя использовать тип string; 0

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	22.12.2010, 19:55 [ТС]	3
	и что тогда сделать?) 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	22.12.2010, 19:57	4
	использовать другой тип если строка то 1 если столбик то 0. и нет проблем 0

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	22.12.2010, 19:58 [ТС]	5
	а именно чтобы строка или столбик не сделать? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	22.12.2010, 20:00	6
	нет . 1

@Ronaldo_7 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 36
	22.12.2010, 20:01 [ТС]	7
	ну и на том спасибо) 0