Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Магический квадрат "Магическим" квадратом называется квадратная матрица целых чисел от 1 до N,расположенных так, что суммы элементов каждоый строки,каждого столбца и обеих диагоналей одинаковы. Построить "магический квадрат" для N=3 и N=4.Только не отдельно а в const можно было поменять бы N и строился бы квадрат 3 на 3 или 4 на 4..Помогите пожалуйста!!!!на завтра нужно=( https://www.cyberforum.ru/ pascal/ thread41494.html Pascal дан одномерный массив с размером n.
1) дан одномерный массив с размером n. Найти максимальный элемент среди отрицательных элементов массива и заменить его первым элементом массива 2) дана матрица А(N,N). Если хотя бы один элемент строки матрицы отрицателен, то все элементы этой строки заменить нулями. 3) дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до...
Pascal Дан массив из n-элементов.Найти число отрицательных элементов и их сумму Дан массив из n-элементов.Найти число отрицательных элементов и их сумму помогите пожалуйста,плиз https://www.cyberforum.ru/ pascal/ thread41482.html Pascal Дан целочисленный массив размера N https://www.cyberforum.ru/ pascal/ thread41481.html
1. Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Увеличить каждый элемент массива на число, равное порядковому номеру элемента. Результат вывести на экран. 2. Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Найти количество раз, которое в массиве появляется наиболее часто встречаемый элемент....
Составить программу для вычисления значений функции f(х) на отрезке Pascal
товарищи программисты и пасколисты! помогите пожалуста с решением программ! а то у самой скора голова лопнет! ну не как они не поддаются бедной студенке :( вся надежда на вас :) 3. Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиус вписанной и описанной окружности. 6. Даны действительное число a и натуральное число n. Вычислить 7. Даны две...
Pascal Сортировка в матрице. https://www.cyberforum.ru/ pascal/ thread41443.html
Помогите, пожалуйста, решить задачу!Необходимо упорядочить строки матрицы по неубыванию элементов каждого столбца
Pascal Линейный алгоритм. Напишите пожалуйста код этой программы полностью. sum := 0; for i := 1 to 50 do begin sum := sum + A*(p+Q*(i-1))/100; if(sum > C) then break; end; if(sum > C) then writeln('число рожденных детей за ', i, 'лет превысило ', C, 'детей') else writeln('число рожденных детей за 50 лет не превысило ', C, 'детей') (P.S. сама задача на фотке) https://www.cyberforum.ru/ pascal/ thread41434.html Линейные массивы. Pascal
Поправьте пожалуйста код программы в соответствии с условием. Cоставить программу, которая находит произведение элементов, меньших среднего арифметического всех элементов, сумму элементов, больших среднего арифметического, в массивах X(6) и Y(8). Вычисление суммы и произведения оформить в виде подпрограммы.(УСЛОВИЕ) var a:array of integer; b:array of integer; pr,summ,summ2,i:integer;...
Pascal Создайте функцию Задача выложенная на фотке,сессия,выручите:( https://www.cyberforum.ru/ pascal/ thread41432.html Pascal Разность велечин массивов https://www.cyberforum.ru/ pascal/ thread41431.html
Дан массив A из N элементов.Определить разность наибольшей и наименьшей абсолютной величины элемента в масиве
Программа движения маятника Pascal
Нужно создать программу движения маятнтка, запрограмировать нажатие любой клавиши на остановку маятника. Повторное нажатие, маятник продолжает двигиться.
Pascal Определить количество слов, у которых первая буква совпадает с последней буквой первого слова. Помогите, пожалуйста, вывод подсчитанной строки сделать, не получается :(( var s,s1,ch: string; A,B :integer; WriteLn('Введите строку:'); ReadLn(s); S := S + ' '; A := 0; B := 0; Ch := S; while Pos(' ', S) > 0 do begin https://www.cyberforum.ru/ pascal/ thread41428.html
1 / 1 / 0
Регистрация: 09.05.2009
Сообщений: 9
22.06.2009, 16:33 0

С клавиатуры вводится строка длиной N - Pascal - Ответ 200255

22.06.2009, 16:33. Показов 695. Ответов 4
Метки (Все метки)

Ответ

program vvod;
Var
str:string;
y,i:integer;
begin
writeln('Введите строку символов');
readln(str);

y:=Length(str);

if (y>2) and (y<100) then

for i:=y to 1 do

write(str[i]);

end.


(Вроде так, ща компилятора под рукой нет если будет ругаться скажи)

Добавлено через 2 минуты 5 секунд
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program imja;
uses crt;
var
i:integer;
s:string;
begin
writeln('vvedite stroky');
readln(s);
for i:=length(s) downto 1 do begin
write(s[i]);
end;
readln;
end.
Вы забыли про проверку условия

Добавлено через 1 минуту 16 секунд
А я про downto...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program vvod;
Var
str:string;
y,i:integer;
begin
writeln('Введите строку символов');
readln(str);
 
y:=Length(str);
 
if (y>2) and (y<100) then
 
for i:=y downto 1 do
 
write(str[i]);
 
end.


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

Дана строка символов. Нужно утроить букву А в три раза. Предложение вводится с клавиатуры
дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры ...

дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры
помогите решить задачу

дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры помогите пожалуста
дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры помогите...

С клавиатуры вводится строка. Удалить из строки те слова, в которых встречаются английские буквы "A", "E", "O"
Можете ,пожалуйста,написать программу, без массивов

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

Дана строка длиной не более 40 латинских символов
Дана строка длиной не более 40 латинских символов. Последний символ – «.». Слова в тексте разделены...

Вводится строка текста из N символов
1. Вводится строка текста из N символов, слова разделены одним пробелом. Составьте программу,...

С клавиатуры вводится строка "Фамилия Имя Отчество". Изменить вывод строки на "Имя Отчество Фамилия"
С клавиатуры вводится строка &quot;Фамилия Имя Отчество&quot;. Изменить вывод строки на &quot;Имя Отчество...

С клавиатуры вводится двумерный массив...
Здравствуйте! Помогите с 3-мя задачами пожалуйста :) С клавиатуры вводится двумерный массив...

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