Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
program project1;
uses SysUtils;
const
cherry = '&';
lemon = '@';
bell = '%';
orange = 'O';
star = '*';
skull = '#';
var
answer : string;
symbol1, symbol2, symbol3 : integer;
credit : real;
begin
randomize;
credit := 1;
while credit >= 0.2 do
begin
symbol1 := random(5);
symbol2 := random(5);
symbol3 := random(5);
writeln('Credits: ', FloatToStr(credit));
credit := credit - 0.2;
readln();
writeln('---------Welcome to the Fruit Machine----------');
writeln('Cherry = ', cherry);
writeln('Lemon = ', lemon);
writeln('Bell = ', bell);
writeln('Orange = ',orange);
writeln('Star = ',star);
writeln('Skull = ',skull);
writeln('');
if symbol1 = 0 then
write(' '+cherry+' ');
if symbol1 = 1 then
write(' '+lemon+' ');
if symbol1 = 2 then
write(' '+bell+' ');
if symbol1 = 3 then
write(' '+orange+' ');
if symbol1 = 4 then
write(' '+star+' ');
if symbol1 = 5 then
write(' '+skull+' ');
if symbol2 = 0 then
write(' '+cherry+' ');
if symbol2 = 1 then
write(' '+lemon+' ');
if symbol2 = 2 then
write(' '+bell+' ');
if symbol2 = 3 then
write(' '+orange+' ');
if symbol2 = 4 then
write(' '+star+' ');
if symbol2 = 5 then
write(' '+skull+' ');
if symbol3 = 0 then
write(' '+cherry+' ');
if symbol3 = 1 then
write(' '+lemon+' ');
if symbol3 = 2 then
write(' '+bell+' ');
if symbol3 = 3 then
write(' '+orange+' ');
if symbol3 = 4 then
write(' '+star+' ');
if symbol3 = 5 then
write(' '+skull+' ');
if (symbol1 = symbol2) and (symbol2 = symbol3) then
begin;
credit := credit + 1;
end;
writeln('Do you want to quit? Y/N');
if answer = 'Y' then
exit
else
end;
readln;
end.
program CodeItUp;
var
EString, OString: string;
C : char;
i : integer;
begin
readln(EString);
i:=1;
OString := EString;
for C in EString do
begin
OString[i] := chr(Ord(C)+25);
i+=1;
end;
writeln(OString);
readln();
end.
Program HelloWorld(output);
var a,b,c:integer;
begin
writeln('Input side a');
readln(a);
writeln('Input side b');
readln(b);
writeln('Input side c');
readln(c);
If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(c)+sqr(a)=sqr(b)) then
writeln('this is a right angle triangle')
else
writeln('this isnt a right angle triangle');
end.
program test_for_right_angle_triangle;
var a,b,c :real;
begin
writeln('input a');
writeln('input b');
writeln('input c');
readln(a);
readln(b);
readln(c);
if () then
end.
program count_1_to_5;
var
count, num :integer;
begin
count := 0;
writeln('Input a number');
read(num);
while num<>-999 do
begin
if num > 0 then
count := count + 1;
writeln('Input a number');
read(num);
end;
writeln('You enter ', count, ' positive numbers' );
end.
program Hailstone_number;
var
i,n,x:integer;
begin
i:=0;
write('Input a number?');
readln(n);
writeln('Initial value is ',n);
while n<>1 do
begin
if n mod 2 = 0 then
n:= n div 2
else
n:= 3*n+1;
writeln('Next value is ',n);
i:=i+1;
end;
writeln;
writeln('Final value is 1');
writeln('Number of steps is ',i);
end.
program Pangrams;
var
letters: array of string;
userString: string;
stringPos, lettersPos: integer;
letterRepeat: boolean;
begin
while true do
begin
writeln('Enter a string:');
readln(userString);
for stringPos := 1 to length(userString) do
begin
if (ord(upcase(userString[stringPos])) >= 65) and (ord(upcase(userString[stringPos])) <= 90) then
begin
letterRepeat := false;
for lettersPos := 0 to length(letters) - 1 do
begin
if upcase(userString[stringPos]) = upcase(letters[lettersPos]) then
letterRepeat := true
end;
if not letterRepeat then
begin
setlength(letters, length(letters) + 1);
letters[length(letters) - 1] := userString[stringPos];
end;
end;
end;
if length(letters) < 26 then
writeln('String is not a pangram!')
else
writeln('String is a pangram!');
setlength(letters, 0);
end;
end.
program EventsCalendar;
type
event = class
public
name, day, startTime, endTime: string;
constructor create (n, d, st, et: string);
end;
constructor event.create(n, d, st, et: string);
begin
name := n;
day := d;
startTime := st;
endTime := et;
end;
var
mode, eventName, eventDay, eventStartTime, eventEndTime, searchDay: string;
events: array of event;
function checkEvent () : boolean;
var
eventsPos: integer;
clashFound: boolean;
begin
clashFound := false;
for eventsPos := 0 to length(events) - 1 do
begin
if (events[eventsPos].day = eventDay) and (((eventStartTime > events[eventsPos].startTime) and (eventStartTime < events[eventsPos].endTime)) or ((eventEndTime > events[eventsPos].startTime) and (eventEndTime < events[eventsPos].endTime)) or ((events[eventsPos].startTime > eventStartTime) and (events[eventsPos].startTime < eventEndTime))) then
begin
writeln('Event clashes with: ', events[eventsPos].name);
clashFound := true;
end;
end;
if clashFound then
checkEvent := false
else
checkEvent := true;
end;
procedure deleteEvent ();
var
eventsPos, eventShiftCounter: integer;
eventFound: boolean;
begin
eventFound := false;
for eventsPos := 0 to length(events) - 1 do
begin
if (events[eventsPos].name = eventName) and (events[eventsPos].day = eventDay) and (events[eventsPos].startTime = eventStartTime) and (events[eventsPos].endTime = eventEndTime) then
begin
if eventsPos <> length(events) - 1 then
begin
for eventShiftCounter := eventsPos to length(events) - 2 do
events[eventShiftCounter] := events[eventShiftCounter + 1];
end;
setlength(events, length(events) - 1);
writeln('Event deleted!');
eventFound := true;
break;
end;
end;
end;
procedure viewEvents ();
var
eventsPos: integer;
eventFound: boolean;
begin
eventFound := false;
writeln('Events:');
for eventsPos := 0 to length(events) - 1 do
begin
if events[eventsPos].day = searchDay then
begin
writeln(events[eventsPos].name, ' from ', events[eventsPos].startTime, ' to ', events[eventsPos].endTime);
eventFound := true;
end;
end;
if not eventFound then
writeln('No events on ', searchDay, '!');
end;
begin
while true do
begin
writeln('Would you like to enter a new event (1), delete an event (2) or view events (3)?');
readln(mode);
if mode = '1' then
begin
writeln('What is the name of the event?');
readln(eventName);
writeln('What day is the event (DD/MM/YYYY)?');
readln(eventDay);
writeln('What time does the event start (HHMM)?');
readln(eventStartTime);
writeln('What time does the event end (HHMM)?');
readln(eventEndTime);
if checkEvent() then
begin
setlength(events, length(events) + 1);
events[length(events) - 1] := event.create(eventName, eventDay, eventStartTime, eventEndTime);
writeln('Event added!');
end;
end
else if mode = '2' then
begin
writeln('What is the name of the event you want to delete?');
readln(eventName);
writeln('What day is the event you want to delete (DD/MM/YYYY)?');
readln(eventDay);
writeln('What time does the event you want to delete start (HHMM)?');
readln(eventStartTime);
writeln('What time does the event you want to delete end (HHMM)?');
readln(eventEndTime);
deleteEvent();
end
else if mode = '3' then
begin
writeln('What day would you like to view (DD/MM/YYYY/)?');
readln(searchDay);
viewEvents();
end;
end;
end.
