Посмотрите пожалуйста, что не так?

14.06.2018, 19:56. Показов 723. Ответов 0

Метки нет (Все метки)

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

К сожалению не знаю как по другому условие дать

Нужно чтобы писало, какое условие выполнилось

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
uses crt;
label k1;
var z,y,y1,y2,a,b,c,d:real;
    k,i,m,x:integer;
begin
k1: clrscr;
writeln ('     1) 1-функция');
writeln ('     2) 2-функция');
writeln ('     3) 3-выход');
write (' Выберите действие ');
read (k);
case k of
1:
begin
writeln;
writeln('Введите a,b,c,d (через пробел): ');
readln(a,b,c,d);
if d=c then
  begin
y1:=sqr(a)-Sqr(b)+c*d;
writeln('Выполнилось 1 условие d=c ',y1:5:3);
  end
else
begin
y1:=1.52;
writeln('Выполнилось 2 условие d<>c ',y1:5:3);
end;
if b>d then
  begin
y2:=((y1)/(a*b*c));
writeln('Выполнилось 1 условие b>d ',y2:5:3);
  end
else if b=d then
  begin
  y2:=1;
  writeln('Выполнилось 2 условие b=d ',y2:5:3);
  end
    else
  y2:=y1-c;
  writeln('Выполнилось 3 условие b<d ',y2:5:3);
z:=y1-y2;
writeln('Ответ: Z=',z:5:3);
readln;
goto k1;
end;
 
2:
begin
writeln;
writeln('Введите m,x (через пробел) ');
readln(m,x);
if (x+1)>m then
begin
y:=18*m+x;
writeln('Выполнилось 1 условие (x+1)>m ',y:5:3);
end
else if (x+1)<m then
begin
y:=1;
for i:=1 to 5 do
y:=y*(m*x+((m*i)/(x)));
writeln('Выполнилось 2 условие (x+1)<m ',y:5:3);
end
else if (x+1)=m then
begin
y:=1000;
writeln('Выполнилось 3 условие (x+1)=m ',y:5:3);
end;
end;
end;
readln;
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

14.06.2018, 19:56

Ответы с готовыми решениями:

Выписать все одинаковые слова. Посмотрите, что не так?
Нужно выписать все одинаковые слова, посмотрите, что не так :) Разбиваю на массив слов, но почему-то не работает... type mas =...

Посмотрите пожалуйста,не могу понять,в чем завоздка,что не там...
задание на фотке(( program pr_2_3; uses crt,Linear_algebra; const WG=100; type tmatr=array of real; var n1,m1,n2,m2,n,m:byte; ...

Что здесь не так? посмотрите пожалуйста
#include <iostream> using namespace std; #define N 8 int prostoe (int a){int i,k; for (i = 0; i < N; i++) if...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

14.06.2018, 19:56

Помогаю со студенческими работами здесь

Пожалуйста посмотрите что тут не так?
<?php if(isset($_POST)){ $fd = fopen("result.html", 'w+') or die ("ddd"); $str = $_POST; fwrite($fd, $str); ...

Что здесь не так? Посмотрите пожалуйста
#include <iostream> #include <fstream> #include <math.h> #define n 11 main() { int i; double...

Посмотрите, пожалуйста, что не так, не могу исправить ошибку(
Задание: решите уравнение x - (x^2 / (1 + sin^2 (x+y+z)) в С а вот, что получилось: #include <stdio.h> #include...

Посмотрите пожалуйста программу ,вроде все должно работать ,но что-то не так
#include <iostream> using namespace std; int main() { int a,b,c,i,z; c=0; cout<< "enter the number"<< endl; cin >> a; ...

Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу!
Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу! unit Unit1; ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

Наверх