Владимирович111
?>

Задача1. Составить процедуру нахождения квадрата суммы действительных чисел и квадратного корня из этой суммы. Используемые идентификаторы – обозначения: a, b, c – данные числа; z – сумма чисел; x – квадрат суммы; y – корень из суммы. x1, y1- фактические параметры. Программа: program z1; var x1, y1: real; procedure expres ( a, b, c :real; var x, y: real); var z: real; begin z:= a+b+c; x:= sqr(z); {квадрат z} y:= sqrt(z); {корень из z} end; {Основная программа} begin expres(25.4, 44.6, 30, x1, y1); writeln( x1, y1); end. Формальные входные параметры a, b, c принимают значения фактических параметров a=25.4, b=44.6, c=30. При этих значениях выполняется процедура. Результатом выполнения процедуры являютcя x, y , которые передают свои значения соответствующим фактическим параметрам x1, y1. Таким образом, в основной программе будем иметь x1= 10000, y1= 10. Задача 2. Оформим в виде процедуры SUMMA вычисление суммы 1+2+3+…+n и произведения 1*2*3*…*n целых чисел. Используемые идентификаторы – обозначения: n – количество чисел; SUM – сумма чисел; PR – произведение чисел: i – параметр цикла; k, x, y – формальные параметры. Программа: program z2; var n: integer; PR, SUM: real; procedure SUMMA (k: integer; var x, y: real); {начало процедуры} var i: integer; begin x:=0; y:=1; for i:=1 to k do begin x:=x+i; y:=y*i; end; end; {конец процедуры} {Основная программа} begin write (‘введите значение n: ’); read (n); SUMMA (n, SUM, PR); writeln(‘SUM=’, SUM:5); writeln(‘PR=’, PR:5); end. Отладочные данные: Введите значение n : 10 SUM = 5.500000E+01 PR = 3.628800E+06 Задача 3. Даны действительные числа k, n, m. Получить: f(-k, 2n, n-m) + f(1, 2, 3)  , где f(a, b, c) = a2 + b2 + c2 - a - c. f(m, k, n) Для вычисления функции составьте под программу - функцию. Задача 4. Даны действительные числа, среди которых есть положительные, отрицательные и ноль. Вычислите произведение чисел, отличных от нуля, используя процедуру Произв. и сумму отрицательных чисел, используя процедуру Сумм.

Информатика

Ответы

Светлана-Тигран
#include "stdafx.h"
#include "iostream"    //Подключаем библиотеку ввода вывода
#include "math.h"      //библиотека математических функций

#include <windows.h>

using namespace std;   //подключение пространства имён std - открывает
//доступ к cin и cout из библиотеки iostream

int main()   //начало программы
{
SetConsoleCP(1251);   //если будешь компилировать     SetConsoleOutputCP(1251);   //то это для подключения русского языка в консоли

float x, y, z;   //объявление вещественных переменных
cout<<"Введите значение X";   //вывод строки
cin>>x;   //вводим число
y=sqrt(x);   //считаем y
if ((x<3) || (x>8))    //условие. если (x<3 или x>8)  
z=x*y; //есил истино z=x*y
else z=x+y; //иначе z=x+y

cout<<"z= "<<z;  //вывод результата

cout<<"Для завершения программы нажмите любую клавишу...";
cin.get();
cin.get();
return 0;
}
natalili32
Технология создания электронных таблиц в MS Excel Цель: изучить инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице. Изучив данную тему, студент должен: иметь представление о; • технологиях обработки числовых данных в электронных таблицах; знать: • инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице; • принципы работы Мастера диаграмм; уметь: • форматировать ячейки таблицы; • выполнять простейшие вычисления и использовать элементарные функции в расчетах; • использовать относительную и абсолютную адресацию; • выполнять построение и форматирование диаграмм; • установить защиту рабочей книги; владеть навыками: • обработки информации в электронных таблицах; • построения различного вида диаграмм (графиков, гистограмм и др.) с мастера диаграмм Excel.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Задача1. Составить процедуру нахождения квадрата суммы действительных чисел и квадратного корня из этой суммы. Используемые идентификаторы – обозначения: a, b, c – данные числа; z – сумма чисел; x – квадрат суммы; y – корень из суммы. x1, y1- фактические параметры. Программа: program z1; var x1, y1: real; procedure expres ( a, b, c :real; var x, y: real); var z: real; begin z:= a+b+c; x:= sqr(z); {квадрат z} y:= sqrt(z); {корень из z} end; {Основная программа} begin expres(25.4, 44.6, 30, x1, y1); writeln( x1, y1); end. Формальные входные параметры a, b, c принимают значения фактических параметров a=25.4, b=44.6, c=30. При этих значениях выполняется процедура. Результатом выполнения процедуры являютcя x, y , которые передают свои значения соответствующим фактическим параметрам x1, y1. Таким образом, в основной программе будем иметь x1= 10000, y1= 10. Задача 2. Оформим в виде процедуры SUMMA вычисление суммы 1+2+3+…+n и произведения 1*2*3*…*n целых чисел. Используемые идентификаторы – обозначения: n – количество чисел; SUM – сумма чисел; PR – произведение чисел: i – параметр цикла; k, x, y – формальные параметры. Программа: program z2; var n: integer; PR, SUM: real; procedure SUMMA (k: integer; var x, y: real); {начало процедуры} var i: integer; begin x:=0; y:=1; for i:=1 to k do begin x:=x+i; y:=y*i; end; end; {конец процедуры} {Основная программа} begin write (‘введите значение n: ’); read (n); SUMMA (n, SUM, PR); writeln(‘SUM=’, SUM:5); writeln(‘PR=’, PR:5); end. Отладочные данные: Введите значение n : 10 SUM = 5.500000E+01 PR = 3.628800E+06 Задача 3. Даны действительные числа k, n, m. Получить: f(-k, 2n, n-m) + f(1, 2, 3)  , где f(a, b, c) = a2 + b2 + c2 - a - c. f(m, k, n) Для вычисления функции составьте под программу - функцию. Задача 4. Даны действительные числа, среди которых есть положительные, отрицательные и ноль. Вычислите произведение чисел, отличных от нуля, используя процедуру Произв. и сумму отрицательных чисел, используя процедуру Сумм.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Jannadon77
Игоревна
Letajushaya362
Kozlovao4
skryabinamaria
cat2572066
Japancosmetica
kiravalter1998697
windless-el
l250sp70
Kotvitskii
enot1975
sidorov9
Борисовна_Кашутина
lukur2005