Вторник, 15.07.2025, 15:29
Главная Регистрация RSS
Приветствую Вас, Заглянувший
Меню сайта
Программирование
Для студента
SEO & SMO
Познавательно
Категории раздела
Delphi [2]
Assembler [5]
Курсовые проекты [4]
Разное [1]
Pascal [16]
Невероятно, но факт [1]
Заказать курсовую [1]
SEO [1]
С/C++ [10]
Дипломные работы [1]
Бизнес-цитатник [2]
Опросник
Лучшая, на ваш вгляд, среда разработки?
Всего ответов: 63
[ Результаты · Архив опросов ]
Поддержать проект
Благодарность выразило,чел: 7
Статистика

Полная статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Статьи » Pascal
Определите время свободного падения с высоты Н.

Program vysota;
Var h:integer;
t,g:real;
Begin
Writeln(‘Введите высоту’);
Readln(h);
g:=9.8;
t:=sqrt(2*h/g);
Writeln('t=',t);
end.

Категория: Pascal | Добавил: Freeman (19.07.2011)
Просмотров: 3222 | Теги: Pascal | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]