Написать процедуру, удаляющую из строки первое слово - Pascal ABC

  1. Написать процедуру, удаляющую из строки первое слово.


textual

Код:

uses crt;
procedure DelFirstWord(var s:string);
var i:integer; b:boolean;
 begin
 b:=false;
 for i:=1 to length(s) do
  if s[i] = ' ' then b:=true;
 i:=1;
 if b = true then
  begin
  while (s[i]<>' ') do
   inc(i);
  s:=copy(s,i+1,length(s));
  end;
 end;
 
var s:string;
begin
write('Введите слово: ');
readln(s);
DelFirstWord(s);
writeln(s);
end.


Похожие ответы
  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. Написать программу для построения графика функции. y=sqrt(2x+6)

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var a,c: integer; begin cls; randomize; a:=random (99999+99999+1)-99999; writeln ( 'исходное числo: ',a); if (a mod 10) mod 2 =0 then writeln (' делится на 2') else writeln (' не делится на 2'); while a<>0 do begin c:= c+(a mod 10); a:= a div 10; end; if c mod 3 = 0 then writeln (' число делится на 3') else writeln (' число не делится на 3'); end.признак делимости на 6 - это значит, что число делится на 2 и 3. я сделала по отдельности на 2 и 3 ( программа выше). а как это обобщить?

  1. Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции , заданной в виде графика. Параметр R задается константой.

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