Паскаль. Помогите, пожалуйста, решить - есть ответ

Без имени, 156 просмотров

-2

Помогите, пожалуйста, решить задачки:
1)вычислить значение F=ma-mv^2/R при значениях m, изменяющихся от -15 до 30 с шагом 5. Значения ускорения a и скорости движения v ввести с клавиатуры. Значение R принять равным 15 м.

2) Дано натуральное число n. Вычислить P=(1-1/2)(1-1/4)(1-1/6)...(1-1/2a)

Ответы:

Sergey Oboochoff

Уроки учи.

GSpy

m = -15
В цикле пишешь
m = m+5;
и делаешь проверку чтобы m не превышало 30. если равно, то выходит из цикла и программа завершает работу

interacia

Program googl24;
uses crt;
var
a,v : real;
R : integer;
m: integer;
F: real;
begin
clrscr;
R:=15;
write('a=');readln(a);
write('v=');readln(v);
m:=-15;
F:=0;
writeln('________________');
writeln('| m | F |');
writeln('|____|_________|');
while m<=30 do
begin
F:=m*a-m*v*v/R;
writeln('|',m:4,'|',F:9:2,'|');
m:=m+5;
end;
writeln('|____|_________|');
//readln;
end.
Ссылка на код с комментарием

interacia

Ссылка на 1) задачу

interacia

По поводу второй задачи. Есть много решенных подобных задач. Выберите какая больше похожа на вашу и немного модернизируйте.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.