нужно поменять оператор if на оператор выбора...

@milagros2307 · Регистрация: 20.01.2010

Студворк — интернет-сервис помощи студентам

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
uses crt; 
var f,n:integer; a,b,w:real; i:longint; 
begin 
clrscr; 
writeln('0'); 
writeln(''); 
readln(a); 
repeat 
if f=8 then 
begin 
clrscr; 
writeln('0'); 
writeln(''); 
readln(a); 
end; 
repeat 
repeat 
repeat 
clrscr; 
writeln(a:5:8); 
writeln(''); 
writeln('1-плюс 2-минус 3-умножить 4-разделить          8-сброс 9-выход'); 
writeln('5-возвести в степень 6-квадратный корень 7-тригонометрия'); 
readln(f); 
if f=9 then exit; 
if f=7 then begin clrscr; writeln(a:2:8); writeln(''); writeln('11-sin 12-cos 13-tg 14-ctg      15- назад'); readln(f); end; 
until f>0; 
until f<16; 
until f<>10; 
clrscr; 
if f=1 then write(a:5:8,'+'); 
if f=2 then write(a:5:8,'-'); 
if f=3 then write(a:5:8,'x'); 
if f=4 then write(a:5:8,'/'); 
if f=5 then write(a:5:8,'^'); 
if (f<>8) and (f<>6) and (f<>5) and (f<>11) and (f<>12) and (f<>13) and (f<>14) and (f<>15) then readln(b); 
if f=5 then readln(i); 
if (b=0) and (f=4) then begin writeln('На нуль делить нельзя! Для продолжения нажмите Enter'); readln; f:=8; end; 
if f=1 then a:=a+b; 
if f=2 then a:=a-b; 
if f=3 then a:=a*b; 
if (f=4) and (b<>0) then a:=a/b; 
if (f=5) and (i>=0) then begin w:=1; for n:=1 to i do begin w:=w*a; end; a:=w; end; 
if (f=6) and (a>=0) then a:=sqrt(a); 
if f=11 then a:=sin(a); 
if f=12 then a:=cos(a); 
if f=13 then a:=sin(a)/cos(a); 
if f=14 then a:=cos(a)/sin(a); 
if f=15 then a:=a; 
until f=0; 
readln; 
end.

@Жолдас · 28.01.2010, 20:32

milagros2307, будь добр напиши условие

@milagros2307 · 28.01.2010, 20:38 **[ТС]**

программа калькулятор. преподаватель сказал поменять if на case, а у меня не получается(((

@Unrealler · 28.01.2010, 21:08

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
uses crt;
var f,n:integer; a,b,w:real; i:longint;
begin
clrscr;
writeln('0');
writeln('');
readln(a);
repeat
if f=8 then
begin
clrscr;
writeln('0');
writeln('');
readln(a);
end;
repeat
repeat
repeat
clrscr;
writeln(a:5:8);
writeln('');
writeln('1-ïëþñ 2-ìèíóñ 3-óìíîæèòü 4-ðàçäåëèòü          8-ñáðîñ 9-âûõîä');
writeln('5-âîçâåñòè â ñòåïåíü 6-êâàäðàòíûé êîðåíü 7-òðèãîíîìåòðèÿ');
readln(f);
if f=9 then exit;
if f=7 then begin clrscr; writeln(a:2:8); writeln(''); writeln('11-sin 12-cos 13-tg 14-ctg      15- íàçàä'); readln(f); end;
until f>0;
until f<16;
until f<>10;
clrscr;
case f of
1:  write(a:5:8,'+');
2:  write(a:5:8,'-');
3:  write(a:5:8,'x');
4:  write(a:5:8,'/');
5:  write(a:5:8,'^');
end;
if (f<>8) and (f<>6) and (f<>5) and (f<>11) and (f<>12) and (f<>13) and (f<>14) and (f<>15) then readln(b);
if f=5 then readln(i);
if (b=0) and (f=4) then begin writeln('Íà íóëü äåëèòü íåëüçÿ! Äëÿ ïðîäîëæåíèÿ íàæìèòå Enter'); readln; f:=8; end;
case f of
1: a:=a+b;
2: a:=a-b;
3: a:=a*b;
4: if (b<>0) then a:=a/b;
5: if (i>=0) then begin w:=1; for n:=1 to i do begin w:=w*a; end; a:=w; end;
6: if (a>=0) then a:=sqrt(a);
11: a:=sin(a);
12: a:=cos(a);
13: a:=sin(a)/cos(a);
14: a:=cos(a)/sin(a);
15: a:=a end;
until f=0;
readln;
end.

@milagros2307 · 29.01.2010, 00:33 **[ТС]**

Спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@Жолдас LegenD 45 / 44 / 15 Регистрация: 10.12.2009 Сообщений: 109
	28.01.2010, 20:32
	milagros2307, будь добр напиши условие 0

@milagros2307 0 / 0 / 0 Регистрация: 20.01.2010 Сообщений: 31
	28.01.2010, 20:38 [ТС]
	программа калькулятор. преподаватель сказал поменять if на case, а у меня не получается((( 0

@milagros2307 0 / 0 / 0 Регистрация: 20.01.2010 Сообщений: 31
	29.01.2010, 00:33 [ТС]
	Спасибо!!! 0