<span>program A;vark, t: integer;beginassign(input, 'input.txt'); reset(input);assign(output, 'output.txt'); rewrite(output);ReadLn(k, t);if (t div k mod 2 = 0) thenWriteLn(t mod k)elseWriteLn(k - t mod k);close(input); close(output);<span>end.</span></span>
Можно сделать в формате cout << "Введите номер нужно программы"; if(number==1){выполняется код первой программы (ввод, вывод)}
Если номер = 2, выполняется код второй программы, три - третей. Т.е. каждая программа отдельно в зависимости от выбора пользователем.
Или же сразу через cin вводишь все переменные, потом считаешь s1,s2,s3 и выводишь их.
Рисунок 2:
program ggg;uses GraphABC;var xc,yc,y,x,r: integer;beginwriteln('введи центр окружности');readln(xc,yc);writeln('введи радиус окоружности');readln(r);x:= xc;y:= yc;Brush.Color:= clRandom;circle(x,y,r);circle(x-r,y-r div 4,r div 4);circle(x+r,y-r div 4,r div 4);circle(x,y-r,r div 2);
end.
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.
var i,l,k,n,p:integer;
s:string;
Z: set of char;
A: array[1..100] of real;
B: array[1..100] of char;
R,Buf:real;
function F(A:real; Z:char; B:real):real;
begin
case Z of
'+': result:=A+B;
'-': result:=A-B;
'*': result:=A*B;
'/': result:=A/B;
end;
end;
begin
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);
Rewrite(output);
Readln(S);
close(input);
L:=length(s);
k:=0;
n:=0;
Z:=['+','-','*','/'];
for i:=1 to L do
if not(S[i] in Z) then begin
inc(k);
A[k]:=StrToInt(S[i]);
end
else begin
inc(n);
B[n]:=S[i];
end;
if (S[1] in Z) then
begin
if s[1]='-' then A[1]:=A[1]*(-1);
for i:=1 to n do
b[i]:=b[i+1];
dec(n);
<span> end;
</span> i:=0;
While (i<n) do
begin
inc(i);
if ((B[i]= '*') or (B[i]='/')) then
begin
buf:=F(A[i],B[i],A[i+1]);
A[i]:=buf;
for p:=i+1 to k do
A[p]:=A[p+1];
for p:=i to n do
B[p]:=B[p+1];
dec(n);
dec(i);
end;<span>
end;</span> R:=A[1];
for i:=1 to n do
if not((B[i]= '*') or (B[i]='/')) then
R:=F(R,B[i],A[i+1]);
writeln(R);
Close(output);
end.