Задания на строки

@Ника · Регистрация: 09.04.2009

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

Помогите пожалуйста.

Дан массив из 10 строк. Отпечатать строку с максимальной длинной, если в ней нет символа «Z» и отпечатать строку с минимальной длинной, если в ней есть символ «X»

Добавлено через 23 минуты 11 секунд
И ещё если можно,помогите пожалуйста довести до ума задачу)

Дана строка s. Определить чередуются ли в строке гласные буквы с согласными.

Вроде как-то так должно решаться:

…
glas: = `aeoyuAEOYU`

…

Flag: = trye;
For i = 1 to length (s) – 1 do
If ((s[i] <= `z`) and (s[i] >= `A`) or (s[i]<=`z`) and (s[i]>=`a`) and ((s[i+1]<=`z`) and (s[i+1]>=`A`) or (s[i+1]<=`z`) and (s[i+1]>=`a`))
Then
If (pas(s[i], glas)<>0) and (pos(s[i+1],glas)=0) or (pos [i+1],glas)<> 0)
And (pas(s[i],glas)<>0)
Then
Else Flag:= false
Else Flag: = False;
If Flag
Then writeln (`чередуются`)

@aNdRyXa · 09.04.2009, 23:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program P;
var max, max_id, min, min_id: integer;
begin
  max := 0;
  min := 100;
  for i := 1 to 10 do
  begin
    if pos('Z', A[i]) > 0 then
      if length(A[i]) > max then
      begin
        max := length(A[i]);
        max_id := i;
      end;
    if pos('X', A[i]) > 0 then
      if length(A[i]) < min then
      begin
        min := length(A[i]);
        min_id := i;
      end;
  end;
  writeln('max stroka s "Z"', A[max_id]);
  writeln('min stroka s "X"', A[min_id]);
end.

@Halva · 10.04.2009, 00:05

Первая задача

Code
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
uses crt;
const
z='z';
x='x';
var
s:array[1..10]of string;
i:integer;
min,max:string;
 
begin
for i:=1 to 10 do
begin
read(s[i]);
end;
min:=s[1];
for i:=2 to 10 do
begin
if length(s[i])<length(min) then
min:=s[i];
end;
max:=s[1];
for i:=2 to 10 do
begin
if length(s[i])>length(max) then
max:=s[i];
end;
if pos(x,min)=0 then
writeln('Минимальная по длине строка ', min);
if pos(z,max)=0 then
writeln('Максимальная по длине строка ', max);
end.

@aNdRyXa · 10.04.2009, 00:07

Во втором задании в строке могут быть символы кроме букв? и буквы - только латиница?

@Ника · 10.04.2009, 00:40 **[ТС]**

Сообщение от aNdRyXa

Во втором задании в строке могут быть символы кроме букв? и буквы - только латиница?

символов не должно быть,да,только

@aNdRyXa · 11.04.2009, 01:42

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  sogl = 'bcdfghjklmnpqrstvwxzBCDFGHJKLMNPQRSTVWXZ';
  glas = 'aeiouyAEIOUY';
var k: integer;
begin
  k := 0;
  for i := 1 to length(s)-1 do
    if ((pos(s[i], sogl) > 0)and(pos(s[i-1], glas) > 0)) or ((pos(s[i], glas) > 0)and(pos(s[i-1], sogl) > 0) then
      k := k + 1
    else
    begin
      writeln('Ne 4eredyutcia!');
      hault; //выход из программы
    end;
  writeln('4eredyutcia');

если с hault не получится, поставь после цикла условие: k = length(s)-1.

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@Ника 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 7

	Задания на строки 09.04.2009, 23:46. Показов 1005. Ответов 5 Метки нет (Все метки) Помогите пожалуйста. Дан массив из 10 строк. Отпечатать строку с максимальной длинной, если в ней нет символа «Z» и отпечатать строку с минимальной длинной, если в ней есть символ «X» Добавлено через 23 минуты 11 секунд И ещё если можно,помогите пожалуйста довести до ума задачу) Дана строка s. Определить чередуются ли в строке гласные буквы с согласными. Вроде как-то так должно решаться: … glas: = `aeoyuAEOYU` … Flag: = trye; For i = 1 to length (s) – 1 do If ((s[i] <= `z`) and (s[i] >= `A`) or (s[i]<=`z`) and (s[i]>=`a`) and ((s[i+1]<=`z`) and (s[i+1]>=`A`) or (s[i+1]<=`z`) and (s[i+1]>=`a`)) Then If (pas(s[i], glas)<>0) and (pos(s[i+1],glas)=0) or (pos [i+1],glas)<> 0) And (pas(s[i],glas)<>0) Then Else Flag:= false Else Flag: = False; If Flag Then writeln (`чередуются`) 0

@aNdRyXa 14 / 14 / 6 Регистрация: 28.03.2009 Сообщений: 46
	10.04.2009, 00:07
	Во втором задании в строке могут быть символы кроме букв? и буквы - только латиница? 1

@Ника 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 7
	10.04.2009, 00:40 [ТС]
	Сообщение от aNdRyXa Во втором задании в строке могут быть символы кроме букв? и буквы - только латиница? символов не должно быть,да,только 0

Опции темы