Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Отчёт.docx
Скачиваний:
24
Добавлен:
09.06.2015
Размер:
1.81 Mб
Скачать

Задача 7.3

Описать функцию Fact(N) целого типа, вычисляющую значение факториалаN!=1*2*…*N(N>0) – параметр целого типа). С помощью этой функции вычислить факториалы 10 данных чисел.

  1. Блок-схема.

начало

i, n, x

Fact (x)

конец

Вход в программу

Fact(x)

a=1, b=2, c=3, d=4, e=5, t=6, g=7, h=8, i=9, j=10

K, R, L, G, V, U, P, I, O, W

K=Fact(a)

R=Fact(b)

L=Fact(c)

G=Fact(d)

1

1

V=Fact(e)

U=Fact(t)

P=Fact(g)

I=Fact(h)

O=Fact(i)

W=Fact(j)

K, R, L, G, V, U, P, I, O, W

конец

  1. Программный код.

#include "iostream"

#include <fstream>

using namespace std;

int Fact(int x)

{int i=1,n=1;

while(i<=x)//Описанице функции

{n=n*i;

i++;}

return n;}

void main()

{

setlocale (LC_ALL, "Russian");

ofstream f("D:\\Казьмин\\p-7.7.3\\Fact.txt");

int a=1,b=2,c=3,d=4,e=5,t=6,g=7,h=8,i=9,j=10;

int K,R,L,G,V,U,P,I,O,W;

K=Fact(a);

R=Fact(b);

L=Fact(c);

G=Fact(d);

V=Fact(e);

U=Fact(t);

P=Fact(g);

I=Fact(h);

O=Fact(i);

W=Fact(j);

cout<<"Факториал числа a = "<<K<<endl;

cout<<"Факториал числа b = "<<R<<endl;

cout<<"Факториал числа c = "<<L<<endl;

cout<<"Факториал числа d = "<<G<<endl;

cout<<"Факториал числа e = "<<V<<endl;

cout<<"Факториал числа t = "<<U<<endl;

cout<<"Факториал числа g = "<<P<<endl;

cout<<"Факториал числа h = "<<I<<endl;

cout<<"Факториал числа i = "<<O<<endl;

cout<<"Факториал числа j = "<<W<<endl;

f<<" "<<"Факториал 10 чисел: "<<K<<" "<<R<<" "<<L<<" "<<G<<" "<<V<<" "<<U<<" "<<P<<" "<<I<<" "<<O<<" "<<W<<endl;

}

  1. Скриншот.

Задача 7.4

Составьте программу вычисления суммы трёхзначных чисел.

  1. Блок-схема.

  2. Программный код.

#include "iostream"

using namespace std;

int main()

{

setlocale (LC_ALL, "Russian");

float a,b,s;

cout<<"Введите числа a и b: "<<endl;

cin>>a>>b;

if(a>=100 && a<=999 && b>=100 && b<=999) s=a+b;

else return 0;

cout<<"Сумма a и b = "<<s<<endl;

}

  1. Скриншот.

Задача 8.1

Задана окружность радиуса R. Составьте программу для нахождения длины и площади, ограниченного ею круга.

  1. Блок-схема.

  2. Программный код.

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace p_7._8._1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

{

double R,l,S;

R = Convert.ToDouble(textBox1.Text);

S=3.14*R*R;

l=2*3.14*R;

textBox2.Text = Convert.ToString(S);

textBox3.Text = Convert.ToString(l);

}

}

private void label1_Click(object sender, EventArgs e)

{

}

private void label2_Click(object sender, EventArgs e)

{

}

private void textBox1_TextChanged(object sender, EventArgs e)

{

}

private void button2_Click(object sender, EventArgs e)

{

textBox1.Text = "";

textBox2.Text = "";

textBox3.Text = "";

}

}}

  1. Скриншот.