программа на паскаль abc, нужно доделать

03.04.2013, 16:30. Показов 548. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Поменять первое слово предложения с самым коротким, последнее с самым длинным. В общем, написала программу, которая находит самое короткое и самое длинное слово и их меняет местами, помогите доработать пожалуйста

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
var
s,s1,b:string;
    a:array[1..100]of string;
i,k,min,max:integer;
begin
write('введите строку : ');
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]=' ' then
inc(k)
else
a[k]:=a[k]+s[i];
min:=1;
max:=1;
for i:=1 to k do
begin
if length(a[i])>length(a[max]) then max:=i;
if length(a[i])<length(a[min]) then min:=i;
end;
   writeln('самое длинное слово: ',a[max]);
   writeln('самое короткое слово: ',a[min]);
b:=a[max];
a[max]:=a[min];
a[min]:=b;
 
for i:=1 to k do
s1:=s1+a[i]+' ';
writeln(s1);
readln;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

03.04.2013, 16:30

Ответы с готовыми решениями:

Нужно перевести графический режим турбо паскаля в паскаль ABC. Сам не могу разобраться с операторами ABC
Uses crt, graph; Var a, b, { Границы отрезка } r, r2, { Предыдущее и текущее приближенные...

Нужно переделать программа под Pascal ABC
label n1,n2; var A : arrayof integer; b, t : arrayof integer; n,l,x,c,i,j : integer; Begin writeln('vvedite koli4estvo vershin...

Дана программа на Бейсике. Нужно перевести ее на Паскаль
Дана программа на Бейсике, которая создает двоичный файл "66-838" с участком таблицы FAT. Нужно перевести эту программу на Паскаль. И...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

03.04.2013, 16:30

Помогаю со студенческими работами здесь

Преобразовать в паскаль abc
Помогите преобразовать код в паскаль abc: uses crt, graph; const x:array of string=('Knigi','Zurnaly','Kanctovary','Proctee'); ...

Функции . Паскаль abc
Здравствуйте! Помогите пожалуйста переделать на функцию program test; var f:text; k,j,i:integer; str,slovo:string; l:array...

Преобразовать в паскаль abc
Нашел на этом форуме программу. Мне нужно в паскале абц. Помогите перегнать синтаксис. uses crt,graph; var...

Преобразовать в паскаль abc
Помогите преобразовать в паскаль abc: uses crt,graph; const B=200; var drive,mode,i:integer; x,y,t:real; begin drive:=detect; ...

Преобразовать в паскаль ABC
Помогите преобразовать код в паскаль abc. Работает только в ABC.net. program lol10_2; // подкдлючаем модуль uses crt; ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Наверх