Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 Аватар для snachdota
0 / 0 / 0
Регистрация: 27.07.2015
Сообщений: 11

Предлагает ввести строку символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка

16.06.2017, 16:08. Показов 1022. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, нужно перевести код из Java в Pascal. Но задания разные для них. Нужна помощь. Буду благодарен.

Такое задание было на Java.

1. Предлагает ввести строку, содержащую буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. Решить данную задачу двумя способами – без использования стандартных процедур и функций для работы со строками и с их использованием.

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

3. Вычисляемая функция имеет вид: 2xy = 49. Составить таблицу значений x и y для диапазона значений х от –10 до +10. Результат должен быть напечатан в два столбца шириной 10 символов с выравниванием по левому краю. Перед значением координат должен выводиться знак, как для отрицательных значений, так и для положительных.


Вот решение:

1
Java
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
package programmingLanguage;
import java.util.Scanner;
public class Laba2_1 {
    public static void main(String[] args) {
        Scanner scanner = new Scanner(System.in);
        System.out.println("Please enter your string: ");
        String simbol = scanner.nextLine();
        int count1=0;
        String number1="";
        String finalNumber1="";
        int maxCount1=0;
        int count2=0;
        String number2="";
        String finalNumber2="";
        int maxCount2=0;
        for (int i=0; i < simbol.length(); i++){
            if(Character.isDigit(simbol.charAt(i))){
                count1++;
                number1 = number1 + simbol.charAt(i);
            }
            else {
                if (count1>maxCount1){
                    maxCount1=count1;
                    finalNumber1=number1;
                }
                number1="";
                count1=0;
            }
 
        }
        System.out.println("number1= " + finalNumber1);
 
        char [] arrStr = simbol.toCharArray();
        for (int i=0; i < arrStr.length; i++){
            if (arrStr[i] == '0' || arrStr[i] == '1' || arrStr[i] == '2' || arrStr[i] == '3' || arrStr[i] == '4' || arrStr[i] == '5' || arrStr[i] == '6' || arrStr[i] == '7' || arrStr[i] == '8' || arrStr[i] == '9'){
                count2++;
                number2 = number2 + arrStr[i];
            }
            else {
                if (count2>maxCount2){
                    maxCount2=count2;
                    finalNumber2=number2;
                }
                number2="";
                count2=0;
            }
        }
        System.out.println("number2= " + finalNumber2);
    }
}

2
Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
package programmingLanguage;
import java.util.Scanner;
public class Laba2_2 {
    enum colorsOfRainbow{red, orange, yellow, green, blue, indigo, violet}
    public static void main(String[] args) {
        Scanner scanner = new Scanner(System.in);
        System.out.println("Please enter your color: ");
        String yourColor = scanner.nextLine();
        colorsOfRainbow [] color = colorsOfRainbow.values();
        for (int i=0; i<7; i++){
            if (yourColor.equals(color[i].toString())){
                System.out.println(color[i-1] + " and " + color[i+1]);
            }
        }
    }
}

3
Java
1
2
3
4
5
6
7
8
9
package programmingLanguage;
public class Laba2_3 {
    public static void main(String[] args){
        for (float x = -10; x<=10; x++){
            System.out.format("%-+10.0f", x);
            System.out.format("%-+10.3f%n", 49/(2*x));
        }
    }
}


А вот задание на Pascal.

1. Предлагает ввести строку символов, среди которых есть одна открывающаяся и
одна закрывающаяся скобка. Вывести на экран все символы, расположенные
внутри этих скобок. Решить данную задачу двумя способами – без
использования стандартных процедур и функций для работы со строками и с их
использованием.

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

3. Вычисляемая функция имеет вид: y = 3 - 2^х. Составить таблицу значений x и y,
для диапазона значений х от –5 до +5. Результат должен быть напечатан в два
столбца шириной 10 символов с выравниванием по левому краю. Перед
значением координат должен выводиться знак, как для отрицательных
значений, так и для положительных.

---------------------------------------------------------------------------------------------------------------------
Не хватает знаний написать на Pascal, код получается кривой и ошибок очень много. Прощу помощь.

Добавлено через 3 часа 49 минут
Разрешили только на Java написать. Pascal уже не нужен. Тему можно закрывать спасибо.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.06.2017, 16:08
Ответы с готовыми решениями:

Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки
Помогите плиз! Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки. Вывести на экран все символы,...

Дана строка символов,среди которых есть одна открывающаяся и одна закрывающая скобка
Дана строка символов,среди которых есть одна открывающаяся и одна закрывающая скобка.Вывести на экран все символы,расположенные внутри этих...

На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра.
На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра. Окончание ввода ― цифра. Длина...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.06.2017, 16:08
Помогаю со студенческими работами здесь

Дано натуральное число n и символы s1, s2, ... sn, среди которых есть хотя бы одна точка
Дано натуральное число n и символы s1, s2, ... sn, среди которых есть хотя бы одна точка. Преобразовать последовательность s1, s2, ... sn,...

Выяснить, имеется ли у него одна самая короткая строка или таких строк несколько. Вывести одна или не одна.
дaн текстовый файл с произвольным именем. Выяснить, имеется ли у него одна самая короткая строка или таких строк несколько. Вывести одна...

Заданы три числа Определить есть ли среди них хотя бы одна пара равных по величине
помогите решить задачу. Заданы три числа Определить есть ли среди них хотя бы одна пара равных по величине

Заданы три числа. Определить, есть ли среди них хотя бы одна пара одинаковых чисел
Решите, пожалуйста, такую задачу: Заданы три числа. Определить, есть ли среди них хотя бы одна пара одинаковых чисел. p.s. с...

Дана строка. В ней есть одна открывающая и одна закрывающая скобка. Вывести на экран все символы, расположенные между ними
Дана строка.В ней есть одна открывающаяся скобка и одна закрывающаяся скобка.Вывести на экран все символы,расположенные между ними. ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru