|
|
| Другие темы раздела | |
| Pascal ABC Ввести число. Определить сумму цифр в первой половине числа . Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6. https://www.cyberforum.ru/ pascalabc/ thread406988.html |
Pascal ABC Взаимоисключающие ошибки. Я в паскале новичок, только начинаю его осваивать (только дошел до массивов), поэтому укажите, пожалуйста, чайнику на его ошибку =). while (a=b) or (pop=0) do begin write('Введите число от 1 до 10: '); read(b); if a>b then write('Ваше число меньше моего!!'); pop:=pop-1 else if a<b then ('Ваше число больше моего!'); pop:=pop-1 else write('Вы угадали!!'); end; |
| Pascal ABC Возведение действительного числа в целую положительную степень Здравствуйте.Есть задача(см.вложение внизу) и к ней решение: // функция возведение действительного числа в целую положительную степень function pow(chislo: real; inp: integer): real; var i: integer; tmp: real; begin tmp := 1; https://www.cyberforum.ru/ pascalabc/ thread406960.html |
Pascal ABC на файл вещественного типа
https://www.cyberforum.ru/ pascalabc/ thread406907.html расставить элементы в порядке возрастания их абсолютных значений. У меня получилась прога только с положительными числами, помогите доработать! uses crt; var f:file of real; i,j,k,s:integer; a,b,v:real; begin clrscr; assign(f,'Ôàéë'); |
|
Pascal ABC Массивы. Вычисление отношения максимального к минимальному Приветствую! Имеется задача : Вычислить отношение максимального элемента заданного массива к его минимальному элементу. Если это отношение больше 8, то положительные элементы массива заменить на максимальный. В результате получил следующее решение: program zad1; type massiv = array of integer; var i,n,mas_max,mas_min : integer; otno:real; pol:integer; A:massiv; |
Pascal ABC удалить "хвостовые" нули Всем доброй ночи :) Столкнулся с проблемой удалить "хвостовые" нули (например имеем число 20300 - необходимо получить 203) for i:=1 to length(s) do Begin if (s<>'0') then s2:=s2+s End; End; https://www.cyberforum.ru/ pascalabc/ thread406894.html |
| Pascal ABC Вывести на экран "условие выполняется", если все элементы массива положительные и "условие не выполняется", если это не так. 1)Тип массива вещественный.Число элементов 11. Вывести на экран "условие выполняется", если все элементы массива положительные и "условие не выполняется", если это не так.(блок схема) 2)В матрице А найти сумму положительных элементов.Если таких нет элементов, то напечатать соответствующее сообщение.(блок схема) просьба для одной задачи создавать одну тему https://www.cyberforum.ru/ pascalabc/ thread406874.html |
Pascal ABC В массиве 3х3 с автозаполнением нужно поменять 1 и 3 строки местами. В массиве 3х3 с автозаполнением нужно поменять 1 и 3 строки местами. Очень срочно |
| Pascal ABC В матрице найти произведение отрицательных элементов во всех нечетных столбцах В матрице a (это размер) найти произведение отрицательных элементов во всех нечетных столбцах. Если таких элементов нет, то на печать выдать соответствующее сообщение. заранее Спасибо !) https://www.cyberforum.ru/ pascalabc/ thread406824.html |
Pascal ABC На файл текстового типа. Нужно толко переделать.
https://www.cyberforum.ru/ pascalabc/ thread406811.html Из файла текстового типа переписать строки в другой файл в порядке возрастания их длин.(нужно без массива) uses crt; var f,f1: text; s: array of string; i,j,max,n: integer; x: string; begin assign(f,'e:\1.txt'); {файл со строками} assign(f1,'e:\2.txt'); |
|
как решать системы?? Pascal ABC помогите как решить систему Вычислить |
Pascal ABC Помогите создать блок схему по этой задачи. ПаскальАБС
https://www.cyberforum.ru/ pascalabc/ thread406803.html program ge; uses crt; CONST namebd='productbd.txt'; type vse=record nazv:string; sto:real; kol:real; mas:string; end; |
|
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 10
|
|
| 15.12.2011, 12:39 [ТС] | 0 |
Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a). - Pascal ABC - Ответ 228768315.12.2011, 12:39. Показов 3982. Ответов 2
Метки (Все метки)
Ответ
спасибо тебе хороший человек
Вернуться к обсуждению: Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a). Pascal ABC
0
|
|
| 15.12.2011, 12:39 | |
|
Готовые ответы и решения:
2
Заменить каждую букву в строке на букву, следующую за ней по алфавиту Заменить каждую букву в строке на другую букву, следующую за данной буквой по алфавиту. Зашифровать предложение заменив каждую букву на следующую за ней букву алфавите, сохраняя регистр букв |
| 15.12.2011, 12:39 | |
| 15.12.2011, 12:39 | |
|
Помогаю со студенческими работами здесь
0
Заменить каждую букву в строке на другую букву, следующую за данной буквой через заданное число символов по алфавиту.
Каждую букву заменить на следующую за ней (буква я заменяется на а)
|