Другие языки программирования и технологии

Нужно составить программу на Pascal.

1)Вычисление значения функции x=12a^2+7a-16 2)Решение линейного уравнения ax+b=0 (a не ровно 0) 3)Дана масса в килограммов. Найти число полных центнеров в ней. 4)Определить максимальное и минимальное значение для двух различных вещественных чисел. 5)В чемпионате по футболу команде за выигрыш даётся 3 очка, за пригрышь-0, за ничью-1.Известно кол-во очков,полученных командой за игру.Определить словесный результат игры. 6)Игральным картам условно присвоены порядковые номера в зависимости от их достоинства "шестёрка"-6, "семёрка"-7 ..."дама"-12 и тп. По заданному номеру карты k определить достоинство соответствующей карты. 7)Напечатать таблицу соответствия растояния в дюймах растояниям в сантиметрах для значений 10, 11, ..22 дюйма ( 1дюйм=25,4 мм) 8)Дано натуральное число. Определить сумму его цифр. Заранее спасибо!
Shexnazar Babaev
Shexnazar Babaev
109
1)
uses crt;
var a,b: integer;
begin
read(a);
b:=12*(a*a)+7*a-16;
writeln('Функция х = ', b);
end.
так? это не так быстро решается всё... но задачи простые, думайте)
6 задача кейсом решается точно могу сказать)

2)uses crt;
var a,x,b,h:integer;
begin
read(a);
read(b);
read(x);
if a<> 0 then h:=a*x+b
else writeln ('a < or = 0');
writeln(h);
end.

3) uses crt;
var m,h:integer;
begin
read(m);
h:= m div 100000;
writeln(h);
end.

6) uses crt;
var k:integer;
begin
read(k);
case k of
6: writeln ('Шестерка');
7: writeln('Семерка');
{и так далее. идея понятна должна быть}
end;
end.
АН
Анатолий Насыров
4 420
Лучший ответ
Седьмая задача

uses crt;
var i:integer;
begin
clrscr;
writeln(' --------------');
writeln('| Дюйм | СМ |');
writeln(' --------------');
for i:=10 to 22 do
writeln('|',i:5,' | ',i*2.54:6,'|');
writeln(' --------------');
readln;
end.

Восьмая задача

uses crt;
procedure Sum(k:longint;var s:byte);
var m:longint;
begin
m:=k;
s:=0;
while m > 0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Cумма = ',s);
end;
var a:longint;
s:byte;
begin
clrscr;
write('Число= ');
readln(a);
Sum(a,s);
readln;
end.
Виталий Львович
Виталий Львович
41 962
1)
uses crt;
var a,b: integer;
begin
read(a);
b:=12*(a*a)+7*a-16;
writeln('Функция х = ', b);
end.
так? это не так быстро решается всё... но задачи простые, думайте)
6 задача кейсом решается точно могу сказать)

2)uses crt;
var a,x,b,h:integer;
begin
read(a);
read(b);
read(x);
if a<> 0 then h:=a*x+b
else writeln ('a < or = 0');
writeln(h);
end.

Восьмая задача

uses crt;
procedure Sum(k:longint;var s:byte);
var m:longint;
begin
m:=k;
s:=0;
while m > 0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Cумма = ',s);
end;
var a:longint;
s:byte;
begin
clrscr;
write('Число= ');
readln(a);
Sum(a,s);
readln;
end.
ZK
Zoxan Kurbanov_
472

Похожие вопросы