Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти максимальное значение только из нечетных и его номер. https://www.cyberforum.ru/ pascal/ thread20445.html
Var a:integer; max,k,i,n:integer; begin writeln('введите кол-во чисел'); readln(n); max:=0;k:=0; writeln('введите числа:'); <- вот тут..как сделать??? fori:-1 to n do begin for i:=1 to n dp begin
Pascal Получить S= сумму максимального и инимального из данных чисел.
uses crt; var x, y, z, max, min:integer; begin readln(x); readln(y); readln(z); if (x > y) and (x > z) then max : = x; if (y > x) and (y > z) then max : = y; if (z > x) and (z > y) then max : = z; if (x < y) and (x < z) then min : = x; if (y < x) and (y < z) then min : = y; if (z < x) and (z < y) then min : = z;
Pascal Поиск подстроки в строке с подсчётом количества сравнений https://www.cyberforum.ru/ pascal/ thread20443.html
Вот есть прога которая ищет подстроку в текстовом файле, но немного неправильно. Помогите пожалуйста исправить. Препод говорит что прога должна находить в строке из 10000 букв a и одной b подстроку ab, и подсчитывать количество сравнений. Потом aab, aaab и т.д. При этом если поставить подстроку в середину или в начало тоже должна работать. Помогите пожалуйста, зачёт висит:'( Program strok; var...
Pascal Графика в Паскале ! Уважаемые программисты ! Помогите пожалуста доделать задачу ! Задание С клавиатуры ввести кардинаты точки. Программа должна определить находится ли точка в графическом режиме на нарисованных фигурах (с x и y осью и соответствующими кардинатами ) внутри,снаружи, или на линии ! Точку надо показать на рисунке и вывести соответствующие сообщение на экран. Фигуры закрасить полосками.... https://www.cyberforum.ru/ pascal/ thread20440.html
Дано натуральное число, найти сумму всех его натуральных делителей Pascal
1.) Процедуры и функции. Даны отрезки a,b,c,d для каждой тройки этих отрезков, из которых можно построить треугольник написать площадь этого треугольника. 3.) Операторы циклов. Дано натуральное число, найти сумму всех его натуральных делителей.
Pascal Нахождение подпоследовательности Всем доброго дня, давно меня тут не было... Есть задание: "Дана последовательность натуральных чисел а1, а2, …, аn. Разработать рекурсивную процедуру нахождения i и j, таких что подпоследовательность аi, аi+1, …, аj является перевертышем.Рекурсивным способом." Ломал голову, придумал только как сделать не рекурсивным способом, вот листинг моего решение: Program laba11a; type mas=array of... https://www.cyberforum.ru/ pascal/ thread20382.html
Pascal Схема алгоритма ГОСТ 19.701-90 https://www.cyberforum.ru/ pascal/ thread20375.html
Помогите выполнить задание а то деньги трясут преподы в универе просто ппц. Помогите пожалуйста, я к отчислению!!!! Пожалуйста!!!!!:'(:'(:'(:'(:'(:'(:'( Схема алгоритма должна быть составлена с обязательным соблюдением всех его свойств и ГОСТ 19.701-90, предусматривать ввод числа элементов массива(ов), выполнение вычислительной части, вывод введенных исходных данных, промежуточных значений и...
нахождение суммы, разности, произведения матриц Pascal
нахождение суммы, разности, произведенияматриц. С помощью этих объектов найти n-ю степень матрицы
Pascal Одномерные массивы.Найти разные элементы. Помогите, пожалуйста!))) С помощью процедур... 1) Даны два одномерных массива из целых чисел. Найти элементы, которые входят в один массив (найти неповторяющиеся элементы) 2) Даны 3 одномерных массива из целых чисел. Найти элементы, которые есть в 1 массиве и которых нет во 2 и 3 массивах. (просто вывести эти числа) Заранее спасибо))) https://www.cyberforum.ru/ pascal/ thread20370.html Pascal универсальная программа произведения двух матриц Всем привет! Помогите нам, пожалуйста!!! Нужна универсальная программа произведения двух матриц!!! https://www.cyberforum.ru/ pascal/ thread20342.html
Pascal Удалить из строки все пробелы
Помогите пожалуйста: надо удалить из строки все пробелы. Найти я их смог, а вот как удалить не знаю...
Pascal Модуль triangle, содержащий набор функций для выполнения расчета треугольников https://www.cyberforum.ru/ pascal/ thread20299.html
Разработаем модуль triangle, содержащий набор функций для выполнения расчета треугольников, используя известные формулы из геометрии. При этом предусмотрим два наиболее часто встречающихся способа задания треугольника: по трем сторонам и по координатам его вершин. Модуль позволяет выполнить следующие действия: - Вычисление сторон по координатам вершин треугольника; - Проверка существования...
133 / 132 / 29
Регистрация: 04.01.2009
Сообщений: 415
08.01.2009, 13:48 0

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. - Pascal - Ответ 90845

08.01.2009, 13:48. Показов 3808. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено skvot как решение

Решение

1)

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
38
39
40
41
42
43
Program N1;
uses crt;
 
const N=24;
 
Var
   i,k,m,l:integer;
   X,Y,Z: array[1..n]of integer;
 
begin
repeat
      write('Vvedite razmer massiva '); readln(k);
until (k<=N);
 
m:=0; l:=0;
 
Writeln;
Writeln('Massiv X');
for i:=1 to k do
begin
    readln(X[i]);
    if X[i]>=0 then
      begin
          inc(m);
          Y[m]:=X[i];
      end
    else
      begin
          inc(l);
          Z[l]:=X[i];
       end;
end;
 
Writeln;
Writeln('Massiv Y');
for i:=1 to m do
    write(Y[i],' ');
 
Writeln;
Writeln('Massiv Z');
for i:=1 to l do
    write(Z[i],' ');
end.
Добавлено через 22 минуты 42 секунды
2)

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
38
39
40
41
42
43
44
45
Program N2;
uses wincrt;
 
const N=3;
 
var A: array[1..n,1..n] of integer;
    i,j,temp,max,k: integer;
 
begin
     for i:=1 to n do
         for j:=1 to n do begin
                  write('A(',i,',',j,')='); readln(A[i,j]);
                  gotoXY(1,1);
                  clrscr;
             end;
 
     writeln('Vawa matrica');
     for i:=1 to n do begin
         for j:=1 to n do
              write(A[i,j],' ');
         writeln;
         end;
 
     for i:=1 to n do
      begin
        max:=A[i,1];
        k:=1;
        for j:=1 to n do
           if A[i,j]>max then
              begin
                  max:=A[i,j]; k:=j;
              end;
        temp:=A[i,i];
        A[i,i]:=A[i,k];
        A[i,k]:=temp;
      end;
 
     writeln;
     writeln('Sortirovannaya matrica');
     for i:=1 to n do begin
         for j:=1 to n do
              write(A[i,j],' ');
         writeln;
         end;
end.


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

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Дан массив символов, содержащий текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дан массив символов, содержащий текст, заканчивающийся точкой. Вывести на экран слова, содержащие...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы
Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы. ...

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

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

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