Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
vipusknik
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 54
#1

заполнить строковую переменную цифрами - Turbo Pascal

09.05.2012, 21:36. Просмотров 438. Ответов 1
Метки нет (Все метки)

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

не могу заполнить цифрами.
я вот так делаю

Pascal
1
2
3
4
5
6
7
8
9
10
const n=10;
var r:string[n]; 
m:array[1..n] of integer; d,i:integer;
 
  
begin
randomize;
 for i:=0 to n-2 do
 r[i]:=random(21);
r[n-1]:=length(r); //strokovaja peremennaja v konce stroki//
но выдает ошибку Program1.pas(9,8): Нельзя преобразовать тип integer к char.

А как по-другому не могу придумать.
Подскажите пожалуйста.
Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2012, 21:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос заполнить строковую переменную цифрами (Turbo Pascal):

Как заполнить строковую переменную через генератор случайных чисел? - Turbo Pascal
Заполнить строковую переменную цифрами с помощью генератора случайных чисел. Подскажите пожалуйста, это очень срочно

Заполнить срочную переменную цифрами - Turbo Pascal
Заполнить срочную переменную цифрами с помощью генератора случайных значений. В конец срочного поля прибавить срочное изменение которая...

Заполнить множество цифрами чисел Каталана - Turbo Pascal
Помогите с программой в паскале. Пожалуйста. Заполнить множество цифрами чисел Каталана < 256. Числа Каталана определяются формулами...

Заполнить массив цифрами числа расположенными в обратном порядке - Turbo Pascal
Дано натуральное число n (n < 999999). Заполнить массив его цифрами расположенными в обратном порядке (первый элемент равен последней...

Заполнить массив цифрами числа, расположенными в обратном порядке - Turbo Pascal
решите через паскаль выручайте пожалуйста Дано натуральное число n ≤ 999 999.Заполнить массив его цифрами,расположенными в обратном...

Заполнить массив цифрами числа расположенными в обратном порядке - Turbo Pascal
Дано натуральное число n ( n <= 999999). Заполнить массив его цифрами, расположенными в обратном порядке (первый элемент равен последней...

1
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,883
09.05.2012, 21:47 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var s,s1:string;
    i,a:integer;
    p:integer;
begin
clrscr;
randomize;
s:='';
for i:=1 to 10 do
 begin
  a:=random(9)+1;
  s:=s+chr(a+48);
 end;
writeln('Строка из цифр');
writeln(s);
write('Введите натуральное число a=');
readln(a);
str(a,s1);
s:=s+s1;
writeln('Строка с числом');
writeln(s);
p:=1;
for i:=1 to length(s) do
p:=p*(ord(s[i])-48);
write('Произведение=',p);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2012, 21:47
Привет! Вот еще темы с ответами:

Сформировать массив из 7 элементов, заполнить его случайными цифрами - Turbo Pascal
Программа1.Сформировать массив из 7 элементов, заполнить его случайными цифрами от1 до 1000. Вывести на экран. Дополнить программу 1...

Ввести фамилию, имя и отчество в одну строковую переменную - Pascal
Ввести фамилию, имя и отчество в одну строковую переменную. Определить длину строки.Вывести самое длинное слово.

Заполнить массив 6*6 цифрами по схеме - Pascal
Сформировать и вывести на экран заданный двумерный массив 1 1 1 1 1 1 1 2 3 4 5 6 1 3 6 10 15 21 1 4 10 20 35 56 ...

Дан двухмерный массив [10,10] . Заменить нечетные элементы на 0 заполнить случайными цифрами от 1 до 9 - Pascal
помогите решить задачу


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru