М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
leesasha083
leesasha083
25.04.2021 21:39 •  Информатика

Склавиатуры вводится строка. подсчитать в ней количество слов. pascal abc

👇
Ответ:
irkaveerova
irkaveerova
25.04.2021
Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:

Var s:string;   
  i,k:integer;
Begin 
  writeln('Введите строку'); 
  readln(s); 
  k:=0; 
  for i:=1 to length(s) do 
  begin   
    if s[i]=' ' then k:=k+1; 
  end; 
  writeln('Количество слов в предложении = ',k+1);
end.

А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:

var s: string;   
   i, k: integer;
begin 
  k := 0; 
  writeln('Введите строку: '); 
  readln(s); 
  s:= ' ' + s; 
  for i:=1 to length(s)-1 do   
   if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; 
  writeln(k)
end.
4,4(46 оценок)
Открыть все ответы
Ответ:
NikolaTesla666
NikolaTesla666
25.04.2021

Здравствуй!

Объяснение:

Си в том числе и,язык сишарп высокоуровные языки программирование при их можно писать различные сложности программ. Если к примеру есть from(форма) в ней кнопке, поля, переелючатели и так далее. При этом если в кнопке прописано менять цвет по нажатию кнопки то изменится. Много палитр цеветов как по номеру цвета тае и английским языков.

ООП- обьектно орентированное программирование.

Если есть тело программы, то у этого языка может быть несколько(методы)

Static void main

(

)

Это тело программы

Дальше staic void n1

(

main();

)

Один метод вызывает ранний и обращается к нему

Классы не много друю роль выполняют, в них есть присвоенное значение элементов

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

Есть публичные классы или закрытые.

Так же как и методы

4,4(93 оценок)
Ответ:
Zenkinadasha
Zenkinadasha
25.04.2021
Type
  tR = real;
  tF = file of tR;

procedure SwapFile(fn1, fn2: string);
var
  r: tR;
  fin, fout: tF;
begin
  Assign(fin, fn1); Reset(fin);
  Assign(fout, fn2); Rewrite(fout);
  while (not Eof(fin)) do begin Read(fin, r); Write(fout, r) end;
  Close(fin); Close(fout)
end;

var
  f1, f2, f3, f4, f5, fh: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin'; fh := 'tmp.bin';
  { f2 <-> f4 }
  SwapFile(f2, fh); SwapFile(f4, f2); SwapFile(fh, f4);
  { f5->h, f3->f5, f1->f3, h->f1 }
  SwapFile(f5, fh); SwapFile(f3, f5); SwapFile(f1, f3); SwapFile(fh, f1)
end.

Для тестирования
Можно создать тестовые файлы с следующей программы:
type
  tR = real;
  tF = file of tR;

procedure WF(fn: string; m, n: integer);
var
  fout: tF;
  i: integer;
begin
  Assign(fout, fn); Rewrite(fout);
  for i := m to n do Write(fout, i / 2);
  Close(fout)
end;

var
  f1, f2, f3, f4, f5: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin';
  WF(f1, 3, 7); WF(f2, 11, 19); WF(f3, -6, 9); WF(f4, 0, 11); WF(f5, 14, 22);   
end.

Далее можно просмотреть содержимое созданных файлов с следующей программы:
type
  tR = real;
  tF = file of tR;

procedure WF(fn: string);
var
  fin: tF;
  r: tR;
begin
  Writeln(fn);
  Assign(fin, fn); Reset(fin);
  while (not Eof(fin)) do
  begin Read(fin, r); Write(r:0:1, ' ') end;
  Writeln;
  Close(fin)
end;

var
  f1, f2, f3, f4, f5: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin';
  WF(f1); WF(f2); WF(f3); WF(f4); WF(f5)
end.

Затем выполнить основную программу по перезаписи и снова запустить программу для просмотра обновленнных файлов.
4,7(22 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ