2 / 2 / 1
Регистрация: 03.11.2009
Сообщений: 38
1

Несколько решённых задач

25.11.2009, 21:03. Показов 1593. Ответов 1
Метки нет (Все метки)

В общем, скажу что я не супер-пупер программистка) я не могу сразу все решить, до меня туго доходит, но тут есть решения нескольких задач, которые я решала с другими студентами моего института. Решила помочь нуждающимся, потому что мне вы тоже помогаете. Может кому-нибудь пригодятся мои решения) Пока что мало решений, постепенно буду выкладывать и другие! всем удачи!


1. Составить программу нахождения минимального из 3-х чисел a,b,c


Pascal
1
2
3
4
5
6
7
8
9
10
11
Program min_chislo;
var
a,b,c:integer;
begin
writeln ('vvedite 3 chisla');
readln (a,b,c);
if a<b then min:=a else min:=b;
if min<c then min:=min else min:=c;
writeln ('naimenshee=', min);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2009, 21:03
Ответы с готовыми решениями:

Решить несколько задач
Нужно прорешать 3 задачи 12 варианта. Плииииз. нужен код паскаля. в каждом задании есть подпункты)

Экзамен. Паскаль. Несколько задач
Помогите плиз решить задачи по паскалю. Очень надо. Сессия горит у подруги из за одного...

помогите решить несколько задач
помогите решить плиииз:help: 1.Определить есть ли среди первых трех цифр из дробной части...

нужно сделать несколько задач, завтра зачет будет(
1. Массив A(m,n) преобразовать в массив C(m,n) в котором из положительных элементов массива A...

1
2 / 2 / 1
Регистрация: 03.11.2009
Сообщений: 38
27.11.2009, 15:28  [ТС] 2
2. Вычислить длину окружности, площади круга, объем шара одного и того же заданного.

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program baby; 
const Pi=3.14;
var r,c,s,v:real;
begin
 readln (r);
  c:=2*Pi*r;
  s:=Pi*sgr(r);
  v:=4/3*Pi*r*r*r;
 writeln (c,s,v);
 readln;
end.
3. Вычислить расстояние между 2 точками с координатами (x1,y1) и (x2,y2).

Pascal
1
2
3
4
5
6
7
Program Plowad;
var x1,x2,y1,y2,s:real;
begin
 readln (x1,x2,y1,y2);
  s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 writeln (s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2009, 15:28
Помогаю со студенческими работами здесь

Несколько задач
Товарищи, помогите воспрепятствовать отчислению Сдавал уже несколько раз Все не принимали ...

Решить несколько задач
В паскале не разбираюсь, так что рассчитываю на вашу помощь. 1. Задание 1 – Составьте блок-схему...

Несколько задач на Паскале
Нужна помощь, срочно нужно решить этот билет по программированию. Как с армии пришел, весь паскаль...

Где можно скачать книги с примерами решениями задач задач по программированию
подскажите где можно скачать книги с примерами решениями задач задач по программированию (что бы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru