Pascal доработать программуprogram DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}var A, B, S : integer ; {A, B – длина сторон, S – площадь}begin A : = 8 ; {А присвоить 8} B : = 4?

Информатика | 10 - 11 классы

Pascal доработать программу

program DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}

var A, B, S : integer ; {A, B – длина сторон, S – площадь}

begin A : = 8 ; {А присвоить 8} B : = 4 ; {B присвоить 4} S : = A * B ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; {всего 40} writeln(' : Сторона A : Сторона B : Площадь : Периметр : ') ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; writeln(' : ', A : 7, B : 11, S : 11, ' : ' : 5) ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; readln ; readln end.

После расчета площади прямоугольника добавить вычисление периметра прямоугольника ;

вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных.

Приглашение для ввода оформляется следующим образом :

writeln (‘Введите A’) ;

Ввод значений оформляется оператором readln ;

составить блок - схему алгоритма, который реализован данной программой с учетом внесенных изменений.

Ответить на вопрос
Ответы (1)
Марина7397 11 апр. 2024 г., 14:28:53

Ответ :

program DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}

var

A, B, S, P : integer ; {A, B – длина сторон, S – площадь, P - периметр}

begin

writeln('Введите A ') ;

readln(A) ;   ;

writeln('Введите B ') ;

readln(B) ;   ;

S : = A * B ;

P : = 2 * (A + B) ;

writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; {всего 33}

writeln(' : Сторона A : Сторона B : Площадь : Периметр : ') ;

writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ;

writeln(' : ', A : 7, ' : ' : 5, B : 7, ' : ' : 5, S : 5, ' : ' : 5, P : 6, ' : ' : 5) ;

writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ;

readln ;

end.

Объяснение :

Dandyd 10 мар. 2024 г., 04:48:51 | студенческий

ДАЮ 30 БАЛЛОВ?

ДАЮ 30 БАЛЛОВ!

Выдает такую ошибку, что мне надо исправить я не понимаю Fatal : Syntax error, ")" expected but "identifier D" found Program P2 ;

var a, b : integer ; d, s, p : real ;

Begin

write('введите сторону прямоугольника a = ') ;

readln(a) ;

write('введите сторону прямоугольника b = ') ;

readln(b) ; d : = sqrt(sqr(a) + sqr(b)) ;

writeln('диагональ прямоугольника = 'd) ;

s : = a * b ;

writeln('площадь прямоугольника = 's) ;

p : = 2 * (a + b) ; writeln('периметр прямоугольника = 'p) ;

end.

SENSEY11111 23 янв. 2024 г., 18:37:43 | студенческий

Выдает такую ошибку , в чем проблема?

Выдает такую ошибку , в чем проблема?

Source.

Pas(13, 11) Fatal : Syntax error, ")" expected but "(" found

Program P1 ;

var a, b, c : integer ;

s, p : real ;

Begin

write('введите координату a = ') ; readln(a) ; write('введите координату b = ') ;

readln(b) ; write('введите координату c = ') ; readln(c) ; P : = (a + b + c) / 2 ;

writeln('периметр треугольника = ', P : 2 : 2) ;

s : = sqrt(p(p - a) * (p - b) * (p - c)) ; writeln('площадь треугольника = ', s : 2 : 2) ;

end.

Sharkovka05 1 февр. 2024 г., 22:51:40 | студенческий

Программа на С + +Не сталкивался и с этимПросьба большая помочьСоздать целочисленный массив типа short int размером n?

Программа на С + +

Не сталкивался и с этим

Просьба большая помочь

Создать целочисленный массив типа short int размером n.

Элементы массива инициализируются по следующему алгоритму :

1) число А вводится с консоли ;

2) используя битовые операции, сделать в нем так, чтобы 11 бит был заменён значением 5 - го бита, а остальные сохранили свои значения.

3) присвоить преобразованное число А текшему элементу массива.

Инициализированный массив вывести на печать и найти в нём элементы, у которых старшая четвёрка бит имеет все единицы.

Detskort 7 февр. 2024 г., 23:25:59 | 5 - 9 классы

Составьте блок схему алгоритма для вычисления значения функции заданной следующим образом?

Составьте блок схему алгоритма для вычисления значения функции заданной следующим образом.

Dashaforeve 11 февр. 2024 г., 05:32:23 | студенческий

Введите с клавиатуры переменную c?

Введите с клавиатуры переменную c.

Переменной b присвойте значение равное 10 если c> ; b выведите на экран их сумму иначе, выведите удвоенное значение.

Блок схема помогите пожалуйста.

89235609398 24 февр. 2024 г., 07:41:34 | 5 - 9 классы

ПОМОГИТЕ?

ПОМОГИТЕ!

1) Определите , сколько раз будет выполняться тело следующего оператора цикла :

k : = 0 ;

for i : = 1 to k + 4 do

k : = k + 2 ;

2) Напишите программу вычисления суммы натуральных чисел : S = 1 + 2 + 3 + .

+ N. .

Omertys 17 мар. 2024 г., 03:27:25 | студенческий

Пожалуйста помогитеНапишите программу, которая запрашивает двацелых числа x и y, после чего вычисляет и выводитзначение x в степени y на пайтоне?

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

Напишите программу, которая запрашивает два

целых числа x и y, после чего вычисляет и выводит

значение x в степени y на пайтоне.

Madinashagaban 17 мар. 2024 г., 10:51:32 | 5 - 9 классы

Составь программу, которая выводит сумму чисел от 1 до 100?

Составь программу, которая выводит сумму чисел от 1 до 100.

Python​.

EvdokiomovaUna 16 янв. 2024 г., 19:45:36 | 5 - 9 классы

Дана часть программы?

Дана часть программы.

Определите число, которое выведет программа на экран.

Altynova2000 22 янв. 2024 г., 03:56:14 | 5 - 9 классы

Строго на Python?

Строго на Python!

Вводится координаты точки на плоскости х и у.

Определить, попадает ли точка в заштрихованную часть.

Stefan125 4 мар. 2024 г., 14:07:25 | 5 - 9 классы

Как проверить, правильно ли работает программа в которой проводятся какие то вычисления?

Как проверить, правильно ли работает программа в которой проводятся какие то вычисления.

На этой странице сайта, в категории Информатика размещен ответ на вопрос Pascal доработать программуprogram DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}var A, B, S : integer ; {A, B – длина сторон, S – площадь}begin A : = 8 ; {А присвоить 8} B : = 4?. По уровню сложности вопрос рассчитан на учащихся 10 - 11 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.