Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Определить, в каком из двух предложений заданная буква имеет больший порядковый номер

Даны два предложения, в которых имеются буквы ш. Найти в каком из них эта буква имеет большой порядковый номер (при счете от начала предложения). Если в предложении имеются несколько букв ш, то должна быть учтена последняя из них.(Определить функцию для нахождения порядкового номера буквы последнего вхождения в предложения некоторой буквы.)
Ответ:
Код 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
uses crt;
function endpos(s:string;c:char):byte;
var i,p:byte;
begin
p:=0;
i:=length(s);
while(i>0)and(p=0) do
if s[i]=c then p:=i else dec(i);
endpos:=p;
end;
var s1,s2:string;
    n1,n2:byte;
begin
clrscr;
repeat
writeln('Введите первое предложение');
readln(s1);
n1:=endpos(s1,'ш');
if n1=0 then writeln('В предложении нет буквы ш, повторите ввод');
until n1>0;
repeat
writeln('Введите второе предложение');
readln(s2);
n2:=endpos(s2,'ш');
if n2=0 then writeln('В предложении нет буквы ш, повторите ввод');
until n2>0;
if n1>n2 then write('Последняя буква ш имеет порядковый номер больше в предложении 1')
else if n2>n1 then write('Последняя буква ш имеет порядковый номер больше в предложении 2')
else write('Последняя буква ш имеет одинаковый порядковый номер в обоих предложениях');
readln
end.
Вопрос: Найти порядковый номер наибольшего по значению числа, являющегося симметричным в десятичном представлении

Найти порядковый номер наибольшего по значению числа, являющегося симметричным в десятичном представлении
Ответ:
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
function Pal(S: String): Boolean;
//(C) Puporev
begin
  if Length(S) <= 1{если 0 или 1 символ, это палиндром} Then 
    Pal := True
  Else 
    Pal := (S[1] = S[Length(S)]) and Pal(Copy(S, 2, Length(S) - 2));
  {иначе проверяем совпадение символов симметрично от концов строки к середине}
end;
 
var
  s: string;
  i, max: byte;
 
begin
  {Найти порядковый номер наибольшего по значению числа, являющегося 
  симметричным в десятичном представлении}
  max := 0;
  readln(s);
  if pal(s) then
  begin
    for i := 1 to length(s) do
      if StrToInt(s[i]) > max then
        max := StrToInt(s[i]);
    writeln('Max = ', max)
  end
  else
    writeln('Число не симметрично.');
end.
Вопрос: Найти минимальное значение элемента и его порядковый номер в массиве

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

напишите программу, чтобы найти минимальное значение элемента и его порядковый номер в массиве из 50 случайных целых чисел в диапазоне от -100 до 100. сделайте контрольный вывод получившегося массива в строку.
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=50;
var 
a:array[1..n] of integer;
i,min,k:integer;
begin
 writeln('Массив');
 for i:=1 to n do begin 
 a[i]:=random(200)-100;
 write(a[i]:3);
 end;
 writeln;
 for i:=1 to n do begin
   if (a[i]<min) and (a[i]<k) then begin
   min:=a[i];
   k:=i;
   end;
   end;
   writeln('Минимальный элемент массива = ',min);
   writeln('Порядковый номер элемента = ',k);
end.
Вопрос: Строка: проверить по порядковому номеру символа не пробел ли это и вывести порядковый номер слова

Вобщем, есть программа, которая высчитывает порядковый номер слова в строке и номер позиции, в которой оно начинается. Как можно её переделать так, чтобы она считывала с Edit номер позиции, проверяла не пробел ли там и выводила бы порядковый номер слова, которое стоит на этой позиции? Помогите сделать, буду очень признателен
Ответ:
C++
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int nomWrd, nomPoz, wmax=0 ;
   TStringList *StList1 = new TStringList;
   StList1->CommaText = Edit1->Text;
   for(int i=0;i<StList1->Count;i++)
     if(StList1->Strings[i].Length() > wmax)
       { nomWrd = i; wmax=StList1->Strings[i].Length(); }
   nomPoz = Edit1->Text.Pos(StList1->Strings[nomWrd]);
   Label1->Caption = "Порядковый номер слова: "+IntToStr(nomWrd+1);
   Label2->Caption = "Номер позиции слова: "+IntToStr(nomPoz);
}
//---------------------------------------------------------------------------
Вопрос: Найти порядковый номер последнего максимального числа.

Написать программу на Паскале.
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причем других равных нулю чисел в последовательности нет. Найти порядковый номер последнего максимального числа.
Помогите)
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a,mx:real;
    i,k:integer;
begin
writeln('Введите последовательность неотрицательных чисел, окончание ввода 0');
i:=0;
repeat
readln(a);
inc(i);
if i=1 then
 begin
  mx:=a;
  k:=1;
 end
else if a>=mx then
 begin
  a:=mx;
  k:=i;
 end;
until a=0;
writeln('Порядковый номер последнего максимального элемента=',k);
end.
Вопрос: Каждую букву заменить ее порядковым номером в алфавите

Доброго времени. Очень нужна помощь с заданием.
В тексте каждую букву заменить ее порядковым номером в алфавите. При выводе в одной строке печатать текст с
двумя пробелами между буквами, в следующей строке внизу под каждой буквой печатать ее номер.
Текст брать из файла (у меня это text.txt).
Так просто вывожу оригинальный текст из файла.
Java
1
2
3
4
5
6
7
8
9
10
11
12
13
try {
            BufferedReader br = new BufferedReader(new FileReader("text.txt"));
            String tmp;
            while ((tmp = br.readLine()) != null)
            {
                System.out.println(tmp);
            }
            //br.close();
        }
        catch (IOException e)
        {
            e.printStackTrace();
        }
Запуталась с алгоритмом получения порядкового номера буквы в алфавите и выводе как требуется. Находила здесь же, на форуме код:
Java
1
2
3
4
5
6
7
8
9
String testString = "Text   text   test".toLowerCase();
        String codeString = "";
        String formattedString = "";
        for(char ch : testString.toCharArray()) {
            codeString += Character.isAlphabetic(ch) ? String.format("%-3s",ch - 'a' + 1) : ch;
            formattedString += Character.isAlphabetic(ch) ? String.format("%-3s",ch) : ch;
        }
        System.out.println(formattedString);
        System.out.println(codeString);
Он не работает для русского и не очень понятен механизм работы.
Если кто-нибудь может, объясните, пожалуйста принцип и помогите все это сделать для файла.
Ответ: Так в шапке темы и написано ведь целиком задание - а там условие брать текст из файла. Отсюда и вопросы. Отдельно код, выдающий порядковый номер каждой буквы есть. Отдельно вывод из файла на консоль есть. У меня не получается реализовать алгоритм сопоставления буквы и ее порядкового номера в алфавите конкретно для теста из файла.
Вопрос: Найти среди четырех чисел порядковый номер числа, отличающегося от трех других, равных между собой.

IF19. Данные четыре целых числа, одно из которых отличается от трех других, равных между собой. Определить порядковый номер числа, отличного от других.
Ответ: Не совсем понял суть что надо сделать... но вот попробуй
C++
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
#include <iostream>
 
using namespace std;
 
 
int main()
{
    setlocale(LC_ALL, "Russian");
    int chislo1 = 23;
    int chislo2 = 23;
    int chislo3 = 23;
    int chislo4;
    cout << "Введите число\n";
    cin >> chislo4;
    if (chislo4 == chislo1 && chislo2 && chislo3)
    {
        cout << "Ваше число соответствует трем другим\n";
    }
    else
    {
        cout << "Ваше число не соответствует трем другим\n";
        cout << "Его порядковый номер: " << chislo4 << endl;
    }
    system("pause");
    return 0;
}
Вопрос: Найти в введенной строке чисел цифру, по указанному порядковым номером

Cоставить программу, которая находит в введенном строке чисел цифру, по указанному порядковым номером. Наприкад
Входные данные:
5
121545481548544
Исходные данные:
4
Ответ:
Сообщение от Artemio-10
А можете написать при помощи строк?
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/////////////////////////////////////////////////////////////////////
// Cоставить программу, 
// которая находит в введенном строке чисел цифру, 
// по указанному порядковым номером. Наприкад
// Входные данные:
// 5
// 121545481548544
// Исходные данные:
// 4
/////////////////////////////////////////////////////////////////////
#include <iostream>
#include <string>
/////////////////////////////////////////////////////////////////////
int main()
{
    std::string str{};
    int idx{};
    std::cin >> idx >> str;
    std::cout << str.at( idx - 1 ) << std::endl;
}
Вопрос: Определить порядковый номер наименьшего из последовательности чисел

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.
Помогите пожалуйста
Ответ:
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
const n = размер последовательности; // устанавливаем размер
var a: array[1..n] of integer; // объявляем массив
    i, min: integer; // переменные-счетчики
...
min := 0; // зануляем переменную (на всякий случай)
for i := 1 to n - 1 do // запускаем цикл
  if a[i] < a[i + 1] then // если текущий элемент меньше последующего, то
    min := i // записываем порядковый номер текущего элемента
  else // иначе
    min := i + 1; // записываем порядковый номер последующего элемента
...
В переменной min будет содержаться нужный номер.
Вопрос: Задача на определение порядкового номера

Условие: Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.
Если кому надо вот код этой задачи на Pascal:
Кликните здесь для просмотра всего текста

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
k,min,mini,kl:integer;
begin
  writeln('введите првое число последовательности');
  readln(k);
  min:=k;
  mini:=1;   kl:=1;
    while k <> 0 do
     begin
      writeln('Введите число');
      readln(k);
      kl:=kl+1;
        if k < min then
          begin
            min:=k;
            mini:=kl;
          end;
     end;
   writeln('Минимальный ',min,' порядковый номер ',mini);
end.
Ответ:
Код Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
var
  Form1: TForm1;
  a,p,mn,imn,f:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('Вводите натуральные числа, окончаеие ввода ноль');
Edit2.ReadOnly:=true;//запретим ввод в Эдит2
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,k:integer;
begin
val(Edit1.Text,a,k); //проверяем что введено именно число и натуральное
if (k<>0)or(a<0) then
 begin
  Edit1.Clear;
  Edit1.SetFocus;
 end
else
 begin
  a:=StrToInt(Edit1.Text);
  inc(p); //считаем
  if a>0 then //если не 0
   begin
    Edit2.Text:=Edit2.Text+' '+Edit1.Text; //выводим
    f:=1;//фиксируем
    if p=1 then //если первое
     begin
      mn:=a; //то пока минимальное
      imn:=1
     end
    else if a<mn then//если не первое и меньше mn
     begin
      mn:=a; //то это мин
      imn:=p
     end
   end
  else //если 0
   begin
    if f=0 then
     begin
      ShowMessage('Вы не ввели н одного числа кроме 0');
      exit
     end;
    ShowMessage('Порядковый номер наименьшего числа='+inttostr(imn));//выводим результат
    Button1.Enabled:=false;//выключаем кнопку
   end;
  Edit1.Clear;//очистим Эдит
  Edit1.SetFocus;//переведем в него фокус
 end;
end;