Составить выражения с использование переменных программ, арифметических, логических, поразрядных операций

@Jaguar505 · Регистрация: 04.10.2010

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

Помогите пожалуйста написать программу,которая бы содержала:
1.ввод с клавиатуры значений указанных типов в переменные программы.
2.составить выражения с использование переменных программ,арифметических,логических,пораз рядных операциё и операций отношения и основных встроеных прцедур и функций.
3.вывести значение на экран
4.Включить в программу условный оператор if!
Программа простая,но мне нужно чтобы у нее было не менее 35 строк!помогите,а то у меня больше 20 строк не получается сделать!...заранее спасибо)

@pavelr · 04.10.2010, 20:27

Так возьми любую программа с форума,где есть readln(....),if и чтоб строк было не меньше 35!

@Jaguar505 · 04.10.2010, 20:33 **[ТС]**

Так я бы с удовольствием,но сижу полтора часа именно такую не найду...
если можешь подскажи,где найти можно!

@Jaguar · 04.10.2010, 20:53

Jaguar505 лови

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
uses crt;
VAR a,b,rez,k: Real;
        Oper:Char;
    c:string;
    k1,k2,x,F,C1:Integer;
 
    procedure n;
    begin
Writeln('введите 1-ое число');
    ReadLn (a);
    Writeln('Введите знак вычисления(+,/,*,-)');
    ReadLn (oper);
    Writeln('введите 2-ое число');
    ReadLn (b);
    case oper of
        '+'         : rez:=a+b;
        '-'         : rez:=a-b;
        '*'         : rez:=a*b;
        '/'         : rez:=a/b;
        else       WriteLn('Таких действий не знаю')
    end;
    WriteLn('Число = ',rez );
    end;
    FUNCTION Power(Osnovanie:Real;  Stepen:Word) : Real;
  VAR  a:Real;  i:Integer;
  BEGIN
  a:=1;
    for i:=1 to Stepen do a:=a*Osnovanie;
    Power:=a
  END;
    var v:boolean;
BEGIN
CRTWindowSize(100,50);
v:=true;
  Writeln;
  WriteLn('ВЫЧИСЛЕНИЯ:');
    WriteLn('1-знаки равенства');
  WriteLn('2-конец программы');
  WriteLn('3-извлечь(корень)');
  WriteLn('4-возвести(корень)');
  WriteLn('5-остаток от деления');
  WriteLn('6-число пи');
  WriteLn('7-дробная часть числа');
  WriteLn('8-абсолютная величина (модуль) числа');
  WriteLn('9-целая часть числа');
  WriteLn('10-округление');
  WriteLn('11-Найти процент');
  WriteLn('12-Перевод градусов фаренгейта в градусы цельсия');
  WriteLn('13-Перевод градусов цельсия в градусы фаренгейта');
  WriteLn('14-Возведение в степень');
  repeat
        Readln(c);
    if c='1' then begin
  ClrScr;
 
  n;
  end;
    if c='2' then  begin
  ClrScr;
  exit;
  end;
    if c='3' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln(' Извлеченный корень =',Sqrt(k));
    end;
    if c='4' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln(' Возведенный корень =',Sqr(k));
    end;
  if c='5' then  begin
  ClrScr;
    Writeln('введите 1-ое  число');
    ReadLn (k2);
    Writeln('введите 2-ое  число');
    ReadLn (k1);
    Writeln('Остаток от деления =',k2 mod k1);
    end;
    if c='6' then  begin
    ClrScr;
    Writeln('число пи =',pi);
    end;
    if c='7' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln('Дробная часть числа =',Frac (k));
    end;
    if c='8' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln('модуль числа =',Abs(k));
    end;
    if c='9' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln('целая часть =',Int(k));
    end;
    if c='10' then  begin
    ClrScr;
    Writeln('введите  число');
    ReadLn (k);
    Writeln('округление числа =',round(k));
    end;
    if c='11' then  begin
    ClrScr;
    Writeln('введите 1-ое  число');
    ReadLn (k);
    Writeln('введите 2-ое  число');
    ReadLn (x);
    Writeln('Процент  = ', k*100/x ,'%');
    end;
    if c='12' then  begin
    ClrScr;
    repeat
  Writeln('введите градусы по Фаренгейту(F)');
    ReadLn (F);
    until (F in [0..200])OR(F<=0);
    Writeln('По Цельсию  t= ',(0.5*(F-32)),'(F)');
    end;
    if c='13' then  begin
    ClrScr;
  repeat
    Writeln('введите градусы по цельсию(C)');
    ReadLn (C1);
    until (C1 in [0..80])OR(C1<=0);
    Writeln('По Фаренгейту  t= ',1.8*C1+32,'C');
    end;
    if c='14' then  begin
    ClrScr;
    Writeln(' введите степень');
    ReadLn (k);
    Writeln(' введите число');
    ReadLn (a);
  WriteLn('Число возведенное в степень ',k,' = ',Power( a,k));
    end;
  Writeln;
    WriteLn('БУДЕТЕ ЕЩЕ ВЫЧЕСЛЯТЬ?');
    WriteLn('1-знаки равенства');
  WriteLn('2-конец программы');
  WriteLn('3-извлечь(корень)');
  WriteLn('4-возвести(корень)');
  WriteLn('5-остаток от деления');
  WriteLn('6-число пи');
  WriteLn('7-дробная часть числа');
  WriteLn('8-абсолютная величина (модуль) числа');
  WriteLn('9-целая часть числа');
  WriteLn('10-округление');
  WriteLn('11-дробная часть числа');
  WriteLn('12-Перевод градусов фаренгейта в градусы цельсия');
  WriteLn('13-Перевод градусов цельсия в градусы фаренгейта');
    until v=false;
 
END.

@Jaguar505 · 05.10.2010, 09:09 **[ТС]**

Eguar, спасибо,а есть чего нить по-меньше)и без string!а то мне эту сжимать не получится!

Добавлено через 44 минуты
Напишите пожалуйста еще,буквально пунктов 40!

Добавлено через 11 часов 5 минут
мне нужно 40-50 где-то,больше не нужно!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Jaguar505 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 16

	Составить выражения с использование переменных программ, арифметических, логических, поразрядных операций 04.10.2010, 20:24. Показов 1765. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программу,которая бы содержала: 1.ввод с клавиатуры значений указанных типов в переменные программы. 2.составить выражения с использование переменных программ,арифметических,логических,пораз рядных операциё и операций отношения и основных встроеных прцедур и функций. 3.вывести значение на экран 4.Включить в программу условный оператор if! Программа простая,но мне нужно чтобы у нее было не менее 35 строк!помогите,а то у меня больше 20 строк не получается сделать!...заранее спасибо) 0

@pavelr 411 / 330 / 42 Регистрация: 10.03.2010 Сообщений: 3,313
	04.10.2010, 20:27
	Так возьми любую программа с форума,где есть readln(....),if и чтоб строк было не меньше 35! 1

@Jaguar505 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 16
	04.10.2010, 20:33 [ТС]
	Так я бы с удовольствием,но сижу полтора часа именно такую не найду... если можешь подскажи,где найти можно! 0

@Jaguar505 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 16
	05.10.2010, 09:09 [ТС]
	Eguar, спасибо,а есть чего нить по-меньше)и без string!а то мне эту сжимать не получится! Добавлено через 44 минуты Напишите пожалуйста еще,буквально пунктов 40! Добавлено через 11 часов 5 минут мне нужно 40-50 где-то,больше не нужно! 0

Составить выражения с использование переменных программ, арифметических, логических, поразрядных операций

Решение