|
|
|
| Другие темы раздела | |
| Pascal Найти значения максимального из элементов массива, которые имеют четные номера. В массиве, вещественных чисел, 20 элементов. Найти значения максимального из элементов массива, которые имеют четные номера. https://www.cyberforum.ru/ pascal/ thread18962.html |
Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: Pascal Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: а) удаляет четыре подряд идущих букв А; б) удаляет из последовательности ВАВА одну пару ВА; в) удаляет комбинацию АВС. Преобразования выполнять до тех пор, пока ни одной из перечисленных комбинаций не останется. =-O Добавлено через 21 час 54 минуты 36 секунд :( |
|
Pascal Напечатать имена всех людей, возраст которых равен минимальному
https://www.cyberforum.ru/ pascal/ thread18951.html program cyb_39; uses Crt; type person = record name: string; age: 1..200; end; list = file of person; var |
Pascal Требуется помощь в решении задачки - "Шифратор"
https://www.cyberforum.ru/ pascal/ thread18937.html Люди добрые помогите разобраться с задачкой Условие: Переписать слова во входном тексте наоборот. У меня с массивами туго.... смог только полностью текст перевернуть... ____ x:=s; {s - входной текст} k:=length(x); y:=x; for i:=1 to k do |
|
Pascal Используя один просмотр текстового файла, вывести его строки в обратном порядке Собственно вот: используя один просмотр текстового файлаб вывести его строки в обратном порядке (в начале выводится последняя строка исходного файла). Плиzz помогите ... |
Pascal Симметричная матрица
https://www.cyberforum.ru/ pascal/ thread18927.html -- |
| Pascal Исправить программу Здравствуйте) У меня проблема с одной из программ.. Есть код программы, всё работает как надо, почти как надо.. Ввод значений массива осуществляется рандомно, а нужно чтобы осуществлялся с консоли или из файла (по выбору пользователя).. В принципе дело пустяковое, но заметил только сейчас, а нужно срочно.. Действительно срочно.. program odnomerniymassiv; uses crt; const n=15; var a:array of... https://www.cyberforum.ru/ pascal/ thread18926.html |
В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ Pascal Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. Впринципе все не сложные. Просто не успеваю,да и не оч хорошо поняла тему. Вот к примеру: 1)даны массивы a(10),b(11),c(12) вещестивенных чисел.Обнулить и распечатать тот массив чьё произведение положительных элементов минимально.Распечатать произведение для каждого массива 2)в матрице... |
| Pascal Произведение четных цифр Пожалуйста подскажите где ошибка Задача. Найти произведение всех четных цифр. Как мне кажется вроде все правильно указал, а нет, где-то ошибаюсь :( Program Number; var n,i,k:integer; P,R:real; https://www.cyberforum.ru/ pascal/ thread18916.html |
Pascal Найти сумму знакопеременного ряда
https://www.cyberforum.ru/ pascal/ thread18911.html Мне в МАИ дали курсовик сам брал академ всё позабывал не знаю что и как делать =( помогите пожалуйста ! ! ! Заранее благодарен Задания: 1) Найти сумму знакопеременного ряда Y=1+(X^2)/2!-(X^4)/3!+(X^6)/4!-... при /Х/<=1 Расчёт продолжать до тех пор, пока приращение |Y| будет больше заданной точности е, е<=|X|. На экран вывести результаты с соответсвующими комментариями. Это... |
|
Pascal Двусвязный список!!!! Даны числа D1 и D2 и указатель P0 на один из элементов непустого двусвязного списка. Добавить в начало списка новый элемент со значением D1, а в конец — новый элемент со значением D2. Вывести адреса первого и последнего элементов полученного списка. |
Pascal Получить самую последнюю длинную строку в файле
https://www.cyberforum.ru/ pascal/ thread18897.html Ребят помогите пожалуйста, вот задачка: Дан текстовый файл получить самую последнюю длинную строку. Благодарю за внимание :) |
|
2 / 1 / 0
Регистрация: 30.10.2008
Сообщений: 21
|
|
| 19.12.2008, 14:30 [ТС] | 0 |
Найти все числа, у которых старшая значащая десятичная цифра есть 9 - Pascal - Ответ 8486719.12.2008, 14:30. Показов 4798. Ответов 16
Метки (Все метки)
Ответ
В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть 9(числа сильно различаются по величине).
доработайте код! никак не получается! Код
Uses crt;
Var n,i:byte;
s:array [byte] of real;
a:array [byte] of real;
begin
Randomize;
clrscr;
write('Vvedite kol-vo elementov massiva:');
readln(n);
writeln('Masiv:');
for i:=1 to n do
begin
str(a[i],s);
if ((s[1]<>'0')and(s[1]<>'-')ans(s[1]='9'))
or((s[1]='-')and(s[2]='9'))then write(a[i]:5:2);
end;
end.
Вернуться к обсуждению: Найти все числа, у которых старшая значащая десятичная цифра есть 9 Pascal
0
|
|
| 19.12.2008, 14:30 | |
|
Готовые ответы и решения:
16
Найти все числа, у которых старшая значащая десятичная цифра равна 9 В массиве найти числа, у которых старшая значащая десятичная цифра равна 9
Найти все натуральные числа, десятичная запись которых есть строго возрастающая последовательность |
| 19.12.2008, 14:30 | |
| 19.12.2008, 14:30 | |
|
Помогаю со студенческими работами здесь
0
Вывести все двухзначные числа, в которых старшая цифра отличается от младшей не больше чем на 1
|