Програмные коды

[puporev]

Код в задаче №3 нужно переделать (укоротить).

program zad3;
uses crt;
var N,a:integer;
begin
   clrscr;
   write('N = ');readln(N);
   a:=N mod 10;
   case a of
   1: writeln(N,'_год ');
   2,3,4: writeln(N,'_года*');
   5,6,7,8,9,0: writeln(N,'_лет');
   end;
readln
end.

[puporev]

Задача №2.

program zadacha2;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
write('a=');readln(a);
if a=0 then begin writeln('Nevernyj koeffichient A');readln;exit;end;
write('b=');readln(b);
write('c=');readln(c);
d:=sqr(b)-4*a*c;
if d<0 then writeln('korney net')
else
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1:4:2,';','x2=',x2:4:2,';');
readln;
end.

[Alex21]

Сообщение от puporev

Код в задаче №3 нужно переделать (укоротить).

program zad3;
..
   a:=N mod 10;
   case a of
   1: writeln(N,'_год ');
   2,3,4: writeln(N,'_года*');
   5,6,7,8,9,0: writeln(N,'_лет');
..

Числа: 11...14 ???

[novol]

4 КТО МОЖЕТ СДЕЛАТЬ????

[Tayfun]

4 КТО МОЖЕТ СДЕЛАТЬ????

4.

program zad4;
uses crt;
var
i,n:integer;
s:real;
begin
clrscr;
writeln('ВВЕДИТЕ n');
readln(n);
for i:=1 to n do
s:=s+1/(4+i*3);
writeln('ЧАСТИЧНАЯ СУММА РЯДА->',s:1:5);
readkey;
end.

[puporev]

Извините, поторопился. Нужно так.

program zadacha3;
uses crt;
var N,a:integer;
begin
   clrscr;
   write('N = ');readln(N);
   if(N>=11) and (N<=14) then
   a:=10 else
   a:=N mod 10;
   case a of
   1: writeln(N,'_ год');
   2,3,4: writeln(N,'_ года*');
   5,6,7,8,9,0,10: writeln(N,'_лет');
   end;
readln
end.

[novol]

а можете ещё несколько это для моей девушки:

Составте программу, с помощью которой найдите значение выражения:
y = (квадратный корень) а (в степени минус 2) + в (в степени минус 2), где
а=(кубический корень) m + (кубический корень) n, в=(модуль) m – тангенс n,
m=(квадратный корень)2, n=е.

написать программу для вывода дней недели по номеру дня недели.

Составьте программу , с помощью которой найдите сумму :cos0.4+cos0.6+…+cos2.4.

Задана численность населения страны. Известно ,что население страны ежегодно увеличивается на 1/15 наличного состава жителей. Составить программу ,в которой с помощью цикла repeat определить , когда население страны удвоится.

Составьте программу с помощью которой определите сумму 2!+4!+6!+8!+…, так чтобы сумма не превышала 50.000.

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

Заполнить массив , применив для его заполнения формулу а[i]=x*i(в квадрате)/i+x.

[kommunist]

Сообщение от Tayfun

Данный код не корректен, как миниму 2 ошибки:
1:

В дальше используется r вместо rast и стоит тип переменной integer при вычислении квадратного корня... Надо заменить на:

да Tayfun я полностью с вами согласен. Дело в том что надо было идти и я поторопился, уже поправил.

[kommunist]

Сообщение от novol

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

1 cтраница пост №7
___________________________________ _______

program dni;
uses crt;
var n:integer;
begin
clrscr;
writeln('vvedite nomer dnya:');
readln(n);
 case n of
 1:writeln('понедельн');ик
 2:writeln('вторник');
 3:writeln('среда');
 4:writeln('четверг');
 5:writeln('пятница');
 6:writeln('суббота');
 7:writeln('воскресенье');
 readln;
end.

______________________________
Да молодой человек пора бы и самому начать думать мы вам и так длстаточно помогли.

[puporev]

Тут на днях один товарищ тоже просил решить задачи для себя и "очень хорошего человека". Но он сначала просил для "очень хорошего человека", а когда решили, то потом для себя.