Задачи за решаване на Паскал

[Kris]

Зада4а 1: Да се състави програма, която определя дали 3 отсечки а, b и c образуват триагалник и да се определи вида му в зависимост от страните му.
Задача 2: Напишете програма, която определя дали дадено цяло число N, въведено от клавиатурата, се дели на 5 или на 15.
Задача 3:Да се състави програма за изчисляване на y, ако:
y=4 за x<0, y=x² + 3x+4 za 0<=x<1, y=(x² + 3x + 4)² за x>=1
Help!

[Реклама]

[Vladi_mnt]

Отговор на задача 1:
program Zad_1;
var a,b,c: Integer;
begin
write('a='); readln(a);
write('b='); readln(b):
write('c='); readln(c);
If (a<0) or (b<0) or (c<0) Then writeln('Няма такъв триъгълник, блаблабла...')
Else begin
If (a=b) and (b=c) Then writeln('Триъгълникът е равностранен')
Else If (a<>b) and (b<>c) and (c<>a) Then writeln('Триъгълникът е разностранен')
Else writeln('Триъгълникът е равнобедрен');
end;
end.



Ако имаш някакви други въпроси по това пиши

[senses]

Някой може ли да ми направи в Паскал една задача моля за днес ми е !!! 1. Дадени са две нулеви числа. Да се намери сумата, разликата, произведението и частното на квадратите им.
2. Дадени са три числа. Да се пресметне и изведе колко са положителните числа и колко са отрицателните такива.
3. Дадено е естественото число n (n>2) .Да се пресметне и изведе сумата 1+1/2+1/3...+1/2n-1+1/2n
Това е моля ви пратете ми я на пощата e-mail ilianka1234@abv.bg

[Vladi_mnt]

[Vladi_mnt]

Колкото за задачите ти ще ти ги реша, но няма да ти ги пращам на пощата (това във форума се счита за огромно нахалство, но понеже ти е за пръв път ти се разминава поне от мен)

[Vladi_mnt]

Ето ти втора задача:
program Zad;
var a, b, c, br_poz, br_neg: Byte;
begin
br_poz:=0;
br_neg:=0;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) then br_poz:=br_poz+1;
else if (a<0) then br_neg:=br_neg+1;
if (b>0) then br_poz:=br_poz+1;
else if (b<0) then br_neg:=br_neg+1;
if (c>0) then br_poz:=br_poz+1;
else if (c<0) then br_neg:=br_neg+1;
write('Polojitelnite 4isla sa ', br_pos,' na broi,' a otricatelnite ', br_neg)
end.

[the_firebat]

Спешно ми трябва решение на тази задача:
ДСПК обслужва фирма за покупко-продажба на имоти:
1. създава файл, съдържащ следната информация за: вид на имота, квадратура, цена на квадратен метър, телефон на собственика;
2. прави справка за всички имоти от даден тип и под определена цена;
3. извежда телефона на собственика на имот от даден тип с най- висока цена;
4. сортира имотите по даден тип по поле цена;
5. да се извежда цялата информация от файла;
6. да съдържа меню за избор.

Задачата е за утре. Благодаря предварително

[Vladi_mnt]

[kukuvi4kata]

създайте програма на pascal, която: ще обслужва автосалон, където наличния парк до момента е 3050 автомобила и за целта:
1.Дефинира явно:
а/. тип запис Avtomobil, съдържащ полетата:
Nom-целочислена променлива за поредния номер на автомобила в автосалона;
RegNom-низова променлива,максимална дължина 8;
GodProizv-целочислена променлива;
Marka-низова променливас максимална дължина 15;
Model-низова променливас максимална дължина 15;
Probeg-целочислена променлива LongInteger;
Dvigatel-низова променлива,максимална дължина 10;
Cena-числова променлива;
Drugi-низова променлива;
b/.тип масив AvtoPark от наличните коли

2.Въвежда данни за автомобили в автосалона, до N<=5 с процедура Vhod.
3.Намира автомобила с най-ниска цена и извежда данните за него с процедура MinCena.
4.Извежда данните за всички коли произведени след 2005 и с пробег под 100000 с процедура Select.

[geri19]

Ако можете да ми помогнете с една задача на Paskal ще ви бъда много благодарна
Задача: Масивът A е с N елемента, N>=100. Да се състави програма за намиране на : средно аритметично на елементите със стойности по-малки от предварително зададено число D.

[endrox]

Здравейте, ако може малко помощ Задачата: Дадена е окръжност с център в началото на координатната система и радиус R въвеждан от потребителя. Да се определи дали точката с координати Х и У зададени от потребителя лежи в окръжността и в кой сектор.
Моля, който може да помогне да помага, защото ми е много спешно.
Благодаря предварително!

[Гост]

[Реклама]

[Гост]

Здравейте, ако някой може да ми помогне с решението на задача със следното условие: Съставете програма, която да изчислява сумата на целите числа в интервала [m,n], които се делят на 5 без остатък.

[Гост]

някои можили да помогни с задача НАПИШЕТЕ ПРОГРАМА ДОКАЗВАЩА
a or not a= true

[Гост]

Здравейте
Може ли някой да ми помогне с решението на тези 2 задачи, ще съм ви много благодарна.

Зад.1 : Да се напише програма на Паскал, която въвежда произволен на брой числа от клавиатурата и намира произведението между тях.

Зад.2 : Да се напише програма на Паскал, която да извежда по тройки различни числа принадлежащи в интервал [1;5]

[Гост]

pascal
dadeni sa 4 celi chisla da se napishe programa koqto izvejda nai-malkoto ot tqh
HELP PLS