0 / 0 / 0
Регистрация: 28.12.2008
Сообщений: 5
1

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

08.01.2009, 10:17. Показов 3491. Ответов 2
Метки нет (Все метки)

Обработка числовых массивов
1.Дан массив X(N). Переписать в массив Y подряд положительные и в массив Z отрицательные эле-менты массива Х, при N<=24.

Обработка числовых матриц
2.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.

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

Файлы
4.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.

Подпрограмма
5.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали

Ребят решите пожалуйста!Очень прошу!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2009, 10:17
Ответы с готовыми решениями:

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

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

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

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

2
133 / 132 / 29
Регистрация: 04.01.2009
Сообщений: 415
08.01.2009, 13:48 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.
0
Программист TH
290 / 145 / 12
Регистрация: 06.01.2009
Сообщений: 537
08.01.2009, 14:17 3
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
тебе в консоли с помощью компонентов можно. Если с помощью компонентов это всё делается в несколько строк..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2009, 14:17
Помогаю со студенческими работами здесь

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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