Совместить 8 задач в одну - Turbo Pascal

  1. ребят нужно совместить 8 задач в 1 и так чтобы работала помогите пожалуйста!!! 1


textual

Код к задаче: «Совместить 8 задач в одну - Turbo Pascal»

uses crt;
procedure p1;
function st(u,r:real; var n:real):real;
var a:real;
begin
u:=(180-u)*pi/180;
a:=sqrt(2*r*r-2*r*r*cos(u));
n:=a/2/sin((pi-u)/2);
end;
var u1,u2,u3,r,a1,a2,a3:real;
begin
clrscr; {начало каждой программы}
write('Vvedite ugly i radius: ');
repeat readln(u1,u2,u3,r) until u1+u2+u3=180;
st(u1,r,a1);
st(u2,r,a2);
st(u3,r,a3);
u1:=a1+a2;
u2:=a2+a3;
u3:=a3+a1;
write('a=',u1:0:10,' b=',u2:0:10,' c=',u3:0:10);
readln; {конец каждой программы}
end;
procedure p2;
var xa,ya,xb,yb:integer;
begin
clrscr;
writeln('Введите координаты вектора A');
readln(xa,ya);
writeln('Введите координаты вектора B');
readln(xb,yb);
if xa*xb=ya*yb then write('Векторы перпендикулярны')
else if xa/yb=ya/xb then write('Вектора коллинеарны')
else write('Вектора никакие');
readln;
end;
procedure p3;
begin
end;
procedure p4;
begin
end;
procedure p5;
begin
end;
procedure p6;
begin
end;
procedure p7;
begin
end;
procedure p8;
begin
end;
var w:byte;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-????'); {здесь пишете названия программ}
writeln('2-????');
writeln('3-????');
writeln('4-????');
writeln('5-????');
writeln('6-????');
writeln('7-????');
writeln('8-????');
writeln('9-выход');
repeat
readln(w);
until w in[1..9];
case w of
1:p1;
2:p2;
3:p3;
4:p4;
5:p5;
6:p6;
7:p7;
8:p8;
9:exit;
end;
until w=9;
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Задание ниже, рекурсивная функция Выдает ошибку Error 87 с курсором в строке: else Add:=Add(i-1)*sqr(x)*((2*i-3)/(2*i-1)); Код:

  1. Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить среднее значение этих чисел? я сделал саму задачу,а вот последнее условие не смог, как его сделать?:= Вычислить среднее значение этих чисел?

  1. Написать программу проверки наличия в исходном файле чисел от 18 до 27

  1. Надо найти сумму всех чисел от 50 до 500, кратных 3 и 8 и заканчивающихся на 2 или 4. Составила программку, но не уверенна, что правильно:Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 var x: integer; sum: real; begin   SetConsoleOutPutCP(1251);   sum:=0;   for x:=50 to 500 do   begin   if (x mod 3=0) and (x mod 8=0) then   sum:=sum+x;   writeln(sum:0:2);   end;   readln; end.

  1. Помогите создать программу бегущую строку с добавлением обработки клавишей F8, по нажатию которой строка будет менять положение на экране (верх - низ).

  1. Здравствуйте. При компиляции выдаёт ошибку 86 о том, что нет двоеточия, на строку Assembler1 "o:=0"Соль в том, что двоеточие стоит. Подскажите пожалуйста, как это можно исправить

  1. Доброго времени суток!Задание в прикрепленном файле. Есть уравнение: Необходимо вычислить α с помощью программ ZEROIN и QUANC8. Оформила подынтегральную функцию как function (starting_fun), затем написала еще одну функцию, в которой вызывается QUANC8 (fun). Ее значением должно быть значение интеграла минус единица. В основном теле программы вызываю ZEROIN (для промежутка [0;1]) со ссылкой на функцию с QUANC8 (т.е. fun), должно получаться то самое значение alpha, которое нужно найти, но.. QUANC8 не считает значения, выводит NAN. И все решение летит к чертям. При этом, когда в function подынтегральной функции (starting_fun) заменяю alpha на число, все в порядке (но, естественно, задача состоит именно в нахождении alpha). Получается, QUANC8 не видит этой переменной, я правильно понимаю? Как правильно сделать вызов этих функций? Или что можно еще сделать, чтобы считалось значение? В интернете пыталась искать что-то похожее, не получилось. Очень надеюсь на вашу помощь. Краткое описание ZEROIN Кликните здесь для просмотра всего текста Нахождение нуля функции F(x) на интеpвале [a, b] с заданной точностью. function zeroin( a, b, tol : double; F : pointer) : float; Краткое описание QUANC8 Кликните здесь для просмотра всего текста Оценка с тpебуемой точностью опpеделенного интегpала от функции, задаваемой именем пpоцедуpы-функции, вычисляющей ее значения в пpоизвольных точках интеpвала интегpиpования. Procedure quanc8( fun : pointer; a, b, abserr, relerr : double; var result, errest : double; var nofun : longint; var flag : double); Входная информация: FUN - указатель на внешнюю функцию, реализующую вычисление подынтегральной функции. a - нижний предел интегрирования; b - верхний предел интегрирования; аbserr - абсолютная желаемая погрешность; relerr - гpаница относительной погрешности; abserr - гpаница абсолютной погpешности. Выходная информация: result - приближенное значение интеграла; errest - оценка величины действительной ошибки; nоfun - число значений функции, использованных при вычислении интеграла; flag - индикатор надежности.

  1. Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые равны 8