Приложение 6 Текст программы на языке с для вычисления корней квадратного уравнения

#include <conio.h>

#include <stdio.h>

#include <math.h>

int main(int argc, char* argv[])

{

float a ,b ,c ,d , x1, x2;

printf (" Enter a= "); scanf ("%f",&a);

printf (" Enter b= "); scanf ("%f",&b);

printf (" Enter с= "); scanf ("%f",&c);

if (a!=0) { d=b*b-4*a*c;

if (d>=0) { x1=(-b-sqrt(d))/(2*a);

x2=(-b+sqrt(d))/(2*a);

printf ("x1= %6.3f x2= %6.3f", x1, x2);

}

else {printf("d<0, Eq has 2 complex roots");}

}

else {

if(b!=0) { x1 =-c/b;

printf (" x1 = %6.3f", x1);

printf (" x2 not exists" );

}

else { if (c!=0) { printf (" Eq has no roots "); }

else { printf (" x arbitrary");}

}

};

getch();

return 0;

}

Приложение 7 Текст программы на языке Паскаль для вычисления приближенного значения экспоненциальной функции

program exppr (input, output);

var k, kmax: integer;

x, a0, a1, s, eps: real;

{вычисление экспоненты суммированием членов ряда}

{exp= 1+x/1!+x ²/2!+…}

k:= 1; a0:= 1; s:= a0;

{ввод исходных данных}

begin write ('введите x=');

readln (x); write ('eps=');

readln (eps); write ('kmax=');

readln (kmax);

a1:= a0*x/к;

while (abs(a1)>eps) and (k<kmax) do

begin

s:= s+a1;

a0:= a1;

k:= k+1

a1:= a0*x/к;

end;

if (k=kmax) then begin

writeln ('за ', k ' итераций точность не достигнута');

writeln ('приближённое значение exp(x)=',s:12:8)

end;

else

writeln ('приближённое значение exp(x)=',s:12:8, 'exp(x)=',exp(x):12:8);

end.

Приложение 8 Текст программы на языке c для вычисления приближенного значения экспоненциальной функции

//Текст программы на языке C

//для вычисления приближенного значения экспоненциальной функции

//вычисление экспоненты суммированием членов ряда

//{exp= 1 + x/1! + x 2/2! + ...}

#include <conio.h> // библиотека ввода-вывода

Console I/O Routines (getch(), putch(),..)

#include <stdio.h> // библиотека стандартного вывода-ввода

Console I/O Routines (printf, scanf,..)

#include <math.h> // библиотека мат функций

Math Routines (fabs(), sqrt(), exp()...)

int main(int argc, char* argv[])

{

int k, kmax;

float x, a0, a1, s, eps;

//{ввод исходных данных}

printf ("Enter x="); scanf ("%f", &x);

printf ("Enter eps="); scanf ("%f", &eps);

printf ("kmax="); scanf ("%d",&kmax);

//суммирование ряда

k=1;

s=1;

a0=1;

a1= a0*x/k;

while ((fabs(a1)>eps)&& (k<kmax)) {

printf("kmax= %d k=%d \n", kmax, k);

k= k+1;

s= s+a1;

a0= a1;

a1= (a0*x)/k;

};

// Печать

if(k==kmax) {// Точность не достигнута

printf("within %d iteration exactness eps= %12.8f is not attained\n", k , eps );

printf(" exp(%f)=%12.8f", x, s );

}

else {// Точность достигнута

printf(" exp(%f)=%12.8f", x, s );

}

//Ждать нажатия клавиши Enter

getch();

return 0;

}

МАЛИКОВ Александр Иванович

БУШМАНОВА Ирина Валерьевна

СЮНЯЕВ Айдар Якубович

ЯФАСОВ Фарид Инсанович

ЛАБОРАТОРНЫЙ ПРАКТИКУМ

ПО ИНФОРМАТИКЕ. I.

Под ред. А.И.Маликова

Для инженерных специальностей

технических университетов

и вузов