Прошу помощи в решении задач. язык-turbo pascal. - Форум
Пятница, 09.12.2016, 06:48
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу помощи в решении задач. язык-turbo pascal. (Временных рамок нет. Буду очень признателен.)
Прошу помощи в решении задач. язык-turbo pascal.
JesuisДата: Четверг, 13.05.2010, 12:49 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Заранее прошу меня извинить за несоблюдение правил форума:
Quote (ignorer)
Каждую задачу оформлять отдельной темой!!!



1) Даны номерные знаки четырёх автомашин.
Определить, какие из них начинаются на "ММТ".
Напечатать соответствующее сообщение.

2) Дан массив t1,...,t20.
Заменить ti<0 на (tmax + tmin)/2.

3) Даны массивы
ZEX1,...,ZEX8 - шифры цехов автотранспортного предприятия;
K1,...,K8 - количества рабочих в каждом цехе;
F1,...,F8 - фонд заработной платы в каждом цехе;
P1,...,P 8 - премиальный фонд.

Напечатать список цехов, которых велечина заработной платы на одного рабочего более ZR руб. ,
при премиальном фонде на одного рабочего менее PR руб.

4) Для заданной матрицы образовать ряд,состоящий из номеров столбцов,
в которых среднее арифметическое больше последнего элемента и
прибавить к элементам этих столбцов произведения первого на последний элемент матрицы.

5)
y= 1/2+2!x2/2+4!x4/4+6!x6/6+...+10!x10/10


заранее благодарю smile

Сообщение отредактировал Jesuis - Четверг, 13.05.2010, 12:52
 
ignorerДата: Четверг, 13.05.2010, 15:48 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Quote (Jesuis)
Заранее прошу меня извинить за несоблюдение правил форума:

да ладно, это не самое страшное нарушение. главное, что все остальные правила соблюдены smile

задачи сейчас посмотрю

 
JesuisДата: Среда, 26.05.2010, 16:50 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
ignorer,

привет) ну чтонибудь получилось?

 
Nikolai17Дата: Среда, 26.05.2010, 18:12 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Jesuis

2)

Code
{$N+}

program er1;

uses crt;

var

  t:array[1..20] of real;
  i:integer;
  tmax,tmin:real;

  k:real;

begin

clrscr;

  writeln('Enter massiv');
for i:=1 to 20 do readln(t[i]);
  for i:=1 TO 20 do writeln(t[i]:4:2,' ');

readln;
clrscr;

tmax:=t[1];

for i:=1 to 20 do begin

if t[i]>tmax then tmax:=t[i];
end;

tmin:=t[1];

for i:=1 to 20 do begin

if t[i]<tmin then tmin:=t[i];
end;

writeln;

k:=(tmax+tmin)/2 ;

for i:=1 to 20 do begin

if t[i]<0 then t[i]:=k;

writeln(t[i]:4:2,' ');
end;

readkey;

end.


Quote (Jesuis)
2) Дан массив t1,...,t20. Заменить ti<0 на (tmax + tmin)/2.


Проблемы с задачками на pascal? обращайтесь icq 424 869 412 skype nikols_on
 
ignorerДата: Среда, 26.05.2010, 23:12 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
ы, получилось. тока вот выложить забыл. и сделал на PascalАВС, а не на турбо smile как-то всё через... сейчас уже поздно, завтра точно выложу.
 
ignorerДата: Четверг, 27.05.2010, 23:02 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот как и обещал код на турбо, тока я его не проверял. знаю только то, что прога запускается и работает, а вот правильность результата не смотрел.
Code
uses crt;
function fact(a : integer) : integer;
var b, c : integer;
begin
  for b:=1 to a do c:=c*b;
  fact:=c;
end;
function power(x : real; a : integer) : real;
var b : integer;
     c : real;
begin
  c:=1;
  for b:=1 to a do c:=c*x;
  power:=c;
end;
var x, a : integer;
     s : real;
begin
  clrscr;
  read(x);
  for a:=1 to 5 do s:=s+fact(2*a)*power(x,2*a)/(2*a);
  s:=s+0.5;
  write(s);
  readkey;
end.
 
JesuisДата: Пятница, 28.05.2010, 09:18 | Сообщение # 7
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
спасибо большое biggrin
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу помощи в решении задач. язык-turbo pascal. (Временных рамок нет. Буду очень признателен.)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016