Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Переписать элементы массива в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread244317.html
1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива. 2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей. помогите пожалуйста:) 		Pascal ABC Линейные массивы
Написать программу, которая упорядочивает по возрастанию ту часть последовательности, которая находится после минимального элемента этой последо¬вательности.
Pascal ABC строки https://www.cyberforum.ru/ pascalabc/ thread244211.html
дана строка поменять последнии эл с последним, предпоследнии со вторым и так далее. не могу понять в чем ошибка uses crt; var s:string; c:char; i:byte; Begin writeln('введите стороку'); readln(s); i:=1; while i<length(s) do 		Pascal ABC Составте программу Построить и распечатать множество из диапазона чисел от 1 до 100. X- множество чисел,делящихся на 5 или 7 без остатка; Y-множество чисел не делящихся на 5 и на 7 одновременно (не кратных 35) https://www.cyberforum.ru/ pascalabc/ thread244036.html
Pascal ABC Нужен код игры Пятнашки
У кого нибудь есть пятнашки на PascalABC?????Помогите пожалуйста!?!?!?!? 		Pascal ABC Составте программу Дано натуральное число N. Поменять порядок следования цифр в этом числе на обратный. Ограничения: Число N содержит до 100 знаков. Ввод:В единственной строке вводиться число N. Вывести: в единственной строке вывести число, полученное в результате. P.S. Заранее блогодарен! https://www.cyberforum.ru/ pascalabc/ thread243924.html
Pascal ABC минимальный элемент массива https://www.cyberforum.ru/ pascalabc/ thread243911.html
В одномерном массиве A(I), элементы которого подсчитываются по формуле A(I)=5,4tg(I)/I определите минимальный элемент массива. Подсчитайте среднее арифметическое элементов, стоящих до минимального и произведение элементов, стоящих после минимального. 		Pascal ABC Объединить 2 программы
Как соединить 2 программы например: program tr1; uses Utils; var i: integer; mb,b: integer; begin cls;
Pascal ABC После введенного числа, обозначающего денежную единицу, дописать слово «копейка» Помогите пожалуйста Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильной форме. Например, 5 копеек, 41 копейка и т.д. https://www.cyberforum.ru/ pascalabc/ thread243848.html Pascal ABC Сформировать целочисленную матрицу по правилу https://www.cyberforum.ru/ pascalabc/ thread243829.html
Даны целые положительные числа M и N. Сформировать целочисленную матрицу M*N у которой все элементы J-го столбца имеют значения 5*J(J=1..N). program dvymernye_massivi; uses crt; var j1,j2:integer; m,n:integer; s:array of real; begin clrscr;randomize;
Pascal ABC Поменять местами элементы в строке матрицы
дана строка поменять первый эл со вторым, третий с 4 ит.д. пришлите ток цикл где меняют эл 		Pascal ABC Найти ошибку в коде program COSSET; uses crt; var c,d,a,k,i,u,z,r,q,w,e,n,y,m,b,v,o,s,x:real; begin//начинаю ввод write('Вас приветствует операционная система Cosset v1.01 полный список команд для Cosset v1.01 находится в справочнике прилагаемым с загрузочными дискетами в коробке. Для начала работы введите ячейку неизвестности с='); readln(c); write('Ваши данные сохраняются в оперативной памяти вашей новой... https://www.cyberforum.ru/ pascalabc/ thread243810.html
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
17.02.2011, 17:31 0

Сгенерировать символ по коду как случайному числу. - Pascal ABC - Ответ 1377013

17.02.2011, 17:31. Показов 1725. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от аечка)))) Посмотреть сообщение
Даны два натуральных числа. Верно ли, что первое число является палиндромом второго числа? помогите плиз
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
28
29
30
31
32
33
34
35
36
37

var
  a, b, d, d1, d2: longint;
  n, i, ts1, ts2: integer;
  flag: 0..1;
begin
 write ('Введите число: ');
 readln (a); {узнаем, сколько цифр в числе}
 b := a;
 n := 0;
 d1 := 1;
  while b<>0 do
   begin
    inc (n); {увеличение n на единицу}
    b:=b div 10;
    d1:=d1*10;
   end;
 d1:=d1 div 10;
 d2:=1;
 flag:=0;
  for i:=1 to n div 2 do
   begin
    ts1:=a div d2 mod 10;
    d2:=d2*10;
    ts2:=a div d1 mod 10;
    d1:=d1 div 10;
     if ts1<>ts2 then
      begin
       flag:=1;
       writeln('Это число не является палиндромом.');
       break;
      end;
   end;
    if flag=0 then
     begin
      writeln ('Данное число является палиндромом.');
     end;
end.


Вернуться к обсуждению:
Сгенерировать символ по коду как случайному числу. Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.02.2011, 17:31
Готовые ответы и решения:

Как по коду определить символ?
подскажите, как по коду определить символ в с++?

Как выводить символ по его коду?
Хотел бы поработать с кодировками символов, к примеру, на ввод вписываешь код (Юникода, например),...

Как по заданному числу прочитать символ в textbox?
пример: текст ацаяво 5я буква = в

Как узнать символ из таблицы ASCII по его коду
Есть задача: Ввести с клавиатуры число. Проверить по таблице кодов ASCII какой это символ и вывести...

7
17.02.2011, 17:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.02.2011, 17:31
Помогаю со студенческими работами здесь

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

Сгенерировать случайное число в указанном диапазоне, кратное заданному числу
Срандомить число от 0 до 100000, кратное 5! Какой командой это можно реализовать?

Сгенерировать набор случайных чисел, чтобы их сумма была равна заданному числу n
Доброго времени суток!) Помогите пожалуйста. Нужно сгенерировать набор случайных чисел, чтобы их...

Сгенерировать 5 случайных чисел так, чтобы их сумма была равна заданному числу
Всем привет. Необходимо сгенерировать и сохранить в массив 5 случайных чисел, но так, чтобы их...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru