Если у вас наблюдаются проблемы со скриншотами, переходом по ссылками, скачиванием торрентов - проблемы в блокировщике рекламы AdBlock. #хорошегоДня!


 
Автор Сообщение

X-QuadrO

avatar X-QuadrO


Народ, кто паскаль знает? Помогите задачки решить.

1. Составить программу для вычисления значений функции y. Вычислить значения функции для указанных значений x.
2. Вычислить результат, используя условный оператор. Исходные данные вводятся с клавиатуры. 3. Составить программу для выполнения указанного ниже задания, используя оператор множественного ветвления.
По порядковому номеру ЭВМ выдать фамилию и инициалы работающего на ней.

В приоритете 1-2 задачи.

Спасибо!

DarkTl

Это же 7 класс максимум :lol:

1. Var x,y : Real;
begin
readln(x);
if x<-6 then y:=2*x*x;
if (x>=-6) and (x<=6) then y:=2*x*x-4;
if (x<6) and (x<=8) then y:=Cos(x*180/3.14)+1; - косинус в паскале считает в радианах, переводим в градусы, это уже по идее должно быть оговорено в задании, если все равно то просто Cos(x)+1
if (x>8) then y:=(x div 1)-2; - если правильно помню из математики, что [] - это целая часть числа, не уверен.
writeln(y);
end.
2. Var x,y,z,c,m,n : Real;
begin
readln(x);
readln(y);
readln(z);
if x>y then (if x>z then m:=x else m:=z) else (if y>z then m:=y else m:=z);
if x<y then (if x<z then n:=x else n:=z) else (if y<z then n:=y else n:=z);
c:=m*m/(n*n);
writeln (c);
end.

Как-то так. Могу в чем-то ошибаться, давно это было, синтаксис я в основном по Delphi помню, у языков много общего.
Что касается 3, это оператор case of, чисто механическое строкописание, если известен список этих самых фамилий.

Fairy

:crazy:

X-QuadrO

DarkTl
1 курс универа XD

Спасибо большое!

x7

DarkTl писал(а):

Это же 7 класс максимум
ну да щааааз..... минимум 9! :!:

Хотите добавить комментарий к записи скачать торрент Народ кто паскаль знает, помогите...

!Обратная связь