Поместиться ли круг в квадрате?

04.04.2010, 15:44. **Показов** 26072. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Нужно решить задачку в паскале, а я вообще никогда его не изучала. Помогите пожалуйста!
вот задача: Известны площади круга и квадрата. Определить, поместится ли круг в квадрате?

@M128K145 · 04.04.2010, 20:53

Pascal

program hoplok;
uses crt;
var squareArea, circleArea, squareSide, circleDiameter: real;
begin
    clrcsr;
    write('введите площадь квадрата');
    readln(squareArea);
    write('введите площадь круга');
    readln(circleArea);
    squareSide := sqrt(squareArea);
    circleDiameter := 2 * sqrt(circleArea / pi);
    if squareSide >= circleDiameter then
        writeln('круг поместится в квадрате')
    else
        writeln('круг не поместится в квадрате');
    readln
end.

@STGE · 04.04.2010, 20:57

Только перед else ";" ставить нельзя (в данном случае):

writelin('круг поместится в квадрате');
else

И что ещё за

writelin

@Владимир73 · 14.02.2012, 22:51

Pascal

Program Z;
Var x,y :real;
Begin
Write ('Введите площадь круга');
Readln (x);
Write ('Введите площадь квадрата');
Readln (y);
If x<=y then write('Круг помещается в квадрат')
else writeln('Круг не помещается в квадрат');
Readln
end.

hoplok
		1
	Поместиться ли круг в квадрате? 04.04.2010, 15:44. Показов 26072. Ответов 3 Метки нет (Все метки) Нужно решить задачку в паскале, а я вообще никогда его не изучала. Помогите пожалуйста! вот задача: Известны площади круга и квадрата. Определить, поместится ли круг в квадрате?

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	04.04.2010, 20:57	3
	Только перед else ";" ставить нельзя (в данном случае): writelin('круг поместится в квадрате'); else И что ещё за writelin 0

	14.02.2012, 22:51