Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты
Категории Все вопросы проекта Компьютеры, Интернет Темы для взрослых Авто, Мото Красота и Здоровье Товары и Услуги Бизнес, Финансы Наука, Техника, Языки Философия, Непознанное Города и Страны Образование Фотография, Видеосъемка Гороскопы, Магия, Гадания Общество, Политика, СМИ Юридическая консультация Досуг, Развлечения Путешествия, Туризм Юмор Еда, Кулинария Работа, Карьера О проектах Mail Животные, Растения Семья, Дом, Дети Другое Знакомства, Любовь, Отношения Спорт Золотой фонд Искусство и Культура Стиль, Мода, Звезды Полный список Спросить Лидеры
Поиск по вопросам

Задача по информатике помогите пожалуйста

Андрей Тетерятник Ученик (126), открыт 4 недели назад
Помогите пожалуйста нужно написать программу по блок схеме
1 ответ
Дмитрий Шишкин Гений (72173) 4 недели назад 
        IDENTIFICATION DIVISION.                          
       PROGRAM-ID. P1.                          
       AUTHOR. DMITRIY.                          
       INSTALLATION. MyLocalComputer.                          
       DATE-WRITTEN. 2025/23/01.                          
       DATE-COMPILED. 2025/23/01.                          
       SECURITY. GPL.                          
                       
       ENVIRONMENT DIVISION.                        
       CONFIGURATION SECTION.                        
       SOURCE-COMPUTER. X-86-64.                        
       OBJECT-COMPUTER. X-86-64.                        
       DATA DIVISION.                          
       WORKING-STORAGE SECTION.                          
       1 A          PICTURE IS S9999999999999999999V9999999999999999999.    
       1 B          PICTURE IS S9999999999999999999V9999999999999999999.     
       1 C          PICTURE IS S9999999999999999999V9999999999999999999.  
       1 K          PICTURE IS S9999999999999999999V9999999999999999999. 
       1 S          PICTURE IS S9999999999999999999V9999999999999999999. 
       1 Y          PICTURE IS S9999999999999999999V9999999999999999999. 
       PROCEDURE DIVISION.                          
       BEGIN.                
       PARA-1.        
       ACCEPT A. 
       ACCEPT B. 
       ACCEPT C. 
       COMPUTE C = FUNCTION SQRT (A + B ** 5) / 3 * C. 
       COMPUTE K = S - FUNCTION SQRT (FUNCTION ABS (A * B * C)). 
       COMPUTE Y = S + K - S / (B * C). 
       DISPLAY Y. 
       STOP RUN.             
       EXIT.               
       END PROGRAM P1.
Андрей ТетерятникУченик (126) 4 недели назад
А можно на паскале?
Дмитрий Шишкин Гений (72173) Андрей Тетерятник, можно:
 Program P1; 
uses crt; 
var a, b, c: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры значения переменных a, b и c (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('Введите значение переменной a: a='); 
readln (a); 
write ('Введите значение переменной b: b='); 
readln (b); 
write ('Введите значение переменной c: c='); 
readln (c); 
writeln ('Ответ: y=', sqrt (a+sqr(b)*sqr (b)*b)/(3*c)+(sqrt (a+sqr(b)*sqr (b)*b)/(3*c)-sqrt (abs (a*b*c)))-(sqrt (a+sqr(b)*sqr (b)*b)/(3*c))/(b*c) :0:2); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.
Дмитрий ШишкинГений (72173) 4 недели назад
Да, я скобки проморгал в программе на КОБОЛе (в основном ответе).
Похожие вопросы