сервис вопросов и ответовпомогите пожалуйсты с первым вопросом в паскале
5-9 класс|
|
Прикрепленные изображения
Alisa28kisa
15 окт. 2014 г., 0:10:11 (9 лет назад)
Kamilia02
15 окт. 2014 г., 1:04:15 (9 лет назад)
program it;
var
a:integer;
s,x,y:real;
begin
writeln('vvedite a');
read(a);
x:=-4;
s:=9999999;
while x<4 do
begin
if x<=0 then
y:=sqrt(sqr(a)+sqr(cos(x)))/x
else if (x>0) and (x<=1) then y:=sin(a*x)
else if x>1 then y:=cos(x/a);
x:=x+0.2;
if y<s then s:=y;
end;
writeln(s);
end.
Ответить
Другие вопросы из категории
если компьютер связан с другими компьютерами то на рабочем столе обязательно присутствует значок-это
Помогите:) Я тоже помогу) 1. При угадывании целого числа в диапазоне от 1 до N было получено 5 бит информации. Найдите N. 2. Сколько бит
информации несет сообщение о том, что дядя Степа живет на 6 этаже 9-этажного дома? 3. Ребята играют в шестигранный кубик. Сколько бит информации содержит сообщение, что выпало «четыре». 4. Сколько мегабайт информации содержит сообщение объемом 232 бит? 5. Сколько бит информации в сообщении объемом 128 Кбайт? 6. Сколько Кбайт в 0,25 Мбайт? Сколько байт в 241 гбайт?
Читайте также
Люди Люди Люди если вы читаете это сообщение значит вы просто обязаны помочь! пожалуйста если у вас есть паскаль помогите пожалуйста решить первое и
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Здравствуйте! Помогите пожалуйста, весь интернет облазила, не могу найти ответ на свой вопрос, вся надежда на этот сайт!
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
помогите пожалуйста с заданием , нужно сделать в электронном виде 2 ребуса. Первый ребус это слово "сеансовий рівень",
второе "повідомлення".
помогите пожалуйста :)
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Вы находитесь на странице вопроса "помогите пожалуйсты с первым вопросом в паскале", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.