Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
1

Сформировать массив, элементами которого являются цифры числа N

09.03.2009, 09:01. Просмотров 1677. Ответов 6
Метки нет (Все метки)

Народ помогите пожалуйста решить контрольную работу.....
Она состоит из 7 вопросов...4 я сделал....вот оставшиеся..:
1)Найти стандартные средства Паскаля с помощью которых можно преобразовать число в строковые данные или строку в числовые.
2)Задача.Сформировать массив, элементами которого являются цифры числа N (Например число N=2345, массивом будет 2 3 4 5).
3)Найти все натуральные числа не превосходящие заданного N, которые делятся на каждую из своих цифр.
Заранее спасибо....очень нужно...помогите...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2009, 09:01
Ответы с готовыми решениями:

Cформировать массив, элементами которого являются цифры числа N
Дано натуральное число N. Составьте программу формирования массива, элементами которого являются...

Сформировать массив, элементами которого являются числа, сумма которых равна K и которые не больше N
блин, на контрольной дали задачу, вообще не понимаю что требуется!(( помогите плиз!! Если у кого то...

Сформировать массив М3, элементами которого являются те члены М2, которые не присутствуют в М1
Данные два произвольных одномерные массивы целых чисел М1 и М2. Сформировать ма- сив М3,...

Составить программу для формирования массива, элементами которого являются цифры числа N
Дано Натуральное число N. Составить программу для формирования массива, элементами которого...

6
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.03.2009, 09:07 2
Для преобразования числа в строку, нужно использовать фпроцедуру Str:

Pascal
1
procedure Str(x:real[:кол-во символов[:дробная часть]];var s:string);
то, что в квадратных скобках, писать не обязательно.
например, хотите i:integer перевести в s:string и пишите:
Pascal
1
str(i,s);
Для обратного перевода используется процедура Val:
Pascal
1
procedure Val(s:string;var p;var error:integer);
например, хотите s:string перевести в i:integer, создаёте переменную e (любую) и пишите:
Pascal
1
val(s,i,e);
1
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
09.03.2009, 09:12  [ТС] 3
ооо!спасибо.....
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.03.2009, 09:29 4
задача №2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
program xxx;
var
 n,i:integer;
 ch:string;
begin
 writeln('Введите число');
 readln(n);
 str(n,ch);
 for i:=1 to length(ch) do write(ch[i]:2);
 readln;
end.
Добавлено через 12 минут 28 секунд
Задача №3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program xxx;
var
 n,i,ii:integer;
 s:string;
 b:boolean
begin
 b:=true;
 writeln('Введите n');
 readln(n);
 for i:=1 to n-1 do begin
  str(i,s);
  for ii:=1 to length(s) do
   if i mod s[ii]<>0 then b:=false;
  if b then write(i,' ');
 end;
end.
1
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
09.03.2009, 20:24  [ТС] 5
№ 3 не работает.....пишет несоответствие типа...я меняю integer на real и пишет ошибочная переменная в FOR, что не так????
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.03.2009, 20:26 6
А где пишет 1-ю ошибку (про real забудь, нельзя с ним цикл делать)?
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
09.03.2009, 21:21  [ТС] 7
Первая ошибка в 13-ой строке....где s[ii]<>0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2009, 21:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать одномерный массив, элементами которого являются строчные суммы исходной матрицы
Дана целочисленная матрица А размерности 4×4. Требуется сформировать одномерный массив, элементами...

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива
Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши...

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

построить и напечатать множество, элементами которого являются встречающиеся в последовательности: цифры от '0' до '9'
Дана непустая последовательность символов. Требуется построить и напе- чатать множество, элементами...


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

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

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