Срочно!!!!!!! Пожалуйста помогите!!!! - Форум
Среда, 07.12.2016, 11:35
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно!!!!!!! Пожалуйста помогите!!!! (Решение 2 задач в Турбо Паскале)
Срочно!!!!!!! Пожалуйста помогите!!!!
ксюДата: Вторник, 23.12.2008, 21:35 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Люди пожалуйста помогите!!!!!!! Решается полугодовая оценка!! Кто может решить задачи в Турбо Паскале до завтра???
1) Даны стороны двух треугольников. Найти сумму их периметров и сумму их площадей. (Определить процедуру для расчета периметра и плошадей тругольника по его сторонам).
2) Дана строка. Сформулировать и вывести строку, состоящую из четных символов исходной сторки.


Ш@ронов@
 
notnotДата: Среда, 24.12.2008, 02:06 | Сообщение # 2
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
Quote
2) Дана строка. Сформулировать и вывести строку, состоящую из четных символов исходной сторки.

Code
program stroka;

uses crt;

var s,str:string;
       i,j:integer;

begin
      ClrScr;
      str := ' ';
      Write('Vvedite stroku: '); Readln(s);
      for i:=1 to length(s) do
      begin
         if i mod 2 = 0 then
            str := str+s[i];
      end;
      writeln('Result: ',str);
      Readkey;
end.

Добавлено (24.12.2008, 02:06)
---------------------------------------------

Code
program treangl;

uses crt;

var a,b,c,a1,b1,c1,p,p1:integer;
       s,s1:real;
       x,y,z:char;

function Calc(x,y,z,u:integer):real;
var p:real;
begin
      p:=u/2;
      Calc := sqrt(p*(p-x)*(p-y)*(p-z));
end;

function Calculation(x,y,z:integer):integer;
var per,Result:integer;
begin
      per := x+y+z;
      Calculation := per;
end;

procedure Input(var x,y,z:integer);
begin
      writeln('vvedite dlini storon treugolnika:');
      write('a = '); readln(x);
      write('b = '); readln(y);
      write('c = '); readln(z);
end;

begin
      ClrScr;
      Input(a,b,c);
      if ((a<b+c)and(b<a+c)and(c<a+b)) then else
         begin
            Writeln('Treugolnik virozhden. Povtorite vvod');
            writeln;
            Input(a,b,c);
         end;
      writeln;
      Input(a1,b1,c1);
      if ((a1<b1+c1)and(b1<a1+c1)and(c1<a1+b1)) then else
         begin
            Writeln('Treugolnik virozhden. Povtorite vvod');
            writeln;
            Input(a1,b1,c1);
         end;
      p := Calculation(a,b,c);
      p1 := Calculation(a1,b1,c1);
      s := Calc(a,b,c,p);
      s1 := Calc(a1,b1,c1,p1);
      writeln;
      writeln('Summa perimetrov treugolnika = ',p+p1);
      writeln;
      writeln('Summa plowadey treugolnika = ',(s+s1):2:2);
      Readkey;
end.


я - девушка!! +_+

Сообщение отредактировал notnot - Среда, 24.12.2008, 02:07
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно!!!!!!! Пожалуйста помогите!!!! (Решение 2 задач в Турбо Паскале)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016