/*
Выводы перед вводом данных(cout) можно убрать (сделал для удобства)
*/
#include <iostream>
#include <vector>
#define UNITS '$' // <- Валюта
using namespace std;
int main()
{
int SWEETS, COOKIES, APPLES;
cout<<"Price for 1 kg of sweets\n>>"<<UNITS;
cin>>SWEETS;
cout<<"Price for 1 kg of cookies\n>>"<<UNITS;
cin>>COOKIES;
cout<<"Price for 1 kg of apples\n>>"<<UNITS;
cin>>APPLES;
int x, y, z;
cout<<"Enter amount in kg\n";
cout<<"How many sweets?\n>>";
cin>>x;
cout<<"How many cookies?\n>>";
cin>>y;
cout<<"How many apples?\n>>";
cin>>z;
int total = x*SWEETS + y*COOKIES + z*APPLES;
cout<<"\n"<<"TOTAL PRICE IS\n"<<UNITS<<total<<"\n\n";
return 0;
}
Задачи на паскале в объяснении
Объяснение:
задача 1
program z1;
var x, f: real;
begin
writeln('введите х');
readln(x);
if x>=0 then f:=sqrt(x*x*x)
else f:=sqr(x)/(sqr(x)-2);
writeln('f(x)=',f:10:2);
readln;
end.
задача 2
program z2;
const n=5, m=5;
var a:array[1..n, 1..m] of integer;
i, j, s, p: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
s:=0;
for j:=1 to m do p:=p*a[1,j];
for i:=1 to n do s:=s+a[i,1];
writeln('сумма элементов первого столбца=',s);
writeln('произведение элементов первой строки=',p);
readln;
end.
Задача 3
program z3;
const n=5; m=5;
var a:array[1..n, 1..m] of integer;
i, j, p, max, min: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
min:=a[1,1];
max:=min;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]<min) then min:=a[i,j];
if (a[i,j]>max) then max:=a[i,j];
End;
P:=min*max;
writeln('произведение максимального и минимального элемента=',p);
readln;
end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Program lab2_2; uses crt; var s: String; n, i, b, j: longint; c: char; begin clrscr; writeln('Введите строку из заглавных букв:'); readln(s); n:=length(s); i:=1; b:=0; for j:=1 to n do begin c:=s[j]; {} b:=(ord(c))-127; {Write(b); end; } Case b of 1..9: begin Write('0'); Write(b); end; 10..33:Write(b); -95:Write('00'); else exit; end; {} end; readkey; end.