Помощь с паскалем

avatar lagy777

437

19

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Вечер в хату. По информатике на дом задали написать алгоритм в паскале( прогу,хз, как это называется) , который будет решать задачу. Помогите, пжлст, а то я не сверхразумИТбог, я - довнгуманитарий.
Задача следующая:
Машина ехала с начальной скоростью V м/с( ну типа не указывается какая скорость). Автомобиль начал замедляться с ускорением a м/с^2 ( ну типа не указывается какое ускорение). Найти длину (S) тормозного пути автомобиля.
Формула, которой нужно воспользоваться: ( яхз что это за бред никогда такого не видел но она сказала делать по этой формуле)
S=V^2/2a

Ruff_Ruder

Пользователь

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

Ruff_Ruder

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

Короче формула расстояния есть Vot+at^2/2
Ее в синтаксис паскаля запили (процедуру)
Ах да, сделай еще функцию нахождения времени Vo/a

Пример
Тачка ехала с Vo=32 м/с и замедлялась a=-4м/с^2

Находим время
(32 м/с)/(4 м/с^2)=8 с
Тормозной путь
32*8+(-4)*8*8/2=128
Минус тут очень важен тк мы тормозим

Соре что не в коде итд
Но за кучу лет моя физмат часть и паскаль атрофировались

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Ruffian93 сказал(а):
Короче формула расстояния есть Vot+at^2/2
Ее в синтаксис паскаля запили (процедуру)
Нажмите, чтобы раскрыть...

Я не знаю(вообще) как писать эти алгоритмы.

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Ruffian93 сказал(а):
Короче формула расстояния есть Vot+at^2/2
Ее в синтаксис паскаля запили (процедуру)
Нажмите, чтобы раскрыть...

Да, формула эта.

Ruff_Ruder

Пользователь

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

Ruff_Ruder

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

lagy777 сказал(а):
Я не знаю(вообще) как писать эти алгоритмы.
Нажмите, чтобы раскрыть...

Скинь мне пример кода в паскале с правильным оформлением итд + функцией и процедурой ну и ввод с клавы я так понимаю нужно скорости и ускорения

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Ruffian93 сказал(а):
Скинь мне пример кода в паскале с правильным оформлением итд + функцией и процедурой ну и ввод с клавы я так понимаю нужно скорости и ускорения
Нажмите, чтобы раскрыть...

Мне не нужно решение задачи. Мне нужна программа, которая будет решать задачу, после внесения в неё значений. V,a, - это рандомные числа, которые нужно придумать. Как это сделать всё я хз. Мои умения в паскале - это написать в начале begin, а в конце end.

bestyolo228

Пользователь

Регистрация: 24.03.2015

Сообщения: 304

Рейтинг: 58

bestyolo228

Регистрация: 24.03.2015

Сообщения: 304

Рейтинг: 58

begin
тс. вали на завод
end

slipper120

Пользователь

Регистрация: 03.06.2015

Сообщения: 7129

Рейтинг: 2606

slipper120

Регистрация: 03.06.2015

Сообщения: 7129

Рейтинг: 2606

lagy777 сказал(а):
Мне не нужно решение задачи. Мне нужна программа, которая будет решать задачу, после внесения в неё значений. V,a, - это рандомные числа, которые нужно придумать. Как это сделать всё я хз. Мои умения в паскале - это написать в начале begin, а в конце end.
Нажмите, чтобы раскрыть...

что бы написать прогу ты должен понимать как в действиях решается задача, дальше октрываешь учебник по информатике и пишешь свои врайт лн и т.д.
в вар(вроде в нём) ты должен указать V и а, как целые числа, а S как рациональное
без учебника прям так прогу и не напишу
в начале будет ввод V и а, потом програма выполняет формулу и выводит число S
лёгчайшая задача

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

slipper120 сказал(а):
что бы написать прогу ты должен понимать как в действиях решается задача, дальше октрываешь учебник по информатике и пишешь свои врайт лн и т.д.
в вар(вроде в нём) ты должен указать V и а, как целые числа, а S как рациональное
без учебника прям так прогу и не напишу
Нажмите, чтобы раскрыть...

Мы не по учебнику вообще занимаемся, задача не оттуда. Она просто на уроке дала нам условие и сказала сделать дома. Пытался понять что такое интегер и прочее, но это слишком сложно для гумпримата(меня)

Chokolate_eye

Пользователь

Регистрация: 26.11.2015

Сообщения: 4013

Рейтинг: 2985

Chokolate_eye

Регистрация: 26.11.2015

Сообщения: 4013

Рейтинг: 2985

Задача же элементарная, ты шо тормоз?

sigmon123

Пользователь

Регистрация: 14.07.2012

Сообщения: 446

Рейтинг: 228

sigmon123

Регистрация: 14.07.2012

Сообщения: 446

Рейтинг: 228

Нужно быть совсем тупым довном, чтобы не понимать паскаль.
UPD это анимешник ещё, ну тогда всё потеряно :(

Mr_Nobody131

Пользователь

Регистрация: 11.03.2015

Сообщения: 103

Рейтинг: 39

Mr_Nobody131

Регистрация: 11.03.2015

Сообщения: 103

Рейтинг: 39

lagy777 сказал(а):
Вечер в хату. По информатике на дом задали написать алгоритм в паскале( прогу,хз, как это называется) , который будет решать задачу. Помогите, пжлст, а то я не сверхразумИТбог, я - довнгуманитарий.
Задача следующая:
Машина ехала с начальной скоростью V м/с( ну типа не указывается какая скорость). Автомобиль начал замедляться с ускорением a м/с^2 ( ну типа не указывается какое ускорение). Найти длину (S) тормозного пути автомобиля.
Формула, которой нужно воспользоваться: ( яхз что это за бред никогда такого не видел но она сказала делать по этой формуле)
S=V^2/2a
Нажмите, чтобы раскрыть...

вставь в паскаль
program mashina;
var v,a,s:real;
begin
writeln('Введите начальную скорость ');
readln(v);
writeln('Введите ускорение ');
readln(a);
s:=(v*v)/(2*a);
writeln('Томозной путь равен: ',s);
end.

S0_HardCore

Пользователь

Регистрация: 01.07.2014

Сообщения: 3462

Рейтинг: 2905

S0_HardCore

Регистрация: 01.07.2014

Сообщения: 3462

Рейтинг: 2905

Ну если я тебя правильно понял:

var A, V, S: real;
begin
wrilteln('Начальная скорость, замедление:');
readln(V);
readln(A);
S := V * V / (2 * A);
write('Путь:', S);
end;

slipper120

Пользователь

Регистрация: 03.06.2015

Сообщения: 7129

Рейтинг: 2606

slipper120

Регистрация: 03.06.2015

Сообщения: 7129

Рейтинг: 2606

lagy777 сказал(а):
Мы не по учебнику вообще занимаемся, задача не оттуда. Она просто на уроке дала нам условие и сказала сделать дома. Пытался понять что такое интегер и прочее, но это слишком сложно для гумпримата(меня)
Нажмите, чтобы раскрыть...

это всё есть в учебнике, сложение, вычитание и т.д.
тебе просто надо всё подставить под твою формулу
вроде так
var
v, a: real;
s: integer;
begin
write('Wwedi V:'); readln(v);
write('Wwedi a:'); readln(a);
s:=(v*v)/(2*a);
writeln ('S=', s);
end.

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Mr_Nobody131 сказал(а):
вставь в паскаль
program mashina;
var v,a,s:real;
begin
writeln('Введите начальную скорость ');
readln(v);
writeln('Введите ускорение ');
readln(a);
s:=(v*v)/(2*a);
writeln('Томозной путь равен: ',s);
end.
Нажмите, чтобы раскрыть...

Спасибо большое

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

S0_HardCore сказал(а):
Ну если я тебя правильно понял:

var A, V, S: real;
begin
wrilteln('Начальная скорость, замедление:');
readln(V);
readln(A);
S := V * V / (2 * A);
write('Путь:', S);
end;
Нажмите, чтобы раскрыть...

Спасибо.
slipper120 сказал(а):
это всё есть в учебнике, сложение, вычитание и т.д.
тебе просто надо всё подставить под твою формулу
вроде так
var
v, a: real;
s:integer;
begin
write('Wwedi V:'); readln(v);
write('Wwedi a:'); readln(a);
s:=(v*v)/(2*a);
writeln ('S=', s);
end.
Нажмите, чтобы раскрыть...

И тебе спасибо

lagy777

Пользователь

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

lagy777

Регистрация: 15.04.2013

Сообщения: 590

Рейтинг: 450

Close тему. Спасибо, гуез.

Ruff_Ruder

Пользователь

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

Ruff_Ruder

Регистрация: 07.10.2012

Сообщения: 2745

Рейтинг: 1236

var

V,a,t,S:integer;
begin

ClrScr;

Write ('Введите скорость ');

readln(V);

Write ('Введите ускорение ');

readln(a);

t := V / a;

If t < 0

then t = 0 - t;

else

t = t

S := V * t + ( a * t * t / 2 );

Write ('Тормозной путь ', S);

Readln;
End.

Очень примитивно сделал в блокноте телефона, работоспособность не гарантирую

Mr_Nobody131

Пользователь

Регистрация: 11.03.2015

Сообщения: 103

Рейтинг: 39

Mr_Nobody131

Регистрация: 11.03.2015

Сообщения: 103

Рейтинг: 39

lagy777 сказал(а):
Спасибо большое
Нажмите, чтобы раскрыть...

хоят наверно вот так, потому что тормозной путь не может же быть отрицательным?
program mashina;
var v,a,s:real;
begin
writeln('Введите начальную скорость ');
readln(v);
writeln('Введите ускорение ');
readln(a);
s:=abs((v*v)/(2*a));
writeln('Томозной путь равен: ',s);
end.

Grift

Пользователь

Регистрация: 19.02.2013

Сообщения: 668

Рейтинг: 1357

Grift

Регистрация: 19.02.2013

Сообщения: 668

Рейтинг: 1357

lagy777 сказал(а):
Close тему. Спасибо, гуез.
Нажмите, чтобы раскрыть...

Закрыто.

Тема закрыта