Проверь себя (Си примеры программ)

В этом разделе на закрепление материала разбираются на Си примеры программ и даются решенные задачи

Задача c-1_1: Дана сторона квадрата a. Найти его площадь S=a2

* Из задачника М. Э. Абрамян (Begin2)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
#include <stdio.h>
 
int main(void)
{
    float a;
    printf("a:");
    scanf ("%f", &a);
    float S=a*a;
    printf("S:%f\n",S);
    return 0;
}
Показать аналог в Pascal:

1
2
3
4
5
6
7
8
var
  S,a: Real;
begin
  Write('Введите значение стороны квадрата: ');
  Readln(a);
  S:=Sqr(a);
  Writeln('Площадь квадрата равна: ', S);
end.
Задача c-1_2: Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P:
Си примеры программ из задачника Абрамян

Обратите внимание, что для решения задачи потребуется подключение заголовочного файла math.h

* Из задачника М. Э. Абрамян (Begin12)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <stdio.h>
#include <math.h>
 
int main(void)
{
    float a, b;
    printf("a:");
    scanf ("%f", &a);
    printf("b:");
    scanf ("%f", &b);
    float c = sqrt(pow(a,2)+pow(b,2));
    printf("c:%f\n",c);
    float P = a+b+c;
    printf("P:%f\n",P);
    return 0;
}
Показать аналог в Pascal:

1
2
3
4
5
6
7
8
9
10
11
12
var
 a,b,c,P: Real;
begin
 Write('Введите длинну катета а: ');
 Readln(a);
 Write('Введите длину катета b: ');
 Readln(b);
 c:=Sqrt(Sqr(a)+sqr(b));
 Writeln('Гипотинуза прямоугольного треугольника равна: ',c);
 P:=a+b+c;
 Writeln('Гипотинуза прямоугольного треугольника равна: ',P);
end.

Задача c-1_3: Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

* Из задачника М. Э. Абрамян (Begin17)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <stdio.h>
#include <math.h>
 
main()
{
    float A, B, C;
    printf("A:");
    scanf ("%f", &A);
 
    printf("B:");
    scanf ("%f", &B);
 
    printf("C:");
    scanf ("%f", &C);
 
    float AC = abs(A-C);
    printf("AC:%f\n",AC);
 
    float BC = abs(B-C);
    printf("BC:%f\n",BC);
 
    printf("AC+BC:%f\n",BC+AC);
}
Показать аналог в Pascal:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var A,B,C,AC,BC,Sum: Real;
begin
  Write('Введите значение точки A: ');
  Readln(A);
  Write('Введите значение точки B: ');
  Readln(B);
  Write('Введите значение точки C: ');
  Readln(C);
  AC:=Abs(A-C);
  Writeln('Расстояние отрезка AC равно: ',AC);
  BC:=Abs(B-C);
  Writeln('Расстояние отрезка BC равно: ',BC);
  Sum:=AC+BC;
  Writeln('Сумма отрезков AC и BC равно: ',Sum);
end.
Поделитесь уроком с коллегами и друзьями:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*

Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить