ndruhazp
Новичок
|
     
как описывать цикл в паскале?
|
Всего сообщений: 6 | Присоединился: апрель 2012 | Отправлено: 19 апр. 2012 21:08 | IP
|
|
silva
Новичок
|
Почему то делаю программу в Pascal ABC и все работает, ее же открываю в Geany и считает неправильно
Задача: Составить программу для вычисления значения функции f(x)
f=k*x,если k<x
f=k+x, если k>=x
f=x^3,если sin(x)<0,
где k=|x|,если sin x>=0
program ex1;
var k,x,f : integer;
BEGIN
writeln('vvedite chislo');
readln(x);
if sin (x)>=0 then begin
k:=abs(x);
if k<x then f:=k*x else
if k>=x then f:=k+x;
end
else f:=sqr(x)*x;
writeln('f(x)=',f);
end.
|
Всего сообщений: 1 | Присоединился: май 2012 | Отправлено: 3 мая 2012 15:59 | IP
|
|
TeKeN
Новичок
|
1. Дан массив размера 4 x 3 с элементами вещественного типа. Написать программу для вычисления произведения элементов массива, модуль которых больше 1.
|
Всего сообщений: 1 | Присоединился: декабрь 2012 | Отправлено: 13 дек. 2012 23:47 | IP
|
|
548
Новичок
|
Заданы поверхность шарового сегмента Sшар сег и поверхность конуса Sкон, вместе образующие шаровый сектор. Заданы радиус шара R и высота шарового сегмента n, принадлежащая шаровому сектору. Вычислить поверхность шарового сектора Sшар сект и его объем V. Если V<50, то вычислить отношение поверхностей шарового сегмента к поверхности конуса .
Составить алгоритм и блок-схему.
Пожалуйста,помогите!!!! Или хоть подскажите ход мыслей.
|
Всего сообщений: 1 | Присоединился: февраль 2013 | Отправлено: 8 фев. 2013 19:12 | IP
|
|
|
Форум
Паскаль
