Читать книгу Языки программирования и нейросети. Решение задач - - Страница 4

Вот теперь перейдем к решению первых задач по программированию на языке Паскаль.

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

1.Традиционный (обычный) способ

Программа записана на языке Паскаль, ее реализация оформлена в системе программирования Pascal ABC.NET и приведены пояснения и комментарии.

2.Решение задачи с помощью нейросети

Программа записана на языке Паскаль и приведены пояснения и комментарии

2.1.Решение задач

Дано: сторона квадрата a. Найти его периметр P = 4*a

1.Традиционное решение (см. рис.4).

Рис.4.Программа на языке Паскаль и ее реализация в системе программирования Pascal ABC.NET.

Рис.4.Программа на языке Паскаль и ее реализация в системе программирования Pascal ABC.NET.

Смотрим основные моменты по строкам программы:

1) В первой строке у нас идет описание переменных, и на это указывает служебное слово var.

2) Описываем переменные a, P как вещественные (real – вещественный тип данных).

4) Служебное слово begin указывает на начало программы. После него идет описание операторов, которые программа будет выполнять один за другим.

8) Вводим длину стороны квадрата. При этом в строках 5 и 6 выводим на экран информацию о запросе ввода.

10) Вычисляем периметр квадрата по формуле P = 4·a.

12) Выводим результат, выделяя для результата 2 знака после запятой.

13) readln означает ожидание программы до нажания клавиши Enter – после этого программа продолжит свое выполнение.

14) Наконец, служебное слово end с точкой в конце означает завершение программы.

2.Решение задачи с помощью нейросети

Я пытаюсь спровоцировать нейросеть на решение этой задачи и ввожу исходные данные a = 10; a = 12; a = 31.

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

Я все время требую от GPTutor невозможного: нельзя решить эту задачу на ПК, без предварительной загрузки и отладки программы этой задачи в системе Pascal ABC.NET.

А нейросеть GPTutor при этом еще оправдывается и «чувствует себя виноватой».

И предлагает новые варианты модификации программы этой задачи.

Я продолжаю вводить новые исходные данные, с большим интересом ожидая реакции GPTutor.

Не знаю, как вам, а мне все действия нейросети очень понравились. На основе данной задачи нейросеть GPTutor провела мастер – класс по программированию на языке Паскаль.

Задача 2.

Дано: сторона квадрата a. Найти его площадь S = a^2.

1.Традиционное решение (рис.5)

Рис.5.Программа на языке Паскаль и ее реализация в системе программирования Pascal ABC.NET.

6) Вводим значение переменной a и переходим на следующую строку.

7) Вычисляем площадь квадрата S = a^2 непосредственным умножением. Для вычисления квадрата числа мы могли бы использовать функцию sqr (x).

8) Выводим значение площади с точностью до двух знаков после запятой.

2.Решение задачи с помощью нейросети

Задача 3.

Дан диаметр окружности d. Найти ее длину L = п*d. В качестве значения п использовать 3,14.

1.Традиционное решение (см. рис.6).

Рис.6.Программа на языке Паскаль и ее реализация в системе программирования Pascal ABC.NET.

Здесь нужно сделать небольшой комментарий относительно числа «пи». Как упоминалось в начале, в паскале есть встроенная переменная для обозначения числа «пи»: pi = 3.141592653589793. Поэтому, если бы мы в разделе описания констант не записали pi = 3.14 (строки 1—2 после служебного слова const), то в нашей программе было бы использовано встроенное значение числа «пи» большой точности.

2.Решение задачи с помощью нейросети

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