Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Николай77716
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 1
1

Помоготе перевести программу на условный оператор if

17.12.2014, 20:46. Просмотров 190. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program main;
uses crt;
var n:byte;
var a,b,h,r,s:real;
begin
clrscr;
writeln('площадь прямоугольника-1');
writeln('площадь треугольника-2');
writeln('площадь трапеции-3');
writeln('площадь круга-4');
writeln('площадь сектора круга-5');
read(n);
case n of
1:begin
writeln('введите a и b');
read(a,b);
s:=a*b;
end;
2:begin
writeln('введите a и h');
read(a,h);
s:=a*h/2;
end;
3:begin
writeln('введите a,b и h');
read(a,b,h);
s:=(a+b)*h/2;
end;
4:begin
writeln('введите r');
read(r);
s:=r*r*pi;
end;
5:begin
writeln('введите r и a');
read(r,a);
s:=r*r*pi*(a/360);
end;
end;
writeln('площадь равна ',s);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2014, 20:46
Ответы с готовыми решениями:

Используя условный оператор составить программу для вычисления выражения
Вычислить значение выражения по формуле ( все переменные принимают действительные значения) ...

Условный оператор и оператор выбора. Даны два угла треугольника. Определить, существует ли такой треугольник
Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник, и если да, то...

Условный оператор и оператор множественного выбора
Много заданий написал, но я уверен, что решить их не составит вам труда (не то что мне), хоть...

Условный оператор. Оператор выбора
Помогите пожалуйста с задачей, то я в поскале чайник)! Определить , пересекает ли парабола y=ax +...

Условный оператор
Всем hello!!! Нужно разработь программу с использованием условного оператора для нахождения...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4041 / 2962 / 3700
Регистрация: 05.06.2014
Сообщений: 14,675
18.12.2014, 13:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program main;
 
uses
  crt;
 
var
  n: byte;
 
var
  a, b, h, r, s: real;
 
begin
  clrscr;
  writeln('площадь прямоугольника-1');
  writeln('площадь треугольника-2');
  writeln('площадь трапеции-3');
  writeln('площадь круга-4');
  writeln('площадь сектора круга-5');
  readln(n);
  if n = 1 then
  begin
    writeln('введите a и b');
    read(a, b);
    s := a * b;
  end
  else
  if n = 2 then
  begin
    writeln('введите a и h');
    read(a, h);
    s := a * h / 2;
  end
    else
  if n = 3 then
  begin
    writeln('введите a,b и h');
    read(a, b, h);
    s := (a + b) * h / 2;
  end
      else
  if n = 4 then
  begin
    writeln('введите r');
    read(r);
    s := r * r * pi;
  end
        else
  if n = 5 then
  begin
    writeln('введите r и a');
    read(r, a);
    s := r * r * pi * (a / 360);
  end;
  writeln('площадь равна ', s);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2014, 13:23

Условный оператор
Почему выдаёт ошибку? Неизвестное имя S begin var A,B,C,D,E,F,G:boolean ; S:string;...

Условный оператор
http://keep4u.ru/imgs/b/2010/03/26/dc/dcb6766ec0b02007012b035f48dc2b95.png

Условный оператор
http://keep4u.ru/imgs/b/2010/03/26/4f/4fecd4f8bb330d81b0e7749fcc7b008f.png Добавлено через 15...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru