сервис вопросов и ответовНужно сделать в паскаль АВС Самолет летит из пункта А в пункт Б со средней скоростью V. Составить программу для
10-11 класс|
|
нахождения времени полёта t1, если есть встречный ветер, скорость которого V1, и времени t2, если ветра нет. Расстояние между пунктами A и Б считать известным и равным S.
Asia18
26 сент. 2014 г., 14:01:07 (9 лет назад)
Kатюш1
26 сент. 2014 г., 16:07:50 (9 лет назад)
var S, V, V1: real;
t1, t2: real;
b: boolean;
begin
b:=false;
repeat
writeln('Введите расстояние между пунктами А и Б');
readln(S);
if S<0 then
begin
writeln('Отрицательное расстояние. Повторите ввод');
continue;
end;
writeln('Введите среднюю скорость самолета');
readln(V);
if V<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
writeln('Введите скорость встречного ветра');
readln(V1);//Если ветра нет нужно ввести 0
if V1<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
b:=true;
until b = true;
if V1>0
then
begin
t2:=S/V;
writeln('Время полета: ', t2);
end
else
begin
t1:=(V-V1)/S;
writeln('Время полета: ', t1);
end;
end.
Ответить
Другие вопросы из категории
введите с клавиатуры одномерный массив D(N), элементами которого являются положительные и отрицательный целые числа. Сформируйте новый массив B(V) из
положительных элементов и С(М) из отрицательных элементов. В массиве D(V) определите максимум, а в массиве С(М)-минимум.
Читайте также
Помогите пожалуйста, нужно сделать в паскале, в экселе, и блок-схему!
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.
ПАСКАЛЬ АВС
ОЧЕНЬ СРОЧНО,ПОЖАЛУЙСТА
При помощи функции trunc() в Паскале можно реализовать операции целочисленного деления и взятия остатка от деления. Например:
целочисленное деление - trunc(491/240) - результатом будет 2;
остаток от деления - 491-240*trunc(491/240) - результатом будет 11.
Используя функцию trunc(), напишите программу, считающую сдачу в английской денежной системе (в этой денежной системе 1 фунт стерлингов равен 20 шиллингам, а 1 шиллинг равен 12 пенсам). Напишите программу, в которой в трёх константах хранится стоимость товара. Одна константа - фунты (целое значение больше нуля), вторая - шиллинги (значение от 0 до 19), третья - пенсы (значение от 0 до 11). Ещё в трёх таких же константах хранится плата покупателя. Используя одну целочисленную переменную, программа должна сосчитать и вывести на экран сдачу в фунтах, шиллингах и пенсах. НЕ ИСПОЛЬЗОВАТЬ УСЛОВНЫЙ ОПЕРАТОР
ПРОГРАММА ДОЛЖНА БЫТЬ НАПИСАНА НА ПАСКАЛЕ АВС
составить проект. вычислить среднее арифметическое отрицательных элементов массива С1,С2...С30 , пологая, что в массиве есть отрицательные значения. (
это нужно сделать в паскале.)
Помогите пожалуйста, нужно сделать в паскале!
Определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.
Если не затруднит, то еще можно в экселе)
Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
Вы находитесь на странице вопроса "Нужно сделать в паскаль АВС Самолет летит из пункта А в пункт Б со средней скоростью V. Составить программу для", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.