delo1005
?>

Pascal; дан текст, слова которого отделяются друг от друга пробелами. удалить из тек-ста слова, которые начинаются и заканчиваются одной и той же буквой. распечатать исходный и полученный тексты. вот сама , только там не работает delete. var s, s2, a, b: string; i: integer; begin writeln('введите текст'); readln(b); s : = b; writeln; writeln('удалённые слова: '); for i : = 1 to length(s) do begin if s[i] < > ' ' then a : = a + s[i]; if (s[i] = ' ') or (i = length(s)) then begin if a[1] = a[length(a)] then writeln(a); a : = ''; delete(s, i, length(a)); end; end; writeln; writeln('исходный'); writeln(b); writeln('изменённый текст'); writeln(s); end.

Информатика

Ответы

nadezhda81

Заменить участок текста:

writeln('Удалённые слова: ');  

i:=1; b:='';

repeat

 if s[i] <> ' ' then  

 a := a + s[i];  

 if (s[i] = ' ') or (i = length(s)) then  

 begin  

   if a[1] = a[length(a)] then writeln(a)

   else

   begin

     b:=b+a;

     if i<>length(s) then b:=b+' ';

   end;  

   a:='';

 end;  

 i:=i+1;

until i>length(s);  

WriteLn;  

WriteLn('Исходный');  

WriteLn(s);  

Writeln('Изменённый текст');  

WriteLn(b);  

alexderru

Короче - это методы с параметрами создаваемые элементами в WPF-форме, еще проще говоря: у тебя есть окошко где создаются кнопки, текстовые строки и т.д - это называется конструктор WPF форм, тот код что ты прикрепил это методы для каждой из кнопок/текстовых полей. Начнем с первого где написано Initialize...

Это метод по умолчанию, который всегда есть в программах с WPF .

Второй метод это метод который вызовется если нажать на кнопку button1 с параметрами которые там есть, однако он пустой поэтому ничего не произойдет.

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

Четвертый аналогичен третьему.

Пятый тоже аналогичен четвертому.

А вообще если вы не знаете что это методы стандартные для элементов WPF то лучше начать изучение ООП хотя бы, а уже потом делать WPF формы, они труднее обычного консольного приложения в разы .

Картузов-Алексей1252

#include <iostream>

#include <fstream>

#include <cmath>

#define n 3

signed main()

{

   setlocale(LC_ALL, "Ru");

   std::ifstream fRead("имя файла сюда");

   int matrix[n][n];

   long int _sum = 0;

   if (fRead.good()) {

       for (int i = 0; i < n; i++)

           for (int j = 0; j < n; j++)

               fRead >> matrix[i][j];

   }

   else {

       std::cout << "Ошибка в открытии файла!";

       return 0;

   }

   for (int i = 0; i < n; i++) {

       for (int j = 0; j < n; j++) {

           std::cout << matrix[i][j] << " ";    

           if (matrix[i][j] % 2 == 0)

               _sum += pow(matrix[i][j], 2);

       }

       std::cout << std::endl;

   }

   std::cout << _sum << std::endl;

   return 0;

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal; дан текст, слова которого отделяются друг от друга пробелами. удалить из тек-ста слова, которые начинаются и заканчиваются одной и той же буквой. распечатать исходный и полученный тексты. вот сама , только там не работает delete. var s, s2, a, b: string; i: integer; begin writeln('введите текст'); readln(b); s : = b; writeln; writeln('удалённые слова: '); for i : = 1 to length(s) do begin if s[i] < > ' ' then a : = a + s[i]; if (s[i] = ' ') or (i = length(s)) then begin if a[1] = a[length(a)] then writeln(a); a : = ''; delete(s, i, length(a)); end; end; writeln; writeln('исходный'); writeln(b); writeln('изменённый текст'); writeln(s); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

byfetvostochniy
petrova-kate3
ashantik
zipylin
Olenkalebedeva4477
rosik76
Валерьевна1601
gub191025
Лихачев Полина1978
nsh25044
mnkrasnova
Маринина_Елена
POMILEVAVladimirovna269
Краева
Павел_Перелыгин