Информатика

Вопрос/Задача:

Как мне сделать так, чтобы можно было в proc3 и proc 4 узнать ввёл пользователь данные или нет. Если данные не введены, то вывести "введите данные".
program k3;
uses crt;
var n:byte; s, d:real; a, b:real; m:smallint;

procedure proc1 (var a:real; b:real);
begin
writeln ('vvedite nizhnuu graniczu intervala');
readln (a);
writeln ('vvedite verhnuu graniczu intervala');
readln (b);
end;

procedure proc2 (var m:smallint);
begin
writeln ('vvidite chislo razbienii');
readln (m);
end;

procedure proc3 (var s:real);
var i:integer; h, x:real;
begin
writeln ('vi ne vveli granicy intervala i chislo razbienii');
proc1 (a, b);
proc2 (m);
h:=(b-a)/m;
x:=a+h/2;
for i:=1 to m do
begin
s:=s+(2*x*x*x+(-2)*x*x+3*x-11);
x:=x+h;
end;
s:=s*h;
writeln ('s= ',s);
readln ();
end;

procedure proc4 (var d:real);
var p:real;
begin
proc3 (s);
p:=(2*((b*b*b*b)/4)+(-2)*((b*b*b)/3)+3*(b*b)/2-11*b)-(2*((a*a*a*a)/4)+(-2)*((a*a*a)/3)+3*(a*a)/2-11*a);
d:=(p-s)/p;
writeln ('d= ',d);
readln ();
end;

begin
repeat
clrscr;
writeln ('granicy intervala - 1');
writeln ('chislo razbienii - 2');
writeln ('integeral - 3');
writeln ('pogreshnost - 4');
writeln ('exit - 0');
write ('select program: ');
readln (n);
case n of
1:proc1 (a, b);
2:proc2 (m);
3:proc3 (s);
4:proc4 (d);
end;
until n=0;
readln (); end.​

Ответы на вопрос

Ответ
Ответ разместил: Гость

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

 

что то вроде такого)

Ответ
Ответ разместил: Гость

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

Ответ
Ответ разместил: Гость

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

Ответ
Ответ разместил: Гость

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

             

Похожие вопросы

Вопросы по предметам

Предмет
Выведите фамилии и имена учащихся в порядке убывания их среднего балла.

Входные данные

Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем предметам: математике, физике, информатике). Данные в строке разделены одним пробелом. Оценки принимают значение от 1 до 5.

Выходные данные

Необходимо вывести пары фамилия-имя по одной на строке, разделяя фамилию и имя одним пробелом. Выводить оценки не нужно. Если несколько учащихся имеют одинаковые средние баллы, то их нужно выводить в порядке, заданном во входных данных.

Sample Input:

3
Markov Valeriy 5 5 5
Sergey Petrov 1 1 1
Petrov Petr 3 3 3
Sample Output:

Markov Valeriy
Petrov Petr
Sergey Petrov
вот мой код:
#include
#include
#include
#include
using namespace std;

struct man {
string name;
string surname;
double point;
};

bool s (man a, man b) {
return a. point >= b. point;
}

int main() {
int n;
cin >> n;
vector a(n);
for (int i = 0; i < n; i++) {
string temp_name, temp_surname;
int pointTemp1, pointTemp2, pointTemp3;
double temp_point;
cin >> temp_name >> temp_surname >> pointTemp1 >> pointTemp2 >> pointTemp3;
temp_point = pointTemp1 + pointTemp2 + pointTemp3;
man struct_temp;
struct_temp. name = temp_name;
struct_temp. surname = temp_surname;
struct_temp. point = temp_point;
a[i] = struct_temp;
}
stable_sort(a. begin(), a. end(), s);
for (auto now : a) {
cout << now. name << ' ' << now. surname << endl;
}
return 0;
}
Надо как-то добавить ,когда четыре отличника
Вопросов на сайте: 10912725