Главная

Процедуры и функции

Комментарии

ср, 12/25/2013 - 13:03 — Гость

Создать блок-схему

Прошу помочь создать блок-схему

Program variant4;
uses crt;
var
n,r,i:integer;
t,v,s:real;
begin
writeln('Сколько раз вы хотите использовать программу для вычислений?');
write('Введите количество раз:');
Readln(r);
for i:=1 to r do
begin
writeln('1.Вычислить расстояние.');
writeln('2.Вычислить скорость.');
writeln('3.Вычислить время.');
readln(n);
case n of
1:begin
write('Введите время:');
readln(v);
write('Введите скорость:');
readln(t);
S:=t*v;
writeln('Расстояние = ',s:5:2);
end;
2:begin
write('Введите расстояние:');
readln(s);
write('Введите время:');
readln(t);
v:=s/t;
writeln('Скорость = ',v:5:2);
end;
3:begin
write('Введите расстояние:');
readln(s);
write('Введите скорость:');
readln(v);
t:=s/v;
writeln('Время = ',t:5:2);
end;
end;
readln;
end;
end.

  • ответить
вс, 01/26/2014 - 21:58 — Гость

Ты ещё код в одну строчку

Ты ещё код в одну строчку написал бы

  • ответить
вс, 12/08/2013 - 17:41 — Гость

пользовательский интерфейс

Помогите создать пользовательский интерфейс, построенный на основе меню с выделением цветом текущего пункта меню.

  • ответить
Втр, 10/22/2013 - 21:19 — Гость

функции и процедуры

помогите пожалуйста...

1.описать функцию вычисления f(x) по формуле:
f(x)= x^2 при -2 x^2+4x+5 при x>=2;
4 при x используя эту функцию, для n заданных чисел вычислить f(x). среди вычисленных значений найти наибольшее.

2.описать процедуру нахождения по заданной длине стороны треугольника и величинам двух прилежащих углов длин остальных сторон треугольника и величины третьего угла. применить процедуру для n треугольников, задавая каждый раз длину стороны и величины двух прилежащих углов.

  • ответить
ср, 10/23/2013 - 12:20 — tech

Ответы: первая задача и

Ответы: первая задача и вторая задача

  • ответить
сб, 03/02/2013 - 06:56 — Гость

Два простых числа называются

Два простых числа называются «близнецами», если они отличаются друг от
друга на два (например, числа 41 и 43). Напечатать все пары «близнецов», не
превышающих число N. Определить функцию, позволяющую распознавать простые
числа и написать две программы: с использованием этой подпрограммы и без неѐ.

  • ответить
Втр, 12/25/2012 - 14:04 — Гость

Создать файл, содержащий

Создать файл, содержащий сведение о кубиках. Структура записи: цвет(красный, желтый, зелены, синий), материал (деревянный, металический, картонный), размер (длина ребра в см.) Кол-во записей не менее 15. Определить:
- Кол-во кубиков каждого из перечисленных цветов и их суммарный объем;
- Кол-во деревянных кубиков с ребром X см;
- Какой цвет преобладает среди картонных кубиков;
- Есть ли сведения о зеленом деревянном кубике с ребром 13 см. , если таких сведений в файле нет - дописать.

  • ответить