Помогите составить программу в Паскале

denisova · 14.04.2013, 01:52

Оператор выбора. Для числа от 0 до 33 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N.
Разветвляющиеся вычислительные процессы.
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

Vladimir_S · 14.04.2013, 08:46

Цитата:

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

Для числа от 0 до 33 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N.

Да... задача века!

Код:

Var
 N:Byte;
Begin
 Write('N= ');
 Readln(N);
 Write('Я посмотрел ',N,' кинофильм');
 If ((N mod 10)<>1) or (N=11) then
  begin
   If (((N mod 10)>0) and ((N mod 10)<5)) and
     ((N<5) or (N>20)) then writeln('а') else writeln('ов');
  end;
 Readln
End.

Vladimir_S · 14.04.2013, 09:06

Цитата:

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

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

А это уже - задача тысячелетия!

Код:

Var
 x,y:Real;
Begin
 Repeat
  Write('x= ');
  Readln(x);
  If (x<-10) or (x>8) then Writeln('Out of range!!!');
 Until (x>=-10) and (x<=8);
 If x<-6 then y:=Sqrt(4-Sqr(x+8))-2 else
 If x<2  then y:=x/2+1 else
 If x<6  then y:=0 else
 y:=Sqr(x-6);
 Writeln('y= ',y:5:3);
 Readln
End.

denisova · 14.04.2013, 10:56

Спасибочки!!!

14.04.2013, 01:52	#1 (permalink)
denisova Member Регистрация: 13.04.2013 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить программу в Паскале Оператор выбора. Для числа от 0 до 33 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N. Разветвляющиеся вычислительные процессы. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Миниатюры

14.04.2013, 10:56	#4 (permalink)
denisova Member Регистрация: 13.04.2013 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибочки!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070